Создание DBExpress-Connection в Run-Time

Previous  Top  Next

    
 

 

 

Code:

procedure TVCLScanner.PostUser(const Email, FirstName, LastName: WideString);

var

Connection: TSQLConnection;

DataSet: TSQLDataSet;

begin

Connection := TSQLConnection.Create(nil);

with Connection do

begin

   ConnectionName := 'VCLScanner';

   DriverName := 'INTERBASE';

   LibraryName := 'dbexpint.dll';

   VendorLib := 'GDS32.DLL';

   GetDriverFunc := 'getSQLDriverINTERBASE';

   Params.Add('User_Name=SYSDBA');

   Params.Add('Password=masterkey');

   Params.Add('Database=milo2:D:\frank\webservices\umlbank.gdb');

   LoginPrompt := False;

   Open;

end;

DataSet := TSQLDataSet.Create(nil);

with DataSet do

begin

   SQLConnection := Connection;

   CommandText := Format('INSERT INTO kings VALUES("%s","%s","%s")',

     [Email, FirstN, LastN]);

   try

     ExecSQL;

   except

   end;

end;

Connection.Close;

DataSet.Free;

Connection.Free;

end;

 

 

©Drkb::02687

       

Взято с http://delphiworld.narod.ru