我用一个数据模块DM的方法程序联接现有数据库,具体如下:
procedure TDm.DataModuleCreate(Sender: TObject);
var
Database,Databaseserver,user,Password,FileName:String;
begin
FileName:=ExtractFilePath(application.ExeName)+'DataLink.ini';
DataLink:=TIniFile.Create(FileName);
DataBaseServer:=DataLink.ReadString('connectionstring','DataBaseServer',
'TS');
DataBase:=DataLink.ReadString('connectionstring','DataBase',
'TS');
User:=DataLink.ReadString('connectionstring','user',
'TS');
Password:=DataLink.ReadString('connectionstring','Password',
'TS');
Adoc.ConnectionString:='Provider=SQLOLEDB.1;Password='+password
+';Persist Security Info=True;User ID='+user+';Initial Catalog='+
database+';Data Source='+DataBaseServer; ADOC.open;
end;
end;Database,Databaseserver,user,Password,FileName的值都是正确的,但运行时提示数据库联接上不,请问为什么啊?
有没有更好的数据库联接方法,能详细说一下吗?TKS!
procedure TDm.DataModuleCreate(Sender: TObject);
var
Database,Databaseserver,user,Password,FileName:String;
begin
FileName:=ExtractFilePath(application.ExeName)+'DataLink.ini';
DataLink:=TIniFile.Create(FileName);
DataBaseServer:=DataLink.ReadString('connectionstring','DataBaseServer',
'TS');
DataBase:=DataLink.ReadString('connectionstring','DataBase',
'TS');
User:=DataLink.ReadString('connectionstring','user',
'TS');
Password:=DataLink.ReadString('connectionstring','Password',
'TS');
Adoc.ConnectionString:='Provider=SQLOLEDB.1;Password='+password
+';Persist Security Info=True;User ID='+user+';Initial Catalog='+
database+';Data Source='+DataBaseServer; ADOC.open;
end;
end;Database,Databaseserver,user,Password,FileName的值都是正确的,但运行时提示数据库联接上不,请问为什么啊?
有没有更好的数据库联接方法,能详细说一下吗?TKS!
解决方案 »
- 如何在处理文字录入,显示,判断中特殊数学符号的问题~
- THREAD ERROR 句柄无效 6 的错误
- 在不同的計算機上開發客戶端和應用服務器時, 如何在開發客戶端的計算機上註冊應用服務器?誰知道,麻煩指點,謝謝!
- 远程服务器的的scktsrvr.exe已运行了.可是我为什么不能连接.请高手指教.
- 十一回家手术,这周回来的,还未完全康复,散分祝早日康复!
- DLL的调用问题,大家进来帮帮忙!
- 新手请教
- 组件索引的问题
- 怎样在程序中动态设置控件的Option里的某一属性?
- 请问,现在金山毒霸要序列号才能再线升级?有没有办法能在线升级?
- 怎么让button按了不会凹下去,即不触发click事件
- 关于PageControl的标签TabSheet?
请再查Database,Databaseserver,user,Password,FileName的值是否正确。