lazarus + Ms Sql server 2005

[mr.yudin2009]

Доброго время суток!

Возникла проблема не могу передать данные полученные из файла, хранящиеся в переменных s,s1,s4,s5.(требуется просто внести данные в таблицу)

procedure TForm1.Button4Click(Sender: TObject);
var
conn : TODBCConnection; // uses ODBCConn
query: TSQLQuery; // uses sqldb
transaction: TSQLTransaction; // uses sqldb

begin
s:='4';
conn := TODBCCOnnection.Create(nil);
query := TSQLQuery.Create(nil);
transaction := TSQLTransaction.Create(nil);
try
try
conn.DatabaseName := 'myDSN'; {replace this with your DSN, if you use any}
conn.UserName:= 'sa'; //replace with your user name
conn.Password:= '13934922'; //replace with your password

conn.Transaction := transaction;
query.DataBase := conn;
query.SQL.Add('INSERT INTO table_1 (id, fio , date, pol) VALUES('+#39+s+#39+','+#39+s1+#39+', '+#39+s3+#39+', '+#39+s5+#39+');');
query.Open;
finally
query.Free;
conn.Free;
transaction.Free;
end;
except
on E: Exception do
ShowMessage(E.message);
end;
end;

[SeZuka]

Возможно надо вместо TSQLQuery использовать TSQLScript ?

[amateur]

Код: Выделить всё

query.SQL.Add('INSERT INTO table_1 (id, fio , date, pol) VALUES('+#39+s+#39+','+#39+s1+#39+', '+#39+s3+#39+', '+#39+s5+#39+');');

неужели после идет

Код: Выделить всё

query.Open;

? Даже если использовать

TSQLScript