吃饭 坐坐好 饭碗:VB中连接数据库的问题~大家帮个忙呀~谢谢了~
来源:百度文库 编辑:神马品牌网 时间:2024/08/28 05:13:02
Public gCn As ADODB.Connection '数据库联接对象,整个应用程序公用一个连接
'目的:连接数据库
'输入
'返回:若数据库连接成功,返回True,不成功返回 False
Function gMainConn() As Boolean
Dim strCn As String
Dim strDatabasePath
On Error GoTo errCheck
Set gCn = New Connection
gCn.CursorLocation = adUseClient '当用于客户端 (ADOR) Recordset 或 Connection 对象时,只能将游标 CursorLocation 属性设置为 adUseClient用户连接
'取得数据库的相对路径
If Right(App.Path, 1) = "\" Then
strDatabasePath = App.Path + "data\jian.mdb"
Else
strDatabasePath = App.Path + "\data\jian.mdb"
End If
strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False; Data Source=" + strDatabasePath
gCn.Open strCn
gMainConn = True '若是连接成功则退出Function
Exit Function
errCheck:
gMainConn = False
MsgBox "数据库连接不成功,请确定路径是否正确!", , "小翠助手"
End Function
问题是~他老说Set gCn = New Connection中无效的New编译错误,我把New取掉后,就弹出”数据库连接不成功,请确定路径是否正确!",直接执行错误提示去了~请大家帮我看看呀~谢谢了~ 其中我已经把ADO2.8引用进来了~
'目的:连接数据库
'输入
'返回:若数据库连接成功,返回True,不成功返回 False
Function gMainConn() As Boolean
Dim strCn As String
Dim strDatabasePath
On Error GoTo errCheck
Set gCn = New Connection
gCn.CursorLocation = adUseClient '当用于客户端 (ADOR) Recordset 或 Connection 对象时,只能将游标 CursorLocation 属性设置为 adUseClient用户连接
'取得数据库的相对路径
If Right(App.Path, 1) = "\" Then
strDatabasePath = App.Path + "data\jian.mdb"
Else
strDatabasePath = App.Path + "\data\jian.mdb"
End If
strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False; Data Source=" + strDatabasePath
gCn.Open strCn
gMainConn = True '若是连接成功则退出Function
Exit Function
errCheck:
gMainConn = False
MsgBox "数据库连接不成功,请确定路径是否正确!", , "小翠助手"
End Function
问题是~他老说Set gCn = New Connection中无效的New编译错误,我把New取掉后,就弹出”数据库连接不成功,请确定路径是否正确!",直接执行错误提示去了~请大家帮我看看呀~谢谢了~ 其中我已经把ADO2.8引用进来了~
你把Set gCn = New Connection
改成Set gCn = New ADODB.Connection
如果还不行,你看下你有没有把ADODB相关的给参照进来