关于VB测试服务器连接
我想要一个测试服务器连接的代码就是说,给一个文本框,一个CMD按钮,文本框输入access数据库的地址,点击按钮测试是否正常连接,连接提示测试成功,连接失败提示错误。...
我想要一个 测试服务器连接的代码
就是说,给一个文本框,一个CMD按钮,文本框输入access数据库的地址,点击按钮测试是否正常连接,连接提示测试成功,连接失败提示错误。 展开
就是说,给一个文本框,一个CMD按钮,文本框输入access数据库的地址,点击按钮测试是否正常连接,连接提示测试成功,连接失败提示错误。 展开
2013-11-27
展开全部
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
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
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-11-27
展开全部
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")
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")
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询