我想通过bde指定在安装程序时给ADOConnection指定数据库连接,不希望在程序中就已经指定ConnectionString属性.
请问各位大虾,我该如何处理
请问各位大虾,我该如何处理
解决方案 »
- 怎样才能快速浏览打印内存中的大量数据?
- 我把问题分解问算了!!!!刚才我问过了,谢谢快点给出答案啊各位老大
- 300分,救命啊,关于昆腾中的dxDBTreeView!!
- 给位大虾看看我的代码是那里出了错!一个奇怪的问题,谢谢各位了!
- 怎么控制热敏打印机
- 这句是什么意思???
- 高分请教一个delphi控制Excel的问题,分不够可以再加!在线等候!!
- 用了多年D7,现在不知道转成C#.net还是用delphi.net,大家来谈谈
- SOS,哪里有delphi5开发人员指南的源码下载!
- 怎么样用命令动态改变用户登录时的默认数据库?(SQL Server)
- 放狼烟招唤高手:关于控件的拖放
- 如何实现将长字符串缩短到一定长度,其后用...补充?
用户只需更改这个配置文件就可以实现联接到不同的数据库的目的了。
我在程序中是这样指定连接参数的:ADOConnection1.ConnectionString :='D:\ConDB.ini'
但程序报错,不知我的写法有错吗?
固定格式+不固定变量
比如:
SQL SERVER; DB= MYTestDB, sa= '1234'
你要在ConDB.ini里读这些密码,用户名,数据库名把ConnectionString 填完整
procedure TDMEAM.DataModuleCreate(Sender: TObject);
var
sServerName,sDatabaseName,sDataUser,sDataPw,sAdoConString :String;
List: Tinifile;
Begin
If ADOConnectionEAM.Connected Then
ADOConnectionEAM.Connected := False;
Try
List := Tinifile.Create(ExtractFilePath(Application.ExeName)+'DataSet.ini');
sServerName:=list.readstring('LdEamDataSet','sServerName','');
sDatabaseName:=list.readstring('LdEamDataSet','sDatabaseName','');
sDataUser:=list.readstring('LdEamDataSet','sDataUser','');
sDataType:=list.readstring('LdEamDataSet','sDataType','');
sAdoConString :='Provider=SQLOLEDB.1;Persist Security Info=True;User ID='+sDataUser+';Password=ldmaster;Initial Catalog='+sDatabaseName+';Data Source='+sServerName;
ADOConnectionEAM.ConnectionString:=sAdoConString;
Finally
List.free;
End;
Try
ADOConnectionEAM.Connected := True;
Except
ShowMessage('数据库连接失败,请重新配置!');
Exit;
End;
End;
我写成ADOConnection.ConnectionString := '文件名.ini'
ADOConnection.Connected := true;
运行程序,报错.提示连接有问题.