Question

vb6.0 判断连接数据库连没连上怎么写 详细看补充着急啊

Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;driver={SQL Server};server=122.122.107.56,13000;uid=wa;pwd=gvwsgsg;database=reachDb;"
如果连上 就msgbox“数据库连接成功”
连不上就msgbox“数据库连接失败” 等 求大仙

Answer 1

Function ConnectToDataBase() as Boolean ’定义一个连接数据库的函数，返回值为连接成功与否
On Error GoTo DealErr
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;driver={SQL Server};server=122.122.107.56,13000;uid=wa;pwd=gvwsgsg;database=reachDb;"
ConnectToDataBase=True
MsgBox "连接数据库成功！"
Exit Function
DealErr:
ConnectToDataBase=False
MsgBox "连接数据库失败！"

End

EndFunction

Answer 2

如果连不上会出错的，捕捉错误不就得了？

追问

怎么写 请教 我是新手啊

追答

On Error Resume Next
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;driver={SQL Server};server=122.122.107.56,13000;uid=wa;pwd=gvwsgsg;database=reachDb;"
If Err.Number 0 Then
msgbox“数据库连接失败”
Err.Number=0
Else
msgbox“数据库连接成功”
End if