DBX 4 Framework (Delphi 2007 para Win32)

Definitivamente DBX 4 facilita a vida do desenvolvedor, é muito fácil utilizar o framework.

Abaixo um exemplo que mostra o quão fácil é utilizar o Framework do DBX, este exemplo conecta ao banco de dados, lê os parâmetros de conexão, inicia uma transação, executa uma consulta e comita a transação.

program DBX4Example; {$APPTYPE CONSOLE} uses SysUtils, DBXDynalink, Dialogs, DBXCommon; var aConnName: string; aDBXConn: TDBXConnection; aDBXTrans : TDBXTransaction; aCmnd: TDBXCommand; aReader: TDBXReader; aColCount: integer; begin aDBXConn := TDBXConnectionFactory.GetConnectionFactory.GetConnection('EMPLOYEE','sysdba','masterkey'); if aDBXConn <> nil then begin // Write the all connection parameters Writeln( '===================== Connection Properties ===============' ); WriteLn( aDBXConn.ConnectionProperties.Properties.Text); Writeln( '====================================================' ); Writeln( '' ); aCmnd := aDBXConn.CreateCommand; // Start transaction aDBXTrans:= aDBXConn.BeginTransaction(TDBXIsolations.ReadCommitted); // Prepare and execute the SQL Statement aCmnd.Text := 'SELECT * FROM Country'; aCmnd.Prepare; aReader := aCmnd.ExecuteQuery; aColCount := aReader.ColumnCount; Writeln( 'Results from Query: ' + aCmnd.Text ); Writeln( 'Number of Columns: ' + IntToStr(aColCount) ); while aReader.Next do begin Writeln( aReader.Value['Country'].GetAnsiString ); end; Writeln( '====================================================' ); Writeln( '' ); // Commit transaction aDBXConn.CommitFreeAndNil(aDBXTrans); Readln; aReader.Free; aCmnd.Free; aDbxConn.Free; end; end.

O resultado é:

================= Connection Properties ============
DelegateConnection=
DriverName=Interbase
DriverUnit=DBXDynalink
DriverPackageLoader=TDBXDynalinkDriverLoader
DriverPackage=DBXCommonDriver110.bpl
DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader
DriverAssembly=Borland.Data.DbxCommonDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=a91a7c5705831a4f
Database=localhost:C:CodeGearInterBaseexamplesdatabaseemployee.ib
RoleName=RoleName
User_Name=sysdba
Password=masterkey
ServerCharSet=
SQLDialect=3
BlobSize=-1
CommitRetain=False
WaitOnLocks=True
ErrorResourceFile=
LocaleCode=0000
Interbase TransIsolation=ReadCommited
Trim Char=False
ConnectionName=Employee

====================================================

Results from Query: SELECT * FROM Country
Number of Columns: 2
USA
England
Canada
Switzerland
Japan
Italy
France
Germany
Australia
Hong Kong
Netherlands
Belgium
Austria
Fiji
teste
ss
aaaa
aaa1
brazil
====================================================

---

Outros artigos do mesmo autor:
DBX 4 Framework - Class Diagram - Delphi 2007 for Win32

Traduções deste artigo:
Versión en Español clic acá
English Version click here