Добавление записи в БД

@Didilom · Регистрация: 23.01.2013

Студворк — интернет-сервис помощи студентам

Всем добрый день. Дорогие друзья, мне надо чтобы я щелкал на кнопку записать и данные вносились базу.

Я для него прописывал этот код, но выдает ошибку, видно что то не так

C++
1
2
3
4
5
6
7
8
void __fastcall TForm2::BitBtn1Click(TObject *Sender)
{
Form1->ADOTable3->Edit();
Form1->ADOTable3->Insert();
Form1->ADOTable3->Post();
 
}
//---------------------------------------------------------------------------

Посоветуйте что нибудь :-) Спасибо!!

@Mrak19901124 · 12.04.2013, 01:33

C++
1
2
3
Form1->Table1->Insert();
Form1->Table1->FieldByName("название твоей колонки")->AsString = Edit1->Text;
Form1->Table1->FieldByName("название твоей колонки")->AsString = Edit2->Text;

@Didilom · 12.04.2013, 01:42 **[ТС]**

Мрак, а вот мне надо еще добавить Табельный номер и Код детали, тогда я вместо Edit должен буду прописать combobox и остальное все также да?

C++
1
2
3
4
5
Form1->Table1->Insert();
Form1->Table1->FieldByName("название твоей колонки")->AsString = Edit1->Text;
Form1->Table1->FieldByName("название твоей колонки")->AsString = Edit2->Text;
Form1->Table1->FieldByName("название твоей колонки")->AsString = ComboBox1->Text;
Form1->Table1->FieldByName("название твоей колонки")->AsString = Combobox2->Text;

Или на до по другому?

@Mrak19901124 · 12.04.2013, 01:47

Didilom, ну да, у меня работает по крайней мере )

@Didilom · 12.04.2013, 01:55 **[ТС]**

Мрак спасибо!!!

@Mrak19901124 · 12.04.2013, 01:58

К тебе вопрос есть запрос как вывести результат в едит или хоть кудато

C++
1
2
3
4
Query1->SQL->Clear();
Query1->Close();
Query1->SQL->Add("SELECT COUNT(*) FROM Теми ");
Query1->Open();

Добавлено через 2 минуты
может знаешь?

@Didilom · 12.04.2013, 02:03 **[ТС]**

Мрак, честно я не знаю. Ну вот мне присылали недавно одну тему как в Edit выводить через запрос, глянь на всякий случай, может пригодиться.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm1::ComboBox1DropDown(TObject *Sender)
{
ComboBox1->Items->Clear();
try{
 Query1->SQL->Clear();
 Query1->SQL->Add("SELECT DISTINCT famil FROM Твоя_Таблица");
 Query1->Open();
 Query1->First();
  while(!Query1->Eof)
 {
  ComboBox1->Items->Add(Query1->FieldByName("Famil")->AsString);
  Query1->Next();
 }
   }catch(...){}
}

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TForm1::ComboBox1Select(TObject *Sender)
{
if(!ComboBox1->Text.IsEmpty())
   {
    Query1->Close();
    Query1->SQL->Clear();
    Query1->SQL->Add("Select * from Твоя_таблица WHERE famil LIKE '"+ComboBox1->Text+"'");
    Query1->Open();
   }
    Edit1->Text = Query1->FieldByName("pole_imya")->AsString;
    Edit2->Text = Query1->FieldByName("pole_otchestvo")->AsString;
    }

Добавлено через 1 минуту
Мрак,Вот название темы "связка combobox и edit!" если что можешь глянуть там

@Mrak19901124 · 12.04.2013, 02:11

Didilom, Спасибо.

@Didilom · 12.04.2013, 02:17 **[ТС]**

Да не за что, если что обращайся, чем смогу помогу!

@Mrak19901124 · 12.04.2013, 02:28

C++
1
2
3
4
5
6
Form1->Table1->Insert();
Form1->Table1->FieldByName("название твоей колонки")->AsString = Edit1->Text;
Form1->Table1->FieldByName("название твоей колонки")->AsString = Edit2->Text;
Form1->Table1->FieldByName("название твоей колонки")->AsString = ComboBox1->Text;
Form1->Table1->FieldByName("название твоей колонки")->AsString = Combobox2->Text;
Table1->Post();

добавь внизу Table1->Post(); чтоб сохраняло последний результат

@Didilom · 20.04.2013, 15:12 **[ТС]**

Попробовал, ничего не помогает уже и такой код прописал не идет. Из за чего это может быть?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
if ((sEdit1->Text=="")||(sDateEdit1->Text=="")||(sEdit2->Text=="")
||(sComboBox1->Text=="")||(sComboBox2->Text==""))
{Application->MessageBoxA("Заполните пустые поля!","Ошибка!",MB_OK);}
else
{
Form1->ADOTable3->Edit();
Form1->ADOTable3->Insert();
Form1->ADOTable3->FieldByName("Kod_detali")->AsString=sComboBox2->Text;
Form1->ADOTable3->FieldByName("Tab_nomer")->AsString=sComboBox1->Text;
 
Form1->ADOTable3->FieldByName("Kod_vipoln")->AsInteger=StrToInt(sEdit1->Text);
Form1->ADOTable3->FieldByName("Kol-vo")->AsInteger=StrToInt(sEdit2->Text);
 
Form1->ADOTable3->FieldByName("Data")->AsString=sDateEdit1->Text;
Form1->ADOTable3->Post();
}

Подскажите пожалуйста что делать.

@Sasha · 20.04.2013, 19:55

Сообщение от Didilom

Form1->ADOTable3->Edit();
Form1->ADOTable3->Insert();

К чему такая комбинация?

@Didilom · 20.04.2013, 20:44 **[ТС]**

Ну edit я прописывал для изменения таблицы, а Insert это же вроде как вставка. А их не надо прописывать?

Добавлено через 24 минуты
Сейчас убрал Edit и Insert, она выдала ошибку "ADOTable3

ataset not in edit or insert mode"

Добавлено через 26 секунд
"ADOTable3-Dataset not in edit or insert mode"

@Sasha · 20.04.2013, 22:36

А у тебя ADOTable3 открыт?

@Didilom · 20.04.2013, 23:31 **[ТС]**

Sasha В смысле открыт? Я ее подключил к базе и активировал.

@Sasha · 20.04.2013, 23:45

C++
1
DBGrid1->ReadOnly = false

@Didilom · 20.04.2013, 23:48 **[ТС]**

Sasha А для чего я это прописываю

Сообщение от Sasha

Код C++
1
DBGrid1->ReadOnly = false

И где это надо прописать?

@Sasha · 20.04.2013, 23:51

Прописать надо в FormShow или просто в инспекторе объектов компонента DBGrid выставить false

@Didilom · 20.04.2013, 23:54 **[ТС]**

Sasha а почему ты DBGrid пишешь, я же ведь его не использую?

@Sasha · 20.04.2013, 23:58

А как ты видишь что у тебя в таблице?

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@Mrak19901124 47 / 12 / 4 Регистрация: 25.02.2010 Сообщений: 259
	12.04.2013, 01:47
	Didilom, ну да, у меня работает по крайней мере ) 1

@Didilom 4 / 4 / 0 Регистрация: 23.01.2013 Сообщений: 167
	12.04.2013, 01:55 [ТС]
	Мрак спасибо!!! 0

@Mrak19901124 47 / 12 / 4 Регистрация: 25.02.2010 Сообщений: 259
	12.04.2013, 02:11
	Didilom, Спасибо. 0

@Didilom 4 / 4 / 0 Регистрация: 23.01.2013 Сообщений: 167
	12.04.2013, 02:17 [ТС]
	Да не за что, если что обращайся, чем смогу помогу! 0

@Didilom 4 / 4 / 0 Регистрация: 23.01.2013 Сообщений: 167
	20.04.2013, 20:44 [ТС]
	Ну edit я прописывал для изменения таблицы, а Insert это же вроде как вставка. А их не надо прописывать? Добавлено через 24 минуты Сейчас убрал Edit и Insert, она выдала ошибку "ADOTable3ataset not in edit or insert mode" Добавлено через 26 секунд "ADOTable3-Dataset not in edit or insert mode" 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	20.04.2013, 22:36
	А у тебя ADOTable3 открыт? 0

@Didilom 4 / 4 / 0 Регистрация: 23.01.2013 Сообщений: 167
	20.04.2013, 23:31 [ТС]
	Sasha В смысле открыт? Я ее подключил к базе и активировал. 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	20.04.2013, 23:51
	Прописать надо в FormShow или просто в инспекторе объектов компонента DBGrid выставить false 0

@Didilom 4 / 4 / 0 Регистрация: 23.01.2013 Сообщений: 167
	20.04.2013, 23:54 [ТС]
	Sasha а почему ты DBGrid пишешь, я же ведь его не использую? 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	20.04.2013, 23:58
	А как ты видишь что у тебя в таблице? 0