[Machine]

Сообщение от vladimirse

Точно!!! Вот я баклан )))

Но ошибка все равно осталась

Помогло:

Код:

var
  s: string;
begin
   s:=IntToStr(DBLookupComboBox1.KeyValue);
   SQLQuery6.Close;
   SQLQuery6.SQL.Clear;
   SQLQuery6.SQL.Add('INSERT INTO `Passwords`.`Pass` (`IDObject`, `login`, `Pass`, `Comment`) VALUES ('+s+','+Edit1.Text+','+Edit2.Text+','+Edit3.Text+')');
   SQLQuery6.ExecSQL;
end;

Как-то вы все усложняете. Легче было бы сделать вместо:

Код:

VALUES ('+s+','+Edit1.Text+','+Edit2.Text+','+Edit3.Text+');

Так:

Код:

VALUES (:s, :text1, :text2, :text3);
SQLQuery6.Params[0].DataType:=ftFixedChar;
SQLQuery6.Params[0].Value:=s;
SQLQuery6.Params[1].DataType:=ftFixedChar;
SQLQuery6.Params[1].Value:=Edit1.Text;
SQLQuery6.Params[2].DataType:=ftFixedChar;
SQLQuery6.Params[2].Value:=Edit2.Text;
SQLQuery6.Params[3].DataType:=ftFixedChar;
SQLQuery6.Params[3].Value:=Edit3.Text;