[vladimirse]

Доброго времени суток, уважаемые!
Пытаюсь запросом записать значения полей и DBLookupComboBox1.KeyValue
выдает ошибку: Invalid variant type cast

Вот таким вот способом:

Код:

   SQLQuery.Close;
   SQLQuery.SQL.Clear;
   SQLQuery.SQL.Add('INSERT INTO `Passwords`.`Pass` (`IDObject`, `login`, `Pass`, `Comment`) VALUES ('+DBLookupComboBox1.KeyValue+','+DBLookupComboBox2.KeyValue+','+Edit1.Text+','+Edit2.Text+','+Edit3.Text+')');
   SQLQuery.ExecSQL;    

[Aristarh Dark]

Не может видимо провести приобразование типов. Приводи к строке вручную.

[vladimirse]

Сообщение от Aristarh Dark

Не может видимо провести приобразование типов. Приводи к строке вручную.

Подскажите пожалуйста, как можно преобразовать неизвестный тип в строку?

[Yurk@]

мне показалось или у тебя 4 поля

Код:

(`IDObject`, `login`, `Pass`, `Comment`)

и 5 параметров

Код:

('+DBLookupComboBox1.KeyValue+','+DBLookupComboBox2.KeyValue+','+Edit1.Text+','+Edit2.Text+','+Edit3.Text+')

?
зы. и да, используй параметры в запросе - меньше головняка будет

[vladimirse]

Сообщение от Yurk@

мне показалось или у тебя 4 поля

Код:

(`IDObject`, `login`, `Pass`, `Comment`)

и 5 параметров

Код:

('+DBLookupComboBox1.KeyValue+','+DBLookupComboBox2.KeyValue+','+Edit1.Text+','+Edit2.Text+','+Edit3.Text+')

?
зы. и да, используй параметры в запросе - меньше головняка будет

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

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

Помогло:

Код:

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;

[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;