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.