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

Function ConnectToDataBase() as Boolean ’定义一个连接数据库的函数，返回值为连接成功与否

On Error GoTo DealErr

Set db = New Connection

db.CursorLocation = adUseClient

db.Open "PROVIDER=MSDASQLdriver={SQL Server}server=122.122.107.56,13000uid=wapwd=gvwsgsgdatabase=reachDb"

ConnectToDataBase=True

MsgBox "连接数据库成功！"

Exit Function

DealErr:

ConnectToDataBase=False

MsgBox "连接数据库失败！"

End

EndFunction

serverstring = "Server=" &服务器IP &"DataBase=" &库名 &"Userid=" &用户名 &"Password=" &密码

Try

Conn = New MySqlConnection(serverstring)

Conn.Open()

MsgBox("连接成功")

Conn.Dispose()

Conn.Close()

Catch ex As Exception

MsgBox("连接失败！")

End Try

这是 mysql 的，自己改成 sql server 的就行了

---