ADO数据库动态连接 谢谢
不是直接对ADOConnection.Connectionstring赋值！！！！！
而是在程序运行的时候能够选择数据库，通过‘数据链接属性’框来动态选取。
就是ADOConnection组件-〉Connectionstring属性后的省略号-〉build... 后跳出来的那个‘数据链接属性’框,并怎么取得读取到的'Connectionstring',谢谢.
问题点数：20、回复次数：3Top
1 楼hc0007（当你孤单的时候你会想起谁?）回复于 2005-04-15 21:05:02 得分 5
用相对路径 直接用一个 udl 文件 就可以了Top
2 楼g961681（技术庸人(情商太低)）回复于 2005-04-15 21:09:35 得分 13
uses ADOConED;
ADOConED.EditConnectionString(AdoConnection);
Top
3 楼pengxuan（网虫先生）回复于 2005-04-16 09:18:34 得分 2
写一个Ini文件
[DataCreateInfo]
Name=Taxi
FilePath=D:\DataBase
[SysBackSet]
BackPath=E:\DataBaseBackup
BackName=Taxi_Backup
PassWord=1111
[CurrentDataSet]
DataServer=Smile
DataBase=Taxi
User=sa
Password=
一个连接函数
procedure TDataModule1.DataModuleCreate(Sender: TObject);
function GetConnectionString():string;
var sysconfig:tinifile;
begin
sysconfig:=tinifile.Create(GetCurrentPath+'sysconfig.ini');
result:='Provider=SQLOLEDB;'+
'Data Source='+trim(sysconfig.ReadString('CurrentDataSet','DataServer',''))+';'+
'Initial Catalog='+trim(sysconfig.ReadString('CurrentDataSet','DataBase',''))+';'+
'User ID='+trim(sysconfig.ReadString('CurrentDataSet','User',''))+';'+
'Password='+trim(sysconfig.ReadString('CurrentDataSet','Password',''))+';'+
'Persist Security Info=True';
sysconfig.Free ;
end;
begin
if adoConnection1.Connected then ADOConnection1.Close ;
AdoConnection1.ConnectionString :=GetConnectionString ;
try
AdoConnection1.Open;
except
Application.Messagebox('数据库连接失败！应用程序将关闭.','错误！', Mb_OK+mb_Iconinformation);
Application.Terminate;
end;
end;Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
