[vladimirse]

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

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

Код:

1 2 3 4

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]

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

[Yurk@]

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

Код:

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

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

Код:

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

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

[vladimirse]

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

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

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

[vladimirse]

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

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

Код:

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

Код:

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

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

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

Помогло:

Код:

1 2 3 4 5 6 7 8 9

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

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

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

Помогло:

Код:

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

Код:

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

Так:

Код:

1 2 3 4 5 6 7 8 9

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;