Ошибка в добавлении(INSERT INTO)

[manula]

Уважаемые не могли бы вы мне подсказать в чем проблема, не выполняется запрос, вот мой код:

with DataMod.ADOQuery3 do
 begin
  Close; 
  SQL.Clear; 
  SQL.Add('INSERT INTO [tb_deals]');
  SQL.Add('(client,summa,from,to,percent,type)');
  SQL.Add(' VALUES (');
  SQL.Add(#39 + Tb_Client.Text + #39 + ',' + #39 + Tb_sum.Text + #39 + ','); 
  SQL.Add(#39 + Tb_ot.Text + #39 + ',' + #39 + Tb_do.Text  + #39 + ',');
 SQL.Add(#39 + Tb_pro.Text + #39 + ',' + #39 + Cb_type.Text  + #39 + ')');
  ExecSQL;
end;

Ошибку выдает:

Ошибка синтаксиса в инструкции INSERT INTO

Пытался разобраться так и не понял в чем проблема.
Структура таблицы из БД:

client текстовый тип,
summa -числовой тип,
from-числовой тип,
to-числовой тип,
percent-числовой тип,
type-текстовый тип

[Аватар]

Как минимум лишние кавычки (#39) для значений из списка VALUES для числовых полей. Могу еще предположить, что имя одного из полей from, to, type запросто может провайдеру или СУБД не понравиться, не мешало бы в квадратные скобки взять. А самый лучший вариант - использовать параметризированный запрос

[manula]

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

[Аватар]

Я не мог бы, поскольку не знаю какие числовые поля целые, а какие с десятичной точкой. Это существенно. Не мешало бы сказать и какая СУБД

[manula]

Вот с параметром,такая же ошибка

with DataMod.ADOQuery3 do
 begin
  Close; 
  SQL.Clear; 
  SQL.Add('INSERT INTO tb_deals');
  SQL.Add('(client, summa, from, to, percent, type)');
  SQL.Add('Values(:cl, :sm, :f, :t, :pr, :tp)');
  Parameters.ParamByName('cl').Value:=Tb_Client.Text;
  Parameters.ParamByName('sm').Value:=Tb_sum.Text;
  Parameters.ParamByName('f').Value:=Tb_ot.Text;
  Parameters.ParamByName('t').Value:=Tb_do.Text;
  Parameters.ParamByName('pr').Value:=Tb_pro.Text;
  Parameters.ParamByName('tp').Value:=Cb_type.Text;
  ExecSQL;
end;

БД Access, поля числовые, не с плавающей запятой!

[Аватар]

Числовым параметрам значения присвойте с помощью StrToInt. При этом данные в эдитах могут быть не подходящими (в том числе и пусто) - тогда прерывание по ошибке будет. Повторюсь, возможно и квадратные скобки понадобятся для некоторых имен полей, очень они уж специфичны

[manula]

Преобразование строки в число(StrToInt) не удалось провести,такая же ошибка возникла, а на счет квадратных скобок первый раз слышу, может и пример есть в наличии?
Если вы имеете в виду так, то тоже не помогло:

SQL.Add('(client, [summa], from, to, [percent], type)');

[Yurk@]

как-то так должно быть

with DataMod.ADOQuery3 do
begin
  Close; 
  SQL.Text := 'INSERT INTO tb_deals ([client],[summa],[from],[to],[percent],[type]) '
    + 'VALUES (:cl, :sm, :f, :t, :pr, :tp)';
  Parameters.ParamByName('cl').Value := StrToIntDef(Tb_Client.Text,0);
  Parameters.ParamByName('sm').Value := StrToIntDef(Tb_sum.Text,0);
  Parameters.ParamByName('f').Value := StrToIntDef(Tb_ot.Text,0);
  Parameters.ParamByName('t').Value := StrToIntDef(Tb_do.Text,0);
  Parameters.ParamByName('pr').Value := StrToIntDef(Tb_pro.Text,0);
  Parameters.ParamByName('tp').Value := StrToIntDef(Cb_type.Text,0);
  ExecSQL;
end;