Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 28.04.2012, 14:28
Alexi Alexi вне форума
Прохожий
 
Регистрация: 27.03.2012
Сообщения: 10
Репутация: 10
По умолчанию Базы данных в делфи

Всем доброго времени суток!)) Снова я со своими файлами(( У меня к Вам такой вопрос. Имеется форма: аываыв.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;
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 12:21.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025