Quick Tips : Conhecendo o no DBExpress - Parte II

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

Veja nesta Quick um pouco sobre a nova infra estrutura do DBExpress


Olá galera, nesta Quick Tips, irei continuar falando sobre o novo DBExpress que temos no Delphi.

 

            Veremos como criar comandos de Inclusão, Deleção e Alteração. Utilizando aquela mesma classe, desenvolvida na parte anterior

 

unit uDBExpressTest;

 

interface

 

uses

   DBXCommon, DBXFirebird, Dialogs, SysUtils;

 

Type

  TDBExpressTest = Class

   private

   public

  property DBXConn : TDBXConnection;

  property Cmnd : TDBXCommand;

  property Reader : TDBXReader;

  property ConnectionName: String;

  property UserName: String;

  property Password: String;

  procedure ExecuteComand;

{Novos comandos}

  procedure InsertComand;

  procedure UpdateComand;

  procedure DeleteComand;

 

End;

 

Implementation

 

end.

 

Vamos agora as implementações de cada Procedure.

 

InsertComand

 

procedure TDBExpressTest.InsertComand;

begin

 FDBXConn :=

 TDBXConnectionFactory.GetConnectionFactory.GetConnection(

 FConnectionName,FUserName, FPassword);

 if FDBXConn <> nil then

 begin

  FCmnd := FDBXConn.CreateCommand;

  FCmnd.Text := 'INSERT INTO CLIENTE (IDCLIENTE, DESCRICAO,    

  SEXO)' +

  'VALUES (11, ' + QuotedStr('WESLEY YAMAZACK') + ', ' +   

  QuotedStr('M') + ') ';

  FCmnd.Prepare;

  FCmnd.ExecuteQuery;

  FCmnd.Close;

 end;

end;

 


UpdateComand

 

procedure TDBExpressTest.UpdateComand;

begin

 FDBXConn :=       

 TDBXConnectionFactory.GetConnectionFactory.GetConnection(

 FConnectionName,FUserName, FPassword);

 if FDBXConn <> nil then

 begin

  FCmnd := FDBXConn.CreateCommand;

  FCmnd.Text := ' UPDATE CLIENTE '+

  ' SET DESCRICAO = ' +QuotedStr('WESLEY Y.') +

  ' WHERE IDCLIENTE = 11';

  FCmnd.Prepare;

  FCmnd.ExecuteQuery;

  FCmnd.Close;

 end;

end;

 

 

DeleteComand

 

procedure TDBExpressTest.DeleteComand;

begin

 FDBXConn :=  

 TDBXConnectionFactory.GetConnectionFactory.GetConnection(

 FConnectionName,FUserName, FPassword);

 if FDBXConn <> nil then

 begin

  FCmnd := FDBXConn.CreateCommand;

  FCmnd.Text := 'DELETE FROM CLIENTE ' +

                ' WHERE IDCLIENTE = 11';

  FCmnd.Prepare;

  FCmnd.ExecuteQuery;

  FCmnd.Close;

 end;

end;

 

            Com isso encerro esta segunda parte das dicas do novo DBExpress, porém tem muito mais coisas além destas duas partes que mostrei a vocês, podem notar que na pasta de instalação do Delphi 2010, por exemplo, tem uma pasta com o código fonte das units, veja o caminho, C:\Program Files\Embarcadero\RAD Studio\7.0\source\, para pesquisar mais units, analise nesta pasta.

 

Fico por aqui ate à próxima Quick Tips

 

 

Um abraço

 

Wesley Y

wyamazack@rwsolution.com.br

 


 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?