Ligar TDataSource a TClientDataSet. Tem como?

Delphi

29/09/2008

Tem como criar um TDataSource em runtime e liga-lo a um TClientDataset também em runtime?

Abraços


Frostlost

Frostlost

Curtidas 0

Respostas

Adriano Santos

Adriano Santos

29/09/2008

Nesse exemplo estou criando um DBNavigator, DBGrid, ClientDataSet e DataSource todos em runtime e ligando-os uns aos outros. Apenas coloque um Button na tela e codifique como abaixo. Depois baseie-se nesse código para entender o funcionamento.

procedure TForm1.Button1Click(Sender: TObject);
var
  DbNav: TDbNavigator;
  DbGrid: TDbGrid;
  DS: TDataSource;
  CDS: TClientDataSet;
begin
  { Criação do DataSource e ClientDataSet }
  CDS := TClientDataSet.Create(Form1);
  CDS.FileName := ´C:\Arquivos de programas\Arquivos comuns\Borland Shared7\Data\country.xml´;
  CDS.Open;
  DS := TDataSource.Create(Form1);
  DS.DataSet := CDS;
  { Criação do DBNavigator }
  DbNav := TDbNavigator.Create(Form1);
  with DbNav do
  begin
    Parent := Form1;
    Left := 8;
    Top := 8;
    DataSource := DS;
  end;
  { Criação do DBGrid }
  DbGrid := TDBGrid.Create(Form1);
  with DbGrid do
  begin
    Parent := Form1;
    Left := 8;
    Top := 40;
    Width := 385;
    Height := 161;
    DataSource := DS;
  end;
  Form1.Width := 408;
  Form1.Height := 244;
end;



GOSTEI 0
Adriano Santos

Adriano Santos

29/09/2008

Não esqueça de declarar na Uses as seguintes Units do Delphi.

uses
  StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBClient;



GOSTEI 0
POSTAR