Question

关于VB测试服务器连接

我想要一个 测试服务器连接的代码
就是说，给一个文本框，一个CMD按钮，文本框输入access数据库的地址，点击按钮测试是否正常连接，连接提示测试成功，连接失败提示错误。

Answer 1

Option Explicit
Public con As ADODB.Connection, str As String, Adodc As ADODB.Recordset, sql As String

Private Sub Command1_Click()
Label13.Caption = "测试中......"
Label13.ForeColor = &H0&
On Error GoTo SQLerr
Ado_Open
Label13.Caption = "测试成功!"
Exit Sub

SQLerr:
With Label13
.Caption = "连接失败!"
.ForeColor = &HFF&
End With
MsgBox Err.Description, , "SQL Link Error"
End Sub

Public Sub Ado_Open()
Set con = New ADODB.Connection
Str = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & TextBox1 & ";pwd=;ReadOnly=True"
con.Open str
End Sub

Answer 2

im conn,strDataPath,connStr
set conn=server.createobject("ADODB.connection") '//定义数据库连接对象
strDataPath=server.MapPath("example.mdb") '//数据库路径字符串
connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDataPath '//数据库连接
conn.open connStr

数据连接语句是上面的代码？
你把获取地址改成TEXTBOX1.TEXT 就好了
说到这里了不知道你明白不！！！
strDataPath=server.MapPath("example.mdb") 就是把这句写成strDataPath=server.MapPath("TEXTBOX1.TEXT")