cambiar datasource.dataset en tiempo de ejecución

[jzginez]

Hola amigos estoy usando delphi 7 y las fibplus les explico tengo un datamodule con todos los componentes necesarios para conectarme a mi base de datos y tablas en mi forma principal tengo un stringgrid el cual relleno con el nombre de los componentes tpFIBDataSet

Código Delphi [-]
  StringGrid1.Cells[0,0]:= 'Tablas';
  StringGrid1.Cells[1,0]:= 'Numero';
  For a:= 0 to (DtmOrigen.ComponentCount -1) do
    If DtmOrigen.Components[a].ClassName = 'TpFIBDataSet'
      Then Begin
        StringGrid1.Cells[0,b]:= DtmOrigen.Components[a].Name;
        StringGrid1.Cells[1,b]:= IntToStr(DtmOrigen.Components[a].ComponentIndex);
        b:= b+1;
        StringGrid1.RowCount:= StringGrid1.RowCount+1;
      End;

además tengo un datasource y un dbgrid lo que quiero hacer y no encuentro la manera ( ) es que al hacer click en alguna celda del stringgrid la propiedad del dataset del datasource cambie y así poder ver los datos almacenados en esa tabla

Código Delphi [-]
DataSource1.dataset:= ????????? (los datos estan en un modulo de datos)

Gracias

[[maeyanes]]

Hola...

Teniendo el nombre del componente, puedes usar la función FindComponent o crearte una que te devuelva un TDataSet:

Código Delphi [-]
function TDataModule1.DataSetByName(const AName: string): TDataSet;
var
  I: Integer;

begin 
  for I := 0 to Pred(ComponentCount) do
    if (Components[i] is TDataSet) and (Components[i].Name = AName) then
    begin
      Result := TDataSet(Components[i])
      Exit
    end;
  Result := nil
end;

Luego desde la forma en cuestion haces:

Código Delphi [-]
DataSource1.DataSet := DataModule1.DataSetByName('DatosCliente')

Usando FindComponent sería algo así:

Código Delphi [-]
DataSource1.DataSet := DataModule1.FindComponent('DatosCliente') as TDataSet

Saludos...

[jzginez]

Empezado por maeyanes

Código Delphi [-]
DataSource1.DataSet := DataModule1.FindComponent('DatosCliente') as TDataSet

Muchas gracias maeyanes aunque aun no lo pruebo, pero estoy seguro que esta es la solución ya que yo lo estaba intentando solo con

Código Delphi [-]
DataSource1.DataSet := DataModule1.FindComponent('DatosCliente')

y me marcaba error de tipos


gracias