Ver Mensaje Individual
  #2  
Antiguo 16-09-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
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 ezequiel913.

No sé si entiendo bién lo que buscas hacer. Pero por lo que te entendí, basta con asignarle la consulta que querés a la propiedad CommandText del ADODataSet.
Por ejemplo:
Código Delphi [-]
  ...
  with ADODataSet1 do
  begin
    Close;
    CommandText:= 'Select RazonSocial, Dirección from Proveedores order by Direccion';
    Open;
  end;
  ...

Si tenés que cambiar de consulta muy a menudo podés hacerte un procedimiento para realizarlas:
Código Delphi [-]
procedure TForm1.ConsultarADODataSet(ADOds: TADODataSet; const Consulta: string);
begin
  with TADODataSet(Tabla) do
  begin
    Close;
    CommandText:= Consulta;
    Open;
  end;
end;

Llamadas de ejemplo:
Código Delphi [-]
...
  ConsultarADOds(ADODataSet1,'Select RazonSocial, Dirección from Proveedores order by Direccion');
  ConsultarADOds(ADODataSet1,'Select * from Proveedores order by Localidad');
  ConsultarADOds(ADODataSet1,'Select Telefono from Proveedores where sexo = ''F'''; //
...


Un saludo.
__________________
Daniel Didriksen

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