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

@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

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

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@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