三层里的adoconnection数据库连接的字符串如何动态赋值？
在三层的服务端我用了一个AdoConnection连接Access数据库，但是如何动态写入如下字符串呢？在哪个事件里呢？我试了在procedure Tdm.RemoteDataModuleCreate(Sender: TObject);事件里写，但是好像不行，有没有哪位兄弟知道？急等中。。。先谢了！
IF AdoConnection.Connected then AdoConnection.Connected := False;
AdoConnection.ConnectionString :=' Provider=MSDASQL.1;Password=server; '+
' Persist Security Info=True;User ID=admin;'+
' Extended Properties="DBQ='''+ApplicationPath+'''ShortCut.mdb'+
' ;DefaultDir='''+ApplicationPath+''''+
' ;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;'+
' FILEDSN='''+ApplicationPath+'''Dsn_DataLink.dsn'+
' ;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;PWD=server;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;";'+
' Initial Catalog='''+ApplicationPath+'''ShortCut';
Try
Conn.Connected := True;
Except
MessageDlg('数据库连接失败!',Mterror,[mbok],0)
end;
问题点数：0、回复次数：3Top
1 楼lqwxfdwj（风吹小楼）回复于 2004-12-03 12:28:13 得分 0
注：Applicationpath := ExtractFilePath(Application.exeName);Top
2 楼altans（龙纹剑）回复于 2004-12-03 12:32:31 得分 0
相对路径
AdoConnection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + extractfilepath(application.ExeName) + '\mydb.mdb;Jet OLEDB:Database Password=MyDbPassword;'
AdoConnection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\mydb.mdb;Jet OLEDB:Database Password=MyDbPassword;'
上面连的是access数据库，你把数据库改下就行了
Top
3 楼lqwxfdwj（风吹小楼）回复于 2004-12-03 14:31:51 得分 0
这个我知道的，我是说在三层的服务器端，连接字符串这句根本就没有起到任何作用。
哪你写的AdoConnection.ConnectionString := ...
根本就没有执行这一句，好像根本也就没有执行。不能得到在C/s结构中在datamodule的Create中执行这句话一样的效果。而且在mainFrm中也不能引用remote data module中的对象。
就是在什么时候三层在建立数据模块的时候，可以动态连接数据模块呢。Top
