Who knows how work TODBCConnection ?
lazarus / 16-Databases

----------------------------------------------------------------------
JeanChriChri · 2008-05-22 13:59

Hi all,

There is nothing all over the web, no example !  

Who could give a simple-but-good example of ODBC (unit odbcconn)

Thank you.

----------------------------------------------------------------------
JeanChriChri · 2008-05-22 15:37

At last, I found ONE example.



program Test;

uses
    Classes, odbcconn, sqldb;

var
   aODBCConn : TODBCConnection;
   aODBCTransaction : TSQLTransaction;
   aSQLQuery : TSQLQuery;

begin

     aODBCConn := TODBCConnection.Create(Nil);
     with aODBCConn do
     begin
          DatabaseName := 'SomeDataBase';
          HostName := 'MSSQLServer';
          Driver := 'SQL Server';
          Password := 'pass';
          Username := 'sa';
          Open;
     end;

     aODBCTransaction := TSQLTransaction.Create(nil);
     aODBCTransaction.DataBase := aODBCConn;

     aSQLQuery := TSQLQuery.Create(nil);
     with aSQLQuery do
     begin
          DataBase := aODBCConn;
          Transaction := aODBCTransaction;
          SQL.Clear;
          SQL.Add('SELECT * FROM claim WHERE inc=12');
          Open;
     end;

     aSQLQuery.Close;
     aSQLQuery.Free;

end.