Tabela temporária dinamica

unit UTabTemp;

interface

uses
Dialogs, Windows, SysUtils, Classes, Messages, Forms, Variants, DB, DBClient;

type

  TPesquisa = class(TObject)
  public
    DSFormas: TDataSource;
    CDSFormas: TClientDataSet;

    constructor Create;
    destructor Destroy; Override;
    function Pesquisar(): Integer;
  end;

implementation

{ TPesquisa }

uses Udm;

constructor TPesquisa.Create;
begin
  try
  CDSFormas := TClientDataSet.Create(nil);
  CDSFormas.FieldDefs.add('codigo',ftInteger);
  CDSFormas.FieldDefs.add('descricao',ftString,20);
  CDSFormas.ProviderName := 'teste';
  CDSFormas.CreateDataSet;
  DSFormas := TDataSource.Create(nil);
  DSFormas.DataSet := CDSFormas;
  except on E: Exception do
     ShowMessage( E.Message );
  end;
end;

destructor TPesquisa.Destroy;
begin
  DSFormas.Free;
  CDSFormas.Free;
  inherited;
end;

function TPesquisa.Pesquisar(): Integer;
var sFormaCliente : string;
begin
   CDSFormas.Close;
   CDSFormas.CreateDataSet;
   CDSFormas.IndexFieldNames:= 'codigo';
   CDSFormas.Open;
   if dm.IBTransaction.Active then
      dm.IBTransaction.Commit;
   dm.IBTransaction.StartTransaction;
   try
     try
       with dm.QProduto do
          begin
             close;
             sql.Clear;
             sql.Text:= 'SELECT CODIGO, DESCRICAO FROM PRODUTOS';
             open;
             while not eof do
                begin
                         begin
                            CDSFormas.Append;
                            CDSFormas.FieldByName('codigo').AsInteger           := fieldbyname('codigo').AsInteger;
                            CDSFormas.FieldByName('descricao').AsString         := fieldbyname('descricao').AsString;
                            CDSFormas.Post;
                         end;
                   next;
                end;
          end;
       dm.IBTransaction.Commit;
     except
       dm.IBTransaction.Rollback;
       showmessage('erro ao buscar PRODUTOS');
     end;
   finally
     dm.QConsulta.close;
     CDSFormas.First;
   end;
end;

end.