Cambiar Base de Datos

[Eduard23]

Buenas tardes Amigos Ya Resolvi el CAmbio de la Base de Datos con el Siguiente Codigo
Procedure Cambiar (Sender: TObject);
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;
End;

[Eduard23]

Pero Ahora me Surge Otro Problema
Tengo la Base de Datos con Todas las Empresas al Seleccionar una de ellas hace el cambio perfectamente con la rutina anterior pero el dbgrid que muestra todas las empresas se queda en Blanco y aunque cierre y abra la base de datos de empresas no Logro que muestre la informacion.

Gracias Amigos

[pgranados]

Empezado por Eduard23

Pero Ahora me Surge Otro Problema
Tengo la Base de Datos con Todas las Empresas al Seleccionar una de ellas hace el cambio perfectamente con la rutina anterior pero el dbgrid que muestra todas las empresas se queda en Blanco y aunque cierre y abra la base de datos de empresas no Logro que muestre la informacion.

Gracias Amigos

¿Tu DBGrid si esta conectado al datasource del query? en caso de que si, ¿ya lo refrescaste?

Código Delphi [-]
dbGrid.refresh

[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

[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