|
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;
|