******如何检索ODBC的错误信息?避免出现数据库的错误提示?而是用自己的提示!******

questions21cn 2001-06-22 02:16:00
我的连接是这样的:
Set cnn1 = CreateObject("ADODB.Connection")
cnn1str = "User ID=" & t_userid.Text & ";Password=" & t_pwd.Text & ";Data Source=" & transDS
cnn1.Open cnn1str

用户名和密码是通过TEXTBOX由用户输入的,如果其中有错误会出现一个ODBC的错误提示
(Run-time error'-2147217843(80040e4d)'; ORA-01017),然后程序退出.
我想用自己的错误提示,并调用错误处理程序,应该怎样做?

请诸位兄台多多指点!先行谢过...
...全文
49 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
questions21cn 2001-06-22
多谢ltpao(啊炮)!这就给你分!
回复
ltpao 2001-06-22
在Set cnn1 = CreateObject("ADODB.Connection")语句前加上On error goto 错误标号
错误标号:
Select Case Err.Number
Case -2147217843
错误处理....
Case Else
End Select
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2001-06-22 02:16
社区公告
暂无公告