Цитата:
Сообщение от vladimirse
Точно!!! Вот я баклан )))
Но ошибка все равно осталась
Помогло:
Код:
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 ;
|
|
Как-то вы все усложняете. Легче было бы сделать вместо:
Код:
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;
|