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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

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;

{/codecitation}

Добавить комментарий