Всем доброго времени суток!)) Снова я со своими файлами(( У меня к Вам такой вопрос. Имеется форма:
аываыв.jpg
С этой формы нужно сохранить данные в бд Access. Для этого прописываю процедуру по нажатию на кнопку сохранить, но выдает ошибку "Ошибка синтаксиса в инструкции Insert into", подскажите что можно сделать? за ранее всем спасибо :
Цитата:
procedure TForm1.BitBtn7Click(Sender: TObject);
var i: integer;
begin
with form1.ADOQuery1 do
begin
SQL.Clear;
SQL.Add(' INSERT INTO zakaz (id,ФИО,Телефон,Адрес,E-mail,Заказ,Поставщики)'+
'VALUES (null,:fio, :Tel, :mail, :adres, :zakaz, ost,)');
Parameters.ParamByName('fio').Value:=edit1.Text;
Parameters.ParamByName('Tel').Value:=edit2.Text;
Parameters.ParamByName('mail').Value:=edit3.Text;
Parameters.ParamByName('adres').Value:=edit4.Text;
if CheckBox1.Checked then
Parameters.ParamByName('zakaz').Value:=CheckBox1.C aption;
if CheckBox2.Checked then
Parameters.ParamByName('zakaz').Value:=CheckBox2.C aption;
if CheckBox3.Checked then
Parameters.ParamByName('zakaz').Value:=CheckBox3.C aption;
if CheckBox4.Checked then
Parameters.ParamByName('zakaz').Value:=CheckBox4.C aption;
if CheckBox5.Checked then
Parameters.ParamByName('zakaz').Value:=CheckBox5.C aption;
Parameters.ParamByName('post').Value:=ListBox1.ite ms.Text;
ExecSQL;
edit1.clear;
edit2.clear;
Edit3.clear;
Edit4.clear;
CheckBox1.Checked:=false;
CheckBox2.Checked:=false;
CheckBox3.Checked:=false;
CheckBox4.Checked:=false;
CheckBox5.Checked:=false;
for i:=0 to 15 do
ListBox1.Selected[i]:=false;
ShowMessage('Запись добавлена!');
end;
end;
|