Добавление записи в таблицу (ADO)

[Yura_S]

Таблица в Access, первый столбец-числовой тип, второй-денежный тип, третий-дата. Нужно чтобы при нажатии на кнопку первые два значения считывались из edit-ов а дата записывалась текущая. Подскажите пожалуста как это можно реализовать, пытался через запрос, но не получилось. Вот мой код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.ADOQuery2.Active:=false;
Form1.ADOQuery2.SQL.Text:=('INSERT INTO Продажи ( т№, сум, дат ) VALUES ('+Edit1.Text+','+Edit2.Text+',DATE) FROM Продажи');
Form1.ADOQuery2.Active:=true;
end;

Помогите пожалуста кто чем может

[Sparky]

Form1.ADOQuery2.close;
Form1.ADOQuery2.SQL.Text:='INSERT INTO Продажи ( id_prod, sum, date_prod ) VALUES (:id,:s,:d);
Form1.Parametrs.ParamByName('id').value:=edit1.text;
Form1.Parametrs.ParamByName('s').value:=edit2.text;
Form1.Parametrs.ParamByName('d').value:=date;
Form1.ADOQuery2.ExecSQl;
Form1.ADOQuery2.open;

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

[soleil@mmc]

а зачем после этого

Form1.ADOQuery2.ExecSQl;

это?

Form1.ADOQuery2.open;

З.Ы.: и за параметризацию - сердечное спасибо

[Yura_S]

на строке с form1.parametrs.. ошибку пишет [Error] Unit1.pas(101): Undeclared identifier: 'Parametrs' я так понял что этого параметра вообще нету.. что делать? может посоветуете почитать что нибудь по этой теме, ничего не получается ато...

[Yura_S]

Возможно выполнить эту задачу с помощью ADOTable? И если да напишите кратко синтаксис пожалуста

[soleil@mmc]

подправьте код у себя

Form1.ADOQuery2.close;
Form1.ADOQuery2.SQL.Text:='INSERT INTO Продажи ( id_prod, sum, date_prod ) VALUES (:id,:s,:d);
Form1.ADOQuery2.Parametrs.ParamByName('id').value:=edit1.text;
Form1.ADOQuery2.Parametrs.ParamByName('s').value:=edit2.text;
Form1.ADOQuery2.Parametrs.ParamByName('d').value:=date;
Form1.ADOQuery2.ExecSQl;

[Yura_S]

Спасибо за ответы, но пока я их ждал, нашёл метод куда проще:

ADOTable2.Active:=true;
ADOTable2.InsertRecord ([StrToInt(Edit1.Text), StrToInt(Edit2.Text),Date]);

Может быть кому нибудь ещё пригодится

[soleil@mmc]

это все работает на простых наборах данных - из одной таблицы
все что сложнее - через запрос/ХП с параметрами

[Serge_Bliznykov]

soleil@mmc
думал, что тема закрыта...
ну, раз есть комментарии, позволю и своё замечание вставить:

и всё таки правильно писать так:
....ADOQuery2.Parameters.ParamByName(......

[soleil@mmc]

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

и всё таки правильно писать так:
....ADOQuery2.Parameters.ParamByName(......

побочный эффект копи-паста
а ТС рекомендуется пользоваться встроенной справкой и Ctrl+пробел при написании кода (имхо приводимые примеры обычно несут смысловую нагрузку)