F�rum D�vidas ClientDataSet #229754

04/05/2004

Estou usando o seguinte c�digo em um bot�o:

  Query := TIBQuery.Create(Self);
  Prov  := TDataSetProvider.Create(Self);
  CliDS := TClientDataSet.Create(Self);
  DS    := TDataSource.Create(Self);

  Query.Database    := IBDatabase1;
  Query.Transaction := IBTransaction1;
  Query.SQL.Add(Edit1.Text);

  Prov.DataSet := Query;
  Prov.Name := �Prov�;

  CliDS.ProviderName := Prov.Name;

  DS.DataSet := CliDS;

  DBGrid1.DataSource := DS;

  CliDS.Active := True;

meu DBGrid mostra tudo como se deve.

Mas se eu uso o c�digo dentro de uma classe criada por mim, TCliente por exemplo:

constructor TCliente.Create;
begin
  Query := TIBQuery.Create(Query);
  Prov  := TDataSetProvider.Create(Prov);
  CliDS := TClientDataSet.Create(CliDS);
  DS    := TDataSource.Create(DS);

  Query.Database    := IBDatabase1;
  Query.Transaction := IBTransaction1;
  Query.SQL.Add(Edit1.Text);

  Prov.DataSet := Query;
  Prov.Name := �Prov�;

  CliDS.ProviderName := Prov.Name;

  DS.DataSet := CliDS;
end;

e depois no bot�o crio a classe e tento utilizar suas propriedades:

var
  Cliente: TCliente;
begin
  Cliente := TCliente.Create;
  Cliente.Query.SQL.Add(Edit1.Text);
  DBGrid1.DataSource := Cliente.DS;
  Cliente.CliDS.Active := True;  =====>>>> o problema ocorre nessa linha
end;

recebo a mensagem �Missing Data Provider or data packet�

Algu�m sabe o que fazer?

PS: Minha classe deriva de TObject.

Obrigado.

Gabriel Ferrarini

Curtir t�pico

+ 0

Responder