p_alg.SQLSRV_conn: TSQLConnection;
rs : TSimpleDataSet;
p_alg.SQLSRV_conn := TSQLConnection.Create( self);
p_alg.SQLSRV_conn.Connected := False;
p_alg.SQLSRV_conn.ConnectionName := ''; //'odbctest';
p_alg.SQLSRV_conn.DriverName := 'Dbx Open
Odbc Driver';
p_alg.SQLSRV_conn.GetDriverFunc := 'getSQLDriverODBC';
p_alg.SQLSRV_conn.KeepConnection := True;
p_alg.SQLSRV_conn.LibraryName := 'dbxoodbc.dll';
p_alg.SQLSRV_conn.LoadParamsOnConnect := False;
p_alg.SQLSRV_conn.LoginPrompt := false;
p_alg.SQLSRV_conn.Params.Add( 'DriverName=Dbx Open
Odbc Driver');
p_alg.SQLSRV_conn.Params.Add( 'Database=Lalelu'); // ????
p_alg.SQLSRV_conn.Params.Add( 'User_Name=Leo');
p_alg.SQLSRV_conn.Params.Add( 'Password=Leo');
p_alg.SQLSRV_conn.Tag := 0;
p_alg.SQLSRV_conn.VendorLib := 'ODBC32.DLL';
p_alg.db_nameb := '';
sql_text := 'SELECT * FROM Blabla';
rs.Connection := p_alg.SQLSRV_conn;
rs.DataSet.CommandText := sql_text;
rs.Active := True;
rs.First;
For i := 0 To rs.RecordCount - 1 do
begin
rs.Edit;
rs.FieldByName( 'blablubb').Value := 'test';
End;
Ich hoffe, ich habe nun alle Zeilen, die für den Aufruf von Belang sind, gefunden.