Cambiar Base de Datos

[pgranados]

Empezado por Eduard23

Gracias por tu pronta Respuesta pgranados.
Si claro la primera vez que abro el formulario muestra todas las empresas pero al seleccionar una de ellas y volver a abrir el formaluario de empresas esta en blanco es decir sin contenido no muestra la data.
Uso MySQL por si te sirve de algo

En el evento FormCreate revisa que string de conexión toma el ADOQuery.

[pgranados]

Empezado por pgranados

En el evento FormCreate revisa que string de conexión toma el ADOQuery.

Puedes guardarlo en una variable y mostrarlo en un ShowMessage o ponerle un stop y verificar el valor.

[Eduard23]

Buena Idea lo Probe tal cual lo indicastes y el string esta perfecto,
Que otra cosa podria hacer he probado todo lo que esta a mi alcance pero nada

[[duilioisola]]

Quizás te falta volver a abrir los DataSets después de volver a reconectar la base de datos.
(Últimas dos líneas, como ejemplo)

Código Delphi [-]
Procedure Cambiar (Sender: TObject);
begin
  AdoConnection1.LoginPrompt := False;
  AdoQuery1.Connection := AdoConnection1;
  DataSource1.DataSet := AdoQuery1;
  DBGrid1.DataSource := DataSource1;
  DBNavigator1.DataSource := DataSource1;
  // Application.OnException := DisplayException;

  StrConn:='Provider=MSDASQL.1;'+
  'Persist Security Info=False;'+
  'Extended Properties="DSN=MySQL;'+
  'DESCRIPTION=Mi Aplicacion;UID=root;'+
  'PWD=1234;'+
  'DATABASE='+xDataBase+';'+'PORT=3306"';

  AdoConnection1.Connected:=False;
  AdoConnection1.ConnectionString:=strConn;
  Try
    AdoConnection1.Open;
  Except
    ShowMessage('Imposible Conectar a la Base de Datos '+xDataBase);
    Raise;
  End;
  
  // Aquí habría que volver a abrir los DataSets.
  AdoQuery1.Open;
End;