Ver Mensaje Individual
  #2  
Antiguo 12-06-2015
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 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'; // Consulta SQL 1
  ClientDataSet1.Open;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
  DataSetProvider1.DataSet := SQLQuery2;
  ClientDataSet1.Close;
  SQLQuery2.SQL.Text := 'SELECT * FROM TABLA_2'; // Consulta SQL 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
__________________
Daniel Didriksen

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