导航
  • 主页
  • 基础类
  • 应用实例
  • 新技术前沿

测试数据库的连接问题

meng___xuan 2003-11-18 11:55:56
procedure Tdeal.initialize;
begin
inherited;

DmObj:= TDM.Create(forms.Application);

Filename:='AdoCon.ini';
//Filename:=ExtractFilePath(paramstr(0))+'ADOCon.ini';
AdoIniFile:= Tinifile.Create(Filename);
DefaultSet:=AdoIniFile.ReadString('DefaultSet','set','nothing');
constr:=AdoIniFile.ReadString(DefaultSet,'constr','nothing');
DefaultDatabase:=AdoIniFile.ReadString(DefaultSet,'DefaultDatabase','nothing');
operator:=AdoInifile.ReadString(DefaultSet,'operator','nothing');
PW:=AodIniFile.ReadString(DefaultSet,'PW','nothing');
AdoIniFile.Destroy;

DmObj.ADOCon.ConnectionString:=constr;
DmObj.ADOCon.Provider:='SQLOLEDB.1';
DmObj.ADOCon.DefaultDatabase:= DefaultDatabase;
DmObj.ADOCon.LoginPrompt:=false;
DmObj.ADOCon.Open;
end;
destructor Tdeal.destroy;
begin
inherited;
DmObj.Free;
end;
怎样测试数据库是否连接,我要把这段代码封装起来,ADOcon.ini中需要写入什么信息?
...全文
42 点赞 收藏 2
写回复
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
建议转版.
回复
meng___xuan 2003-11-18
不好意思,我操作的是SQL server数据库。请帮忙?
回复
发动态
发帖子
MS-SQL Server
创建于2007-09-28

3.2w+

社区成员

MS-SQL Server相关内容讨论专区
申请成为版主
社区公告
暂无公告