Ошибка при добавлении данных в БД ( insert into )

[курбанниязов]

procedure TForm16.Button1Click(Sender: TObject);
var s,m:String;
begin
begin
s:='INSERT INTO Заказы ([Наименование], [Цена на 1 ед], [Вес/Объем], [Количество],[Итого цена],[Статус]) VALUES ('+QuotedStr(dbLookUpComboBox1.Text )+', '+(DBEdit1.Text)+', '+(DBEdit2.Text)+','+(DBEdit3.Text) +','+(DBEdit4.Text)+','+QuotedStr(D BComboBox2.Text)+')';
DataModuleMenu.ADOQuery4.Close;
DataModuleMenu.ADOQuery4.SQL.Clear;
DataModuleMenu.ADOQuery4.SQL.Add(s) ;

s:='SELECT Блюда.[Цена на 1 ед], Блюда.[Вес/Объем], Блюда.Наименование, [Виды Блюд].[Наименование категории] FROM [Виды Блюд] INNER JOIN Блюда ON [Виды Блюд].Код_вида = Блюда.Код_Вида WHERE ((([Виды Блюд].[Наименование категории])="Горячие напитки"))';
DataModuleMenu.ADOQuery4.Close;
DataModuleMenu.ADOQuery4.SQL.Clear;
DataModuleMenu.ADOQuery4.SQL.Add(s) ;
DataModuleMenu.AdoQuery4.Active:=fa lse;
DataModuleMenu.AdoQuery4.Active:=tr ue;


m:='INSERT INTO Заказы ([Номер столика], [Официант]) VALUES ('+QuotedStr(dbLookUpComboBox2.Text )+', '+(DBEdit6.Text)+')';
DataModuleMenu.ADOQuery5.Close;
DataModuleMenu.ADOQuery5.SQL.Clear;
DataModuleMenu.ADOQuery5.SQL.Add(s) ;


m:='SELECT Сотрудники.Фамилия, [Закрепление рабочего места].[Номер столика] FROM Сотрудники INNER JOIN [Закрепление рабочего места] ON Сотрудники.[Код сотрудника] = [Закрепление рабочего места].[Код сотрудника]';
DataModuleMenu.ADOQuery5.Close;
DataModuleMenu.ADOQuery5.SQL.Clear;
DataModuleMenu.ADOQuery5.SQL.Add(s) ;
DataModuleMenu.AdoQuery5.Active:=fa lse;
DataModuleMenu.AdoQuery5.Active:=tr ue;
DataModuleMenu.ADOQuery5.ExecSQL;
try
begin
DataModuleMenu.ADOQuery5.ExecSQL;
ShowMessage('Запись успешно сохранена! ');
end
except
ShowMessage('Ошибка записи!');
end;
form16.hide;
end

[eval]

программиста надо сюда приглашать
который "программу" скоренько закинет в мусорную корзину и напишет так как надо

[курбанниязов]

[QUOTE=eval;1377421]программиста надо сюда приглашать
который "программу" скоренько закинет в мусорную корзину и напишет так как надо[/QUOT


В смысле????????

[eval]

в прямом смысле
то что у вас это адъ и израиль...
его исправить нельзя, только удалить и написать все с ноля.

ваша субд пакетные запросы поддерживает?
про параметры чего слышали?

AdoQuery5.Active:=fa lse;
AdoQuery5.Active:=tr ue;
ADOQuery5.ExecSQL;
try
begin
ADOQuery5.ExecSQL;
эта ваще пестня ...

[Stilet]

В смысле????????

В смысле что эту программу проще написать с нуля чем что-то исправить.
Вот например - я тебе говорил чтоб исключения обрабатывал нормально? Говорил - http://www.programmersforum.ru/showthread.php?t=260383.
А ты что написал?
И вот это:

DataModuleMenu.AdoQuery5.Active:=tr ue;
DataModuleMenu.ADOQuery5.ExecSQL;

Так писать не надо. Хочешь SELECT пиши Active:=true; Хочешь остальное - пиши ExecSQL. Не мешай их вместе.

[курбанниязов]

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)+','
+QuotedStr(DBComboBox2.Text)+','+(dbLookUpComboBox2.Text)+','+ (DBEdit6.Text)+')';
DataModuleMenu.ADOQuery1.Close;
DataModuleMenu.ADOQuery1.SQL.Clear;
DataModuleMenu.ADOQuery1.SQL.Add(s);
try
begin
DataModuleMenu.ADOQuery1.ExecSQL;
ShowMessage('Запись успешно сохранена!');
end
except
ShowMessage('Ошибка записи!');
end;
form16.hide;
end
end;

Выдает ошибку значение фамилии не имеет значение по умолчанию

[Stilet]

Значит есть поле "Фамилия" которое требуется в этом INSERT тоже вставлять.

Да, и еще Будь ласка: Код выделяй спецтегом по кнопке # на панели инструментов поста.

[курбанниязов]

[QUOTE=Stilet;1377753]Значит есть поле "Фамилия" которое требуется в этом INSERT тоже вставлять.

Как это реализовать совсем запутался.

[Stilet]

Здрасьте... Ты же сам запрос написал.

s:='INSERT INTO Заказы (
  [Наименование]
, [Цена на 1 ед]
, [Вес/Объем]
, [Количество]
,[Итого Цена]
,[Статус]
,[Номер столика]
,[Официант]
,[Фамилия]
)VALUES ('+
     QuotedStr(dbLookUpComboBox1.Text)
+', '+DBEdit1.Text
+', '+DBEdit2.Text
+','+DBEdit3.Text
+','+DBEdit4.Text
+','+QuotedStr(DBComboBox2.Text)
+','+dbLookUpComboBox2.Text
+','+DBEdit6.Text)
+','+QuotedStr(DBЭдитСФамилиейИлиЕщеОткуда-то.Text)
+')';

Ну? Не тормози же. У тебя же в коде перед глазами пример INSERT запроса с указанными в нем полями и данными.