向高手请教!有关ado连接oracle数据库的问题?

dzy983 2002-04-12 08:14:15
我用adoconnection连接oracle数据库,怎么判断它是连接成功还是失败呢?就是说有没有像pb那样有返回值的,如:返回0代表连接成功,而100则代表失败等!请高手经以指点帮助。
...全文
9 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
weizhi 2002-04-14
呵呵,GetDbParams(); 是自写的一个从注册表中读参数的函数,其返回值就是个联接串,比如:
'Provider=MSDAORA.1;Password=lyxt;User ID=lyxt;Data Source=orcl;Persist Security Info=True'
你可以改为
strConn := 'Provider=MSDAORA.1;Password=lyxt;User ID=lyxt;Data Source=orcl;Persist Security Info=True';
当然,串中的user ID和Password,DataSource等部分也要改为你自己的


Log_ADO.WriteLog()也是自己的写日志的程序,你可以去掉这一行,将信息Show到屏幕上,比如可改为:
ShowMessage('出错函数:InitADOConnection(),错误信息:' + E.Message);
回复
dzy983 2002-04-13
to:weizhi(行者)
GetDbParams(); 与Log_ADO.WriteLog不明白意思?是不是有关它们的代码还没贴出来啊!
回复
weizhi 2002-04-13
呵呵,可以自己写个函数呀,如下:
function InitAdoConnection(Conn: TADOConnection): Boolean;
var
strConn: String;
begin
Result := False;
strConn := GetDbParams(); //自编的从注册子表中读数据库连接串的函数
with Conn do
begin
ConnectionString := strConn;
LoginPrompt := False;
Mode := cmReadWrite;
ConnectionTimeOut := 60;
CommandTimeOut := 60;
try
Connected := True;
except
// 无法打开数据库, 错误码信息写入日志文件
On E: Exception do
begin
Log_ADO.WriteLog('出错函数:InitADOConnection(),错误信息:' + E.Message); //自编的日志对象
end;
end;
Result := Connected;
end;
end;

end;

回复
cz3w 2002-04-13
可在数据连接后加上胖断:
adoconnection1.active:=true;
if adoconnection1.active = false then
begin
showmessage(....);
end;
回复
yangkunjie 2002-04-12
和sql差不多,照着写的了
回复
human_2 2002-04-12
try
adoconnection1.active:=true;
except
showmessage(e.message);
end;
回复
相关推荐
发帖
数据库相关
创建于2007-08-02

2456

社区成员

Delphi 数据库相关
申请成为版主
帖子事件
创建了帖子
2002-04-12 08:14
社区公告
暂无公告