Hola de nuevo.
Para no dejar las cosas en el aire, te pongo un ejemplo de como configurarlo. Lo hago mediante código por entenderse mas claramente, pero podes configurarlo en tiempo de diseño mediante el
Object Inspector con el mismo resultado.
Agregá un
TADOConnection, 2
TADOQuery, 2
TDataSource y dos
TDBGrid.
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
begin
dsClientes.DataSet := qyClientes; dsEquipos.DataSet := qyEquipos;
with qyClientes do
begin
Connection := ADOConnection1;
Close;
SQL.Text := 'SELECT * FROM CLIENTES';
Open;
end;
with qyEquipos do
begin
Connection := ADOConnection1;
DataSource := dsClientes; SQL.Text := 'SELECT * FROM EQUIPOS WHERE CLIENTE_ID = :ID';
Open;
end;
DBGrid1.DataSource := dsClientes; DBGrid2.DataSource := dsEquipos; end;
Saludos.