Access2010 显示用户定义类型未定义,求大神啊
跟着书上操作了,代码如下:OptionCompareDatabaseOptionExplicitPubliccheckAsBoolean'通过字符串StrQuery所引用...
跟着书上操作了,代码如下:
Option Compare Database
Option Explicit
Public check As Boolean
'通过字符串StrQuery 所引用的SQL语句返回一个 ADO.Recordset 对象
Public Function GetRS(ByVal StrQuery As String) As ADOBE.Recordset
Dim rs As New ADOBE.Recordset
Dim conn As New ADOBE.Connection
On Error GoTo GetRS_Error
Set conn = CurrentProject.Connection
rs.Open StrQuery, conn, adOpenKeyset, adLockOptimistic
Set GetRS = rs
GetRS_Exit:
Set rs = Nothing
Set conn = Nothing
Exit Function
GetRS_Error:
MsgBox (Err.Description)
Resume GetRS_Exit
End Function
为何运行显示用户定义类型未定义呢?
菜鸟使用的是win7 64bit,access2010中的vb建立模块,office好像是装的32位,不知道会不会有影响。 求老师大神解答 展开
Option Compare Database
Option Explicit
Public check As Boolean
'通过字符串StrQuery 所引用的SQL语句返回一个 ADO.Recordset 对象
Public Function GetRS(ByVal StrQuery As String) As ADOBE.Recordset
Dim rs As New ADOBE.Recordset
Dim conn As New ADOBE.Connection
On Error GoTo GetRS_Error
Set conn = CurrentProject.Connection
rs.Open StrQuery, conn, adOpenKeyset, adLockOptimistic
Set GetRS = rs
GetRS_Exit:
Set rs = Nothing
Set conn = Nothing
Exit Function
GetRS_Error:
MsgBox (Err.Description)
Resume GetRS_Exit
End Function
为何运行显示用户定义类型未定义呢?
菜鸟使用的是win7 64bit,access2010中的vb建立模块,office好像是装的32位,不知道会不会有影响。 求老师大神解答 展开
2个回答
展开全部
Dim rs As New ADOBE.Recordset的拼写错了!大神
Dim rs As New ADODB.Recordset
Dim rs As New ADODB.Recordset
更多追问追答
追问
大哥 ,哪里啊!!!我怎么没看到啊!!!
追答
ADOBE和ADODB
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询