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

开发者社区> 问答> 正文
阿里云
为了无法计算的价值
打开APP
阿里云APP内打开

access2016 中VB代码导出excel的错误

点击按钮后报错,错误是类型不匹配!
其中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

展开
收起
moelmadoka 2018-12-18 00:23:13 3235 0
1 条回答
写回答
取消 提交回答
  • wangccsy
    前一个帐号wangccsy@126.com不知道怎么的就成了企业帐号,改不成个人。所以重新注册了一个个人帐号。老程序员。精通JAVA,C#,数据库,对软件开发过程和流程熟悉。考取系统分析师,项目管理师和系统架构设计师等软件资格考试认证。愿意和大家一起前进。

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

    2019-07-17 23:22:48
    赞同 展开评论 打赏
问答排行榜
最热
最新
相关电子书
更多
低代码开发师(初级)实战教程
立即下载
阿里巴巴DevOps 最佳实践手册
立即下载
冬季实战营第三期:MySQL数据库进阶实战
立即下载