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

[subbota]

каким методом а точнее как лучше добавлять записи к сетевой БД.
Использую Firebird 2.5 , для подключения работы с БД использую следующие компоненты:

[Stilet]

Используй IBQuery. Записывай в нее команду SQL INSERT. И пускай на исполнение.

[subbota]

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

Используй IBQuery. Записывай в нее команду SQL INSERT. И пускай на исполнение.

а поподробней можно прочитал куча монуалов что-то не получается.

на пример есть таблица tab1
в ней поля date, fam, zakaz

как в эту таблицу добавить новую запись...
я на форме размещаю 3 edit, в них ввожу данные и по нажатию кнопки в данную бд должна добавится новая запись...

[Stilet]

Вот так:

with IBQuery do begin
 sql.text:='insert into tab1 (date, fam, zakaz) values (:date,:fam,:zakaz)';
 with Parameters do begin
  ParamByName('date').Value:=date();
  ParamByName('fam').Value:='FIO';
  ParamByName('zakaz').Value:=123;
 end;
 execsql;
end;

Это учитывая что я ничего не знаю о твоей таблице.

[subbota]

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

Вот так:

with IBQuery do begin
 sql.text:='insert into tab1 (date, fam, zakaz) values (:date,:fam,:zakaz)';
 with Parameters do begin
  ParamByName('date').Value:=date();
  ParamByName('fam').Value:='FIO';
  ParamByName('zakaz').Value:=123;
 end;
 execsql;
end;

Это учитывая что я ничего не знаю о твоей таблице.

parameters - это свойство чего ibquery

[Stilet]

Parameters это именно свойство компонента IBQuery )
Впрочем я мог ошибиться, и наверное оно пишется как "Params". Уточни в хелпе.

[subbota]

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

Parameters это именно свойство компонента IBQuery )
Впрочем я мог ошибиться, и наверное оно пишется как "Params". Уточни в хелпе.

во общем что то не так с полем date

для пробы сделал так

код

procedure TForm1.Button1Click(Sender: TObject);
begin
with datamodule1.IBQuery1 do begin
 sql.text:='insert into tab1 (date, zakaz, kvitan, naprovlenie, master, infa_zakaz, infa_klient, status) values (:date, :zakaz, :kvitan, :naprovlenie, :master, :infa_zakaz, :infa_klient, :status)';
 with datamodule1.IBQuery1.Params do
 begin
  datamodule1.IBQuery1.ParamByName('date').Value:=date;
  datamodule1.IBQuery1.ParamByName('zakaz').Value:='111111';
  datamodule1.IBQuery1.ParamByName('kvitan').Value:='222222';
  datamodule1.IBQuery1.ParamByName('naprovlenie').Value:='ggg';
  datamodule1.IBQuery1.ParamByName('master').Value:='FIO';
  datamodule1.IBQuery1.ParamByName('infa_zakaz').Value:='gggggg';
  datamodule1.IBQuery1.ParamByName('infa_klient').Value:='111111';
  datamodule1.IBQuery1.ParamByName('status').Value:='0';

 end;
 execsql;
end;
end;

в результате ошибка...

[Stilet]

date наверное зарезервированное слово. Попробуй его в "" взять.

datamodule1.IBQuery1.

Бог мой... Да тебе срочно нужно почитать о операторе with.
Используя его так никто не пишет. Он и призван чтоб сократить запись и не писать полный путь к методу или свойству.
Посмотри же внимательно как я написал. Или вообще его убери если не понимаешь его назначения.

[subbota]

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

date наверное зарезервированное слово. Попробуй его в "" взять.

Бог мой... Да тебе срочно нужно почитать о операторе with.
Используя его так никто не пишет. Он и призван чтоб сократить запись и не писать полный путь к методу или свойству.
Посмотри же внимательно как я написал. Или вообще его убери если не понимаешь его назначения.

Добрый день. Поводу оператора with - с 2005 года не работал с Delphi, так что прошу прощения...
Что касается моего вопроса пробовал уже все:

 ParamByName('date').Value:=date;
 ParamByName('date').Value:=date();
 ParamByName('date').Value:='date';
 ParamByName('date').Value:='date()';

и даже так

ParamByName('date').Value:="date";

по прежнему выдает ту же ошибку..

вот полностью на всякий случай...

procedure TForm1.Button1Click(Sender: TObject);
begin
with datamodule1.IBQuery1 do {здесь если просто написать IBQuery1 - выдвет ошибку}
begin
 sql.text:='insert into tab1 (date, zakaz, kvitan, naprovlenie, master, infa_zakaz, infa_klient, status) values (:date, :zakaz, :kvitan, :naprovlenie, :master, :infa_zakaz, :infa_klient, :status)';
 with Params  do
 begin
  ParamByName('date').Value:=date;

  ParamByName('zakaz').Value:='111111';
  ParamByName('kvitan').Value:='222222';
  ParamByName('naprovlenie').Value:='ggg';
  ParamByName('master').Value:='FIO';
  ParamByName('infa_zakaz').Value:='gggggg';
  ParamByName('infa_klient').Value:='111111';
  ParamByName('status').Value:='0';

 end;
 execsql;
end;
end;

[Serge_Bliznykov]

для начала, попробуйте в Tab1 изменить имя поля date на любое другое, отличное от ключевого слова, например, переименуйте данное поле в DateZakaz.

тогда ваш запрос можно будет записать в виде:

sql.text:='insert into tab1 (DateZakaz, zakaz, kvitan, naprovlenie, master, infa_zakaz, infa_klient, status) '+
' values (:dtzak, :zakaz, :kvitan, :naprovlenie, :master, :infa_zakaz, :infa_klient, :status) ';
 with Params  do
 begin
  ParamByName('dtzak').Value:=date();
.....