Ver Mensaje Individual
  #4  
Antiguo 14-02-2017
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: Dec 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.126
Reputación: 30
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 eméritos.

La consulta es muy general, pero para lo que deseas hacer podes usar el componente TADOQuery. Te pongo un ejemplo básico que incluye también un TADOConnection, un TDataSource y un TDBGrid.
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  ac: TADOConnection;
  qy: TADOQuery;
begin
  ac := ADOConnection1;
  qy := ADOQuery1;

  ac.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
    'Data Source=C:\Program Files\Common Files\Borland Shared\Data\dbdemos.mdb;'+
    'Persist Security Info=False';
  ac.Connected := True;

  qy.Connection := ac;
  qy.SQL.Text := 'SELECT * FROM COUNTRY';
  qy.Open;

  DataSource1.DataSet := qy;
  DBGrid1.DataSource  := DataSource1;
end;
En este caso la sentencia SQL se limita a consultar los campos de la tabla country para mostrarlos en la grilla.
Hice las relaciones en tiempo de ejecución para puedas apreciarlas mas claramente pero podes entablarlas en tiempo de diseño sin problemas.


Saludos
__________________
Daniel Didriksen

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