Hola martinc77, bienvenido a Club Delphi
Y como es costumbre con la bienvenida, también te invitamos a leer nuestra
Guía de estilo
No especificas los componentes de conexión, pero te pongo un ejemplo con
dbExpress, agrega:
- 1 TSQLConnection,
- 2 TSQLQuery,
- 1 TDataSetProvider,
- 1 TClientDataSet,
- 1 TDataSource,
- 1 TDBGrid,
- 2 TRadioButton.
Código Delphi
[-]
...
type
TForm1 = class(TForm)
SQLConnection1: TSQLConnection;
SQLQuery1: TSQLQuery;
SQLQuery2: TSQLQuery;
DataSetProvider1: TDataSetProvider;
ClientDataSet1: TClientDataSet;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
procedure FormCreate(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
private
public
end;
...
implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
SQLQuery1.SQLConnection := SQLConnection1;
SQLQuery2.SQLConnection := SQLConnection1;
ClientDataSet1.ProviderName := 'DataSetProvider1';
DataSource1.DataSet := ClientDataSet1;
DBGrid1.DataSource := DataSource1;
end;
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
DataSetProvider1.DataSet := SQLQuery1;
ClientDataSet1.Close;
SQLQuery1.SQL.Text := 'SELECT * FROM TABLA_1'; ClientDataSet1.Open;
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
DataSetProvider1.DataSet := SQLQuery2;
ClientDataSet1.Close;
SQLQuery2.SQL.Text := 'SELECT * FROM TABLA_2'; ClientDataSet1.Open;
end;
(*) En el ejemplo supongo el
TSQLConnection ya configurado en design time y su conexión comprobada.
Las asignaciones a las propiedades que realizo en el evento
OnCreate del form, las podes hacer en tiempo de diseño desde el
Object Inspector.
Saludos