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

两种方法~`

方法一:

执行一下放连接数据库代码的页面~`如果没有报错信息一般说明连接成功~`

方法二:

连接代码后面执行一个查询语句

<%

set rs = conn.execute("select top 1 * from [表名]")

response.write rs("上面表的任意一个字段名")

response.end

%>

执行这个页面后如果看到有返回值证明成功

呵呵，以前就帮人家解决过这个，请看下面的代码，有注释的！

Private Sub CommandButton5_Click()

Dim Conn As New ADODB.Connection'定义ADODB连接对象

Dim ConnStr As String '定义连接字符串

Dim xiao As String

xiao = ComData.Text

'对于SQL 2008，如果以IP方式访问服务器，必须要启动SQL Server Browser服务，如果是Express版本，要以“IP(计算机名)\实例名”方式访问

ConnStr = txtData.Text

Dim Records As New ADODB.Recordset '定义ADODB对象的记录集

Dim Sheet As Worksheet '定义工作表

Set Sheet = ThisWorkbook.Worksheets("Sheet2") '给变量Sheet赋值，注意：是工作簿中索引为1的那个表（通常一个新的工作簿Sheet1的索引为1）

'Sheet.Name = "Data" '把Sheet名称改为Data

Sheet.Cells.Clear '清空表中原有的数据

'连接状态是打开就不在进行Open *** 作

Conn.Open ConnStr

Dim SQLStr As String'要执行的SQL语句

SQLStr = "select * from Shift_Code where Club='" + xiao + "'" '可以执行更复杂的SQL语句

Records.Open SQLStr, Conn, adOpenStatic, adLockBatchOptimistic '读取SQL查询结果到Records记录集

'Records.Open

Dim i, j, TotalRows, TotalColumns As Integer

j = 0

TotalRows = Records.RecordCount

TotalColumns = Records.Fields.Count

'下面的循环把表头（即列名）写到Excel表的第一行

For i = 0 To TotalColumns - 1

Sheet2.Cells(1, i + 1) = Records.Fields(i).Name

Next

'下面的循环把查询结果写到Excel表中

Do While Not Records.EOF

For i = 0 To TotalColumns - 1

Sheet2.Cells(j + 2, i + 1) = Records.Fields(i).Value

Next

Records.MoveNext

j = j + 1

Loop

Records.Close '关闭记录集

Conn.Close '关闭连接

Set Records = Nothing '清空对象

Set Conn = Nothing '清空对象

End Sub

有什么不懂的话Hi我！

---