criação de dataSource em tempo de execução

Delphi

02/12/2007

E ai Galera Blz!
Bom estou com a seguinte duvida:
como eu faria para linkar um datasource a um dbgrid em tempo de execução pois eu crio uma rotina em uma unit criando as query tudo em tempo de execução só que eu gostaria de colocar o resultado dessa query criada em um dbgrid mas não sei como criar um datasource junto com a query e depois linkar em um dbgrid :(

Sera que Alguem Podia me ajudar :?:


Agradeço desde já :wink:


Alecsandro Moura

Alecsandro Moura

Curtidas 0

Respostas

Silviogs

Silviogs

02/12/2007

Olá

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ZAbstractRODataset, ZAbstractDataset, ZDataset,
ZConnection, Grids, DBGrids;

type
TForm1 = class(TForm)
ZConnection1: TZConnection;
DBGrid1: TDBGrid;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
Query : TZQuery;
Ds : TDataSource;
begin
Query := TZQuery.Create(self);
Ds := TDataSource.Create(self);
Query.Close;
Query.SQL.Add(´select * from estoque´);
Query.Connection := ZConnection1;
Ds.DataSet := Query;
DBGrid1.DataSource := Ds;
Query.Open
end;

end.


Silvio Guedes


GOSTEI 0
POSTAR