Ошибка синтаксиса в инструкции INSERT INTO / Delphi и базы данных - Помощь студентам

курбанниязов · 23.05.2014, 15:23

procedure TForm16.Button1Click(Sender: TObject);
var s:String;
begin
begin
s:='INSERT INTO Заказы ([Наименование], [Цена на 1 ед], [Вес/Объем], [Количество],[Итого цена],[Официант] [Номер столика],[Статус]) VALUES ('+QuotedStr(dbLookUpComboBox1.Text )+', '+(DBEdit1.Text)+', '+(DBEdit2.Text)+','+(DBEdit3.Text) +','+(DBEdit4.Text)+','+(DBEdit6.Te xt)+','+QuotedStr(DBComboBox2.Text) +')';
DataModuleMenu.ADOQuery1.Close;
DataModuleMenu.ADOQuery1.SQL.Clear;
DataModuleMenu.ADOQuery1.SQL.Add(s) ;
try
begin
DataModuleMenu.ADOQuery1.ExecSQL;
ShowMessage('Запись успешно сохранена!');
end
except
ShowMessage('Ошибка записи!');
end;
DataModuleMenu.ADOTableZakazy.Activ e:=false;
DataModuleMenu.ADOTableZakazy.Activ e:=true;
form16.hide;
end
end;

p51x · 23.05.2014, 15:34

Начните с сравнения кол-ва вставляемые столбцов и кол-ва значений для них.

Serge_Bliznykov · 23.05.2014, 15:39

Вам ещё не надоело нарушать правила форума??!?

1) кросспост (создание одинаковых тем и сообщений) на форуме СТРОГО запрещён!

Ваша тема тут:
Ошибка синтаксиса INSERT INTO

2) если публикует код на форуме, то его нужно форматировать с помощью специальных тегов.
Для этого нужно выделить текст программы и нажать на кнопочку c решёточкой (#) на панели форматирования

Модератор

23.05.2014, 15:23	#1
курбанниязов Пользователь Регистрация: 29.09.2013 Сообщений: 59	Ошибка синтаксиса в инструкции INSERT INTO / Delphi и базы данных procedure TForm16.Button1Click(Sender: TObject); var s:String; begin begin s:='INSERT INTO Заказы ([Наименование], [Цена на 1 ед], [Вес/Объем], [Количество],[Итого цена],[Официант] [Номер столика],[Статус]) VALUES ('+QuotedStr(dbLookUpComboBox1.Text )+', '+(DBEdit1.Text)+', '+(DBEdit2.Text)+','+(DBEdit3.Text) +','+(DBEdit4.Text)+','+(DBEdit6.Te xt)+','+QuotedStr(DBComboBox2.Text) +')'; DataModuleMenu.ADOQuery1.Close; DataModuleMenu.ADOQuery1.SQL.Clear; DataModuleMenu.ADOQuery1.SQL.Add(s) ; try begin DataModuleMenu.ADOQuery1.ExecSQL; ShowMessage('Запись успешно сохранена!'); end except ShowMessage('Ошибка записи!'); end; DataModuleMenu.ADOTableZakazy.Activ e:=false; DataModuleMenu.ADOTableZakazy.Activ e:=true; form16.hide; end end;

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Ошибка синтаксиса в инструкции UPDATE.	Bane	БД в Delphi	5	21.03.2014 14:14
ошибка синтаксиса в инструкции update	pas666	БД в Delphi	8	04.11.2013 21:54
Ошибка синтаксиса в инструкции Update	BioNoob	БД в Delphi	8	19.06.2012 09:41
Ошибка синтаксиса в инструкции INSERT INTO	Crystal2002	C/C++ Базы данных	5	27.04.2012 21:49
Ошибка синтаксиса в инструкции insert into	sectorb	БД в Delphi	5	24.11.2011 09:23

23.05.2014, 15:34	#2
p51x Старожил Регистрация: 15.02.2010 Сообщений: 15,709	Начните с сравнения кол-ва вставляемые столбцов и кол-ва значений для них.

23.05.2014, 15:39	#3
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	Вам ещё не надоело нарушать правила форума??!? 1) кросспост (создание одинаковых тем и сообщений) на форуме СТРОГО запрещён! Ваша тема тут: Ошибка синтаксиса INSERT INTO 2) если публикует код на форуме, то его нужно форматировать с помощью специальных тегов. Для этого нужно выделить текст программы и нажать на кнопочку c решёточкой (#) на панели форматирования Модератор