Traer info dinamicamente desde una DB Mysql

[ecfisa]

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