Ver Mensaje Individual
  #3  
Antiguo 26-07-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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; // TDataSource asociado a "CLIENTES"
  dsEquipos.DataSet  := qyEquipos;  // TDataSource asociado a "EQUIPOS"

  with qyClientes do
  begin
    Connection := ADOConnection1;
    Close;
    SQL.Text := 'SELECT * FROM CLIENTES';
    Open;
  end;

  with qyEquipos do
  begin
    Connection := ADOConnection1;
    DataSource := dsClientes; // TDataSource asociado a tabla "CLIENTES"
    // El nombre que sigue a los dos puntos (":ID") en la siguiente consulta,
    // deberá ser igual al nombre del campo ID de la tabla "CLIENTES"
    SQL.Text   := 'SELECT * FROM EQUIPOS WHERE CLIENTE_ID = :ID';
    Open;
  end;

  DBGrid1.DataSource := dsClientes; // DBGrid que visualiza a "CLIENTES"
  DBGrid2.DataSource := dsEquipos;  // DBGrid que visualiza a "EQUIPOS"
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita