Buscar por:

Criando uma conexão ao dbexpress em tempo de execução

Código

{

O caminho normal para se criar uma conexão com o DBExpress no Delphi e no Kylix é o desenvolvedor colocar um componente TSQLConnection no formulário de com um duplo clique no componente abrir o editor de conexão e setar os parâmetros (drive, caminho do banco de dados, nome da conexão, etc) para indicar a conexão.

Veja agora como fazer isso em tempo de execução.

}

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:ramosinfowebservicesumlbank.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;