Definir DataSet do DataSource via c�digo..

Question

Pessoal, Como fa�o para definir em tempo de execu��o o DataSet a que o DataSource ser� ligado??? Estou fazendo assim: [code:1:4f303907ad]with TDataSource.Create(Self) do begin Name := �DsPa�+ IntToStr...

Lincesmarques · Answer

Deixa eu me explicar melhor. � o seguinte, eu crio v�rias TQuerys com nomes diferentes e para cada TQuery eu crio um TDataSource. Exemplo:

var
  i, registros : Integer;
begin
 SQLQuery1.Open;
 registros := SQLQuery1.RecordCount;
for i := 0 to registros do begin
      with TSQLQuery.Create(Self) do
      begin
        Parent:=Self;
        Name := �QryPa�+ IntToStr(i);
        SQLConnection := fdm.ConectDados;
        SQL.Add(�SELECT * FROM TBNOMES�);
        Open;
      end;
      with TDataSource.Create(Self) do
      begin
        Parent:=Self;
        Name := �DsPa�+ IntToStr(i);
        DataSet := �QryPa�+ IntToStr(i);
      end;
end;

Viu? vamos supor que numa query qualquer eu tenha 10 registros, ent�o o la�o for ter� que criar 10 TQuerys, com o nome Query1, Query2, Query3, e assim sucessivamente at� ter 10 TQuerys, e criar tamb�m 10 TDataSource, com o nome DataSource1, DataSource2, DataSource3, e assim sucessivamente at� ter 10 TDataSource�s, s� que no caso do TDataSource ele tem que se ligar atrav�s da propriedade �DataSet� ao seu TQuery correspondente que foi criado dinamicamente.

Emerson Nascimento · Answer

tente assim:[code:1:1781bcbb4d]var  i, registros: Integer;  qry: TQuery;begin  SQLQuery1.Open;  registros := SQLQuery1.RecordCount;  for i := 0 to registros do  begin    qry := TSQLQuery.Create(Self);    with qry do    begin      Parent := Self;      Name := �QryPa�+ IntToStr(i);      SQLConnection := fdm.ConectDados;      SQL.Add(�SELECT * FROM TBNOMES�);      Open;    end;    with TDataSource.Create(Self) do    begin      Parent := Self;      Name := �DsPa�+ IntToStr(i);      DataSet := qry;    end;  end;[/code:1:1781bcbb4d]ou assim:[code:1:1781bcbb4d]var  i, registros: Integer;  qry: TQuery;begin  SQLQuery1.Open;  registros := SQLQuery1.RecordCount;  for i := 0 to registros do  begin    with TSQLQuery.Create(Self) do    begin      Parent := Self;      Name := �QryPa�+ IntToStr(i);      SQLConnection := fdm.ConectDados;      SQL.Add(�SELECT * FROM TBNOMES�);      Open;    end;    with TDataSource.Create(Self) do    begin      Parent := Self;      Name := �DsPa�+ IntToStr(i);      DataSet := TDataset(Self.FindComponent(�QryPa�+ IntToStr(i)));    end;  end;[/code:1:1781bcbb4d]...

F�rum Definir DataSet do DataSource via c�digo.. #365865