代码如下:
Dim connstr, conn, i
Dim exec, rs
connstr = "DBQ=connsql.mdb;DRIVER={Microsoft Access Driver (*.mdb)}"
Set conn = CreateObject("adodb.connection")
conn.open connstr
If Err.Number <> 0 Then
i = MsgBox("connsql.mdb文件丢失,建议重新安装本程序。", vbCritical, "程序错误")
End If
exec = "select * from server where 编号=1"
Set rs = CreateObject("adodb.recordset")
rs.open exec, conn, 1, 3
rs("username") = txtUser.Text
rs("password") = txtPass.Text
rs("serverip") = txtIP.Text
rs.Update
i = MsgBox("执行成功,请运行主程序!", vbInformation, "数据库连接修改器")
Set rs = Nothing
Set conn = Nothing
End当我故意把connsql.mdb重命名为123.mdb时出现的错误提示并不是我设计的那个MsgBox,而是默认的那个
运行时错误'-2147467259 (80004005)':
[Microsoft][ODBC Microsoft Access Driver] 找不到文件'(未知的)'。
Dim connstr, conn, i
Dim exec, rs
connstr = "DBQ=connsql.mdb;DRIVER={Microsoft Access Driver (*.mdb)}"
Set conn = CreateObject("adodb.connection")
conn.open connstr
If Err.Number <> 0 Then
i = MsgBox("connsql.mdb文件丢失,建议重新安装本程序。", vbCritical, "程序错误")
End If
exec = "select * from server where 编号=1"
Set rs = CreateObject("adodb.recordset")
rs.open exec, conn, 1, 3
rs("username") = txtUser.Text
rs("password") = txtPass.Text
rs("serverip") = txtIP.Text
rs.Update
i = MsgBox("执行成功,请运行主程序!", vbInformation, "数据库连接修改器")
Set rs = Nothing
Set conn = Nothing
End当我故意把connsql.mdb重命名为123.mdb时出现的错误提示并不是我设计的那个MsgBox,而是默认的那个
运行时错误'-2147467259 (80004005)':
[Microsoft][ODBC Microsoft Access Driver] 找不到文件'(未知的)'。
On Error Resume Next
Dim connstr, conn, i
Dim exec, rs
connstr = "DBQ=connsql.mdb;DRIVER={Microsoft Access Driver (*.mdb)}"
Set conn = CreateObject("adodb.connection")
conn.open connstr
If Err.Number <> 0 Then
i = MsgBox("connsql.mdb文件丢失,建议重新安装本程序。", vbCritical, "程序错误")
End If
exec = "select * from server where 编号=1"
Set rs = CreateObject("adodb.recordset")
rs.open exec, conn, 1, 3
rs("username") = txtUser.Text
rs("password") = txtPass.Text
rs("serverip") = txtIP.Text
rs.Update
i = MsgBox("执行成功,请运行主程序!", vbInformation, "数据库连接修改器")
Set rs = Nothing
Set conn = Nothing
End