客户端程序(ADO)怎样检测服务器(SQL Server)出错信息?
客户端程序采用ADO连接网络数据库服务器(SQL Server2000).当网络数据库发生错误(比如服务器停止运行)或网络通信中断等情况下,客户端程序怎样才能自动检测出这些错误信息,发出警告????能不能讲的详细一点?一定加分!!!
...全文
请发表友善的回复…
发表回复
wisdomsoft 2003-07-14
- 打赏
- 举报
如果是正常情况下是可以连接的，那么你加入错误检测就可以了，
on error goto l:
l:
msgbox"服务器关闭或网络不通！"
exit sub
……
可以了吗
on error goto l:
l:
msgbox"服务器关闭或网络不通！"
exit sub
……
可以了吗
fanfyj 2003-07-08
- 打赏
- 举报
谢谢各位!我用的是vb.我的意思没说太清楚.下面代码
Dim db As ADODB.Connection
Dim rst As ADODB.Recordset
Set db = New ADODB.Connection
db.Open "......"
...
...
Set rst = New ADODB.Recordset
rst.Open "......" '代码行A
问题:当程序执行到代码行A时,如果此时与网络数据库的连接突然断掉,我怎么能检测出来???
望说的详细一点,最好有代码示例,多谢了!!!
Dim db As ADODB.Connection
Dim rst As ADODB.Recordset
Set db = New ADODB.Connection
db.Open "......"
...
...
Set rst = New ADODB.Recordset
rst.Open "......" '代码行A
问题:当程序执行到代码行A时,如果此时与网络数据库的连接突然断掉,我怎么能检测出来???
望说的详细一点,最好有代码示例,多谢了!!!
pjjia 2003-07-07
- 打赏
- 举报
你用的是什么开发工具！
friendwei 2003-07-07
- 打赏
- 举报
vb里面：
if conn.Open (db_string) = flase then
msgbox"连接不正常"
end if
if conn.Open (db_string) = flase then
msgbox"连接不正常"
end if
pengdali 2003-07-07
- 打赏
- 举报
在delphi里用
try
Except
On E : Exception do
// 可以将 E.Message 取出来看看
end ;
其他语言，同样用异常捕捉代码来捕捉
try
Except
On E : Exception do
// 可以将 E.Message 取出来看看
end ;
其他语言，同样用异常捕捉代码来捕捉
jiawu 2003-07-07
- 打赏
- 举报
看看ADO 能抛出的 event 吧，上面说的都是主动去操作数据库才会知道数据库发生错误，要定时检测数据库状态只能用轮询。以事件方式比轮询高效多了，不需要定时器。
txlicenhe 2003-07-07
- 打赏
- 举报
DELPHI：
try
... //你的处理过程
Except
On E : Exception do
// 可以将 E.Message 取出来看看
end ;
VB：
on error goto ErrHandle
....
Exit sub
ErrHandle:
msgbox err.description
try
... //你的处理过程
Except
On E : Exception do
// 可以将 E.Message 取出来看看
end ;
VB：
on error goto ErrHandle
....
Exit sub
ErrHandle:
msgbox err.description
zhsimon 2003-07-07
- 打赏
- 举报
关注
leimin 2003-07-07
- 打赏
- 举报
一般通过CLIENT的开发语言来实现！如果要获得SQLSERVER的ERROR MESSAGE
你可以
SELECT * FROM MASTER..SYSMESSAGES WHERE ID=@@ERROR
你可以
SELECT * FROM MASTER..SYSMESSAGES WHERE ID=@@ERROR
