动态改变应用程序服务器的连接(100分)

  • 主题发起人 blackeagle8888
  • 开始时间
B

blackeagle8888

Unregistered / Unconfirmed
GUEST, unregistred user!
我现在用DCOM连接,采用ADO来连接ORACLE作数据库,
请问如何动态改变应用程序服务器的连接,即如何动态改变ADO的ConnectString,
我现在的方法是将数据库服务器名、用户名和密码存入一个INI文件,然后每次启动应用程序
时再调入参数,但是最后退出时提示内存只读。
 
一点必须注意:改变连接时,必须保持连接时断开的,也就是connected = false
你也可以先断开其连接应该就没有问题了
 
下面是我用来连接SQL SERVER用的函数,你该一下就可以用了
procedure TDM.InitConnectionString;
var
ServerName, DataBaseName, UID, PWD: string;
ConnectionString: string;
begin
Conn.Close;
ServerName := Ini.ReadString('DBCONFIG', 'SERVERNAME', '.');
DataBaseName := Ini.ReadString('DBCONFIG', 'DATABASENAME', 'gxl');
UID := Ini.ReadString('DBCONFIG', 'USERNAME', 'sa');
PWD := Ini.ReadString('DBCONFIG', 'PASSWORD', '[]');
PWD := Copy(Pwd, 2, length(Pwd) - 2);

PWD := GetPass(PChar(PWD));
ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=True;'
+ 'Data Source=' + ServerName + ';'
+ 'Initial Catalog=' + DataBaseName + ';'
+ 'User ID=' + UID + ';'
+ 'Password=' + PWD + ';';
Conn.ConnectionString := ConnectionString;
end;
 
应该是这样利用配置文件吧
 
我也有类似的情况! 关注
 
同意qianwt的方法
 
接受答案了.
 
顶部