Работа INSERT INTO

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

Есть 2 таблицы Одна таблица Заказы вторая таблица Меню выбираю с таблицы выборочно и добаляю в таблицу Заказы то что написана в ручную в эдитах они в биваються точто написана через insert into не вбиваеться что делать вчем вся заглоска(

procedure TForm16.Button1Click(Sender: TObject);
var s:String;
begin
   if  (DBEdit3.Text='') then
 ShowMessage('Количество') else
  if  (DBEdit5.Text='') then
 ShowMessage('Дата') else
 if  (DBEdit6.Text='') then
 ShowMessage('Номер столика') else
 if  (DBComboBox2.Text='') then
 ShowMessage('Статус') else
   begin
    if DataModuleMenu.AdoTableZakazy.Modified then
        begin
        //s:='INSERT INTO Заказы ([Наименование], [Цена на 1 ед]) VALUES ('
+QuotedStr(dbLookUpComboBox1.Text)+', '+QuotedStr(DBEdit1.Text)+')';
          s:='INSERT INTO Заказы ([Наименование], [Цена на 1 ед], [Вес/Объем]) VALUES ('+QuotedStr(dbLookUpComboBox1.Text)+', 
'+QuotedStr(DBEdit1.Text)+', '+QuotedStr(DBEdit2.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.Active:=false;
      DataModuleMenu.ADOTableZakazy.Active:=true;
    form16.hide;
    end
    else
    form16.hide;
end;
end;

[BARNEY]

s:='INSERT INTO Заказы ([Наименование], [Цена на 1 ед], [Вес/Объем]) VALUES ('''
+QuotedStr(dbLookUpComboBox1.Text )+''', '''+QuotedStr(DBEdit1.Text)+''', '''+QuotedStr(DBEdit2.Text)+''')';

[Stilet]

''', '''

Не понял... Это зачем?
ИМХО нужно +','+

[BARNEY]

Ага сори.... Ваша правда не заметил QuotedStr .

тогда проблема в русских названиях.. хотя надо смотреть текст запроса на выходе.

 s:='INSERT INTO Заказы ([Наименование], [Цена на 1 ед], [Вес/Объем]) VALUES ('+QuotedStr(dbLookUpComboBox1.Text)+', 
'+QuotedStr(DBEdit1.Text)+', '+QuotedStr(DBEdit2.Text)+')';
inputbox('','',s);

результат сюда

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

Выдает ошибку
Размер поля не достаточен чтобы принять добавляемые данные!!

[Stilet]

QuotedStr(DBEdit1.Text)

Тримирруй строку:

QuotedStr(Trim(DBEdit1.Text))

По крайней мере попробуй триммировать все параметры.

[eval]

тут триммировать надо совсем другое
почему цена строкой? почему объем строкой?
сколько длина в имени и в типе наименования?

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

s:='INSERT INTO Заказы ([Наименование]) VALUES ('+QuotedStr(dbLookUpComboBox1.Text )+')';- этот кусок на наименование добавляет!!!!

s:='INSERT INTO Заказы ([Наименование], [Цена на 1 ед], [Вес/Объем]) VALUES ('+QuotedStr(dbLookUpComboBox1.Text )+',
'+QuotedStr(DBEdit1.Text)+', '+QuotedStr(DBEdit2.Text)+')';-На этот кусок он вообще не реагирует(

Что сделать можно будет?