Добавление записи через FIBDataSet - БД в Delphi

Lokos · 04.05.2010, 08:35

Код такой

Код:

DM.FIBDS.Close;
   DM.FIBDS.SQLs.InsertSQL.Text:='INSERT INTO AGENSTVA (ID,"№ АГЕНСТВА","АДРЕС АГЕНСТВА") VALUES(null,:Namb,:Adr)';
   DM.FIBDS.ParamByName('Namb').Value:=2;
   DM.FIBDS.ParamByName('Adr').Value:=AddresAgenstva.Text;
   DM.FIBDS.Open;

Ругается на параметр Namb

artemavd · 04.05.2010, 08:44

А какого типа поле Namb?

И зачем Вы используете здесь кавычки?

Код:

(ID,"№ АГЕНСТВА","АДРЕС АГЕНСТВА")

Цитата:

Ругается на параметр Namb

А что именно пишет?

Lokos · 04.05.2010, 08:46

Цитата:

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

А какого типа поле Namb?

И зачем Вы используете здесь кавычки?

Код:

(ID,"№ АГЕНСТВА","АДРЕС АГЕНСТВА")

кавычки потому что русские имена полей)) NAmb целочисленое(integer)

artemavd · 04.05.2010, 08:49

А если так:

Код:

   DM.FIBDS.Close;
   DM.FIBDS.SQLs.InsertSQL.Text:='INSERT INTO AGENSTVA (ID,"№ АГЕНСТВА","АДРЕС АГЕНСТВА") VALUES(null,:Namb,:Adr)';
   DM.FIBDS.ParamByName('Namb').Value:=IntToStr(Edit2.Text);
   DM.FIBDS.ParamByName('Adr').Value:=AddresAgenstva.Text;
   DM.FIBDS.Open;

где Edit2.Text - поле в которое ввоодится число.

Так че говорит?

Lokos · 04.05.2010, 08:54

Цитата:

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

А если так:

Код:

   DM.FIBDS.Close;
   DM.FIBDS.SQLs.InsertSQL.Text:='INSERT INTO AGENSTVA (ID,"№ АГЕНСТВА","АДРЕС АГЕНСТВА") VALUES(null,:Namb,:Adr)';
   DM.FIBDS.ParamByName('Namb').Value:=IntToStr(Edit2.Text);
   DM.FIBDS.ParamByName('Adr').Value:=AddresAgenstva.Text;
   DM.FIBDS.Open;

где Edit2.Text - поле в которое ввоодится число.

Так че говорит?

Так тоже пробовал пишет тоже
Если дословно то так Parameter "Namb" does not exist

artemavd · 04.05.2010, 09:00

Цитата:

Parameter "Namb" does not exist

В слове Namb, буква "а" не русская случайно? А в самой БД названия полей тоже по русски? Кстати, не используйте пробел в названии полей, лучше пробел замените на "_".

А так вставляется запись?

Код:

   DM.FIBDS.Close;
   DM.FIBDS.SQLs.InsertSQL.Text:='INSERT INTO AGENSTVA (ID,"№ АГЕНСТВА","АДРЕС АГЕНСТВА") VALUES(null,'2','Ленина, 100')';
//   DM.FIBDS.ParamByName('Namb').Value:=IntToStr(Edit2.Text);
//   DM.FIBDS.ParamByName('Adr').Value:=AddresAgenstva.Text;
   DM.FIBDS.Open;

Lokos · 04.05.2010, 09:22

Цитата:

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

В слове Namb, буква "а" не русская случайно? А в самой БД названия полей тоже по русски? Кстати, не используйте пробел в названии полей, лучше пробел замените на "_".

А так вставляется запись?

Код:

   DM.FIBDS.Close;
   DM.FIBDS.SQLs.InsertSQL.Text:='INSERT INTO AGENSTVA (ID,"№ АГЕНСТВА","АДРЕС АГЕНСТВА") VALUES(null,'2','Ленина, 100')';
//   DM.FIBDS.ParamByName('Namb').Value:=IntToStr(Edit2.Text);
//   DM.FIBDS.ParamByName('Adr').Value:=AddresAgenstva.Text;
   DM.FIBDS.Open;

модифицировал код следующим образом

Код:

 DM.FIBDS.Close;
   DM.FIBDS.SQLs.InsertSQL.Text:='INSERT INTO AGENSTVA (ID,"№ АГЕНСТВА","АДРЕС АГЕНСТВА") VALUES(null,2,'+chr(39)+AddresAgenstva.Text+chr(39)+')';
   DM.FIBDS.Open;
   DM.FIBDS.Transaction.Commit;

ошибок не выдает но и данные не сохраняет((( ладно сделаю тогда через fibquery

artemavd · 04.05.2010, 09:31

Лучше так:

Код:

   DM.FIBDS.Close;
   DM.FIBDS.SQLs.InsertSQL.Text:='INSERT INTO AGENSTVA (ID,"№ АГЕНСТВА","АДРЕС АГЕНСТВА") VALUES(null,2,'QuotedStr(AddresAgenstva.Text))';
   DM.FIBDS.Open;
   DM.FIBDS.Transaction.Commit;

Поставьте еще свойство AutoCommit=True.

artemavd · 04.05.2010, 09:31

Лучше так:

Код:

   DM.FIBDS.Close;
   DM.FIBDS.SQLs.InsertSQL.Text:='INSERT INTO AGENSTVA (ID,"№ АГЕНСТВА","АДРЕС АГЕНСТВА") VALUES(null,2,'QuotedStr(AddresAgenstva.Text))';
   DM.FIBDS.Open;
   DM.FIBDS.Transaction.Commit;

Поставьте еще свойство AutoCommit=True.

Lokos · 04.05.2010, 09:32

Цитата:

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

Лучше так:

Код:

   DM.FIBDS.Close;
   DM.FIBDS.SQLs.InsertSQL.Text:='INSERT INTO AGENSTVA (ID,"№ АГЕНСТВА","АДРЕС АГЕНСТВА") VALUES(null,2,'QuotedStr(AddresAgenstva.Text))';
   DM.FIBDS.Open;
   DM.FIBDS.Transaction.Commit;

Поставьте еще свойство AutoCommit=True.

поставил бестолку а что за QuotedStr?

04.05.2010, 08:49	#4
artemavd Старожил Регистрация: 05.06.2008 Сообщений: 4,210	А если так: Код: `DM.FIBDS.Close; DM.FIBDS.SQLs.InsertSQL.Text:='INSERT INTO AGENSTVA (ID,"№ АГЕНСТВА","АДРЕС АГЕНСТВА") VALUES(null,:Namb,:Adr)'; DM.FIBDS.ParamByName('Namb').Value:=IntToStr(Edit2.Text); DM.FIBDS.ParamByName('Adr').Value:=AddresAgenstva.Text; DM.FIBDS.Open;` где Edit2.Text - поле в которое ввоодится число. Так че говорит? Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.

04.05.2010, 09:31	#8
artemavd Старожил Регистрация: 05.06.2008 Сообщений: 4,210	Лучше так: Код: `DM.FIBDS.Close; DM.FIBDS.SQLs.InsertSQL.Text:='INSERT INTO AGENSTVA (ID,"№ АГЕНСТВА","АДРЕС АГЕНСТВА") VALUES(null,2,'QuotedStr(AddresAgenstva.Text))'; DM.FIBDS.Open; DM.FIBDS.Transaction.Commit;` Поставьте еще свойство AutoCommit=True. Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.

04.05.2010, 09:31	#9
artemavd Старожил Регистрация: 05.06.2008 Сообщений: 4,210	Лучше так: Код: `DM.FIBDS.Close; DM.FIBDS.SQLs.InsertSQL.Text:='INSERT INTO AGENSTVA (ID,"№ АГЕНСТВА","АДРЕС АГЕНСТВА") VALUES(null,2,'QuotedStr(AddresAgenstva.Text))'; DM.FIBDS.Open; DM.FIBDS.Transaction.Commit;` Поставьте еще свойство AutoCommit=True. Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Добавление записи через TQuery [ошибка]	DimOn4Ik	БД в Delphi	10	10.04.2010 20:36
Добавление записи в бд	Lokos	БД в Delphi	8	15.12.2009 16:36
Добавление записи	gitzzz	Microsoft Office Access	2	23.06.2009 19:30
Добавление записи через список в связанную таблицу(при связи с Access)	megaten	БД в Delphi	5	17.05.2009 15:57
Добавление записи....	Droid	БД в Delphi	2	04.06.2008 15:50