How to change TmsConnection Server
Posted: Fri 06 Apr 2012 06:14
I have 3 DataBase(name A , B ,C) in 2 Servers, When User Login successed, he selected any one DataBase, My Program code in datamodule on create Even. Follow...
//wkComSrvNo , wkComDbs is variable from .ini file
fbjdm.DataBase1.Connected := False;
fbjdm.DataBase2.Connected := False;
fbjdm.DataBase1.ConnectString := 'Provider=SQLOLEDB.1;User ID=erpuser;Password=xxxxxx;Data Source='+wkComSrvNo+';'+
'Initial Catalog='+wkComDbs+';Persist Security Info=True';
fbjdm.DataBase2.ConnectString := 'Provider=SQLOLEDB.1;User ID=erpuser;Password=xxxx;Data Source='+wkComSrvNo+';'+
'Initial Catalog=bjpub;Persist Security Info=True';
fbjdm.DataBase1.Connected := True;
fbjdm.DataBase2.Connected := True;
//---------------------------------------------------
when program run in main form some question happen
msuqery.connection values can't change user selected Server and DataBase. The Msquery.Connection still old value .
I saw ChangeNotification already, but I can't understood.
Please tell me detail or others method.
//wkComSrvNo , wkComDbs is variable from .ini file
fbjdm.DataBase1.Connected := False;
fbjdm.DataBase2.Connected := False;
fbjdm.DataBase1.ConnectString := 'Provider=SQLOLEDB.1;User ID=erpuser;Password=xxxxxx;Data Source='+wkComSrvNo+';'+
'Initial Catalog='+wkComDbs+';Persist Security Info=True';
fbjdm.DataBase2.ConnectString := 'Provider=SQLOLEDB.1;User ID=erpuser;Password=xxxx;Data Source='+wkComSrvNo+';'+
'Initial Catalog=bjpub;Persist Security Info=True';
fbjdm.DataBase1.Connected := True;
fbjdm.DataBase2.Connected := True;
//---------------------------------------------------
when program run in main form some question happen
msuqery.connection values can't change user selected Server and DataBase. The Msquery.Connection still old value .
I saw ChangeNotification already, but I can't understood.
Please tell me detail or others method.