access2016 中VB代码导出excel的错误 -问答-阿里云开发者社区-阿里云

开发者社区> 问答> 正文

access2016 中VB代码导出excel的错误

moelmadoka 2018-12-18 00:23:13 1475

点击按钮后报错,错误是类型不匹配!
其中GetRS()函数为自定义的函数 功能是实现执行sql的select语句,返回查询结果
以下是函数定义JD2_XCZ2H_C_Y_J_8Z_ZAT
Public Function GetRS(ByVal strSQL As String) As ADODB.Recordset

Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
On Error GoTo GetRS_Error
Set conn = CurrentProject.Connection
rs.Open strSQL, 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

SQL
分享到
取消 提交回答
全部回答(1)
  • wangccsy
    2019-07-17 23:22:48

    是不是没有返回结果。你在GetRS增加监视rs,看看属性RecordCount是什么。

    0 0
数据库
使用钉钉扫一扫加入圈子
+ 订阅

分享数据库前沿,解构实战干货,推动数据库技术变革

推荐文章
相似问题