vb操作oracle数据库问题

Question

模块中定义连接
Public Function globalConn()On Error GoTo err_:
    Cnn.ConnectionString = "Provider=OraOLEDB.Oracle;Data Source=oracle10;User Id=test;Password=isfnet;"
    Cnn.CommandTimeout = 0
    Cnn.ConnectionTimeout = 0
    Cnn.Open
    cnnFlag = True
    Exit Function
err_:
    If Cnn.State = adStateOpen Then Cnn.Close
    cnnFlag = False
    MsgBox Err.Description
End Function然后调用
On Error GoTo err_:
    globalConn
    If Rs.State = adStateOpen Then Rs.Close
    Rs.Open "SELECT * FROM A01_USERS", globalConn, adOpenKeyset, adLockReadOnly
open时错误为什么

Answer 1

lz把CommandTimeout和ConnectionTimeout都设成了0，如果网络出现问题Open没有及时响应当然会出错误