access vba 用recordset读取表中数据的简单方法

最新推荐文章于 2025-04-09 12:20:23 发布

转载最新推荐文章于 2025-04-09 12:20:23 发布 · 2.1w 阅读

标签

#vba #access #数据库

收录于

vba 专栏收录该内容

31 篇文章

订阅专栏

本文提供了一个使用VBA进行数据库查询的示例代码，展示了如何通过Public Function Getrs函数打开并获取指定查询的结果集。代码中包含了错误处理机制确保查询过程的健壮性。

该文章已生成可运行项目，

'strQuery是表名，查询名等
Public  Function Getrs(Byval strQuery as string)  as ADODB.Recordset
Dim objRs As New ADODB.Recordset
on Error GoTo  Error_Getrs
objRs.open  strQuery,CurrentProject.connection
'程序调试用
'Do While Not objRs.EOF
'        Debug.Print objRs(0) & vbTab & objRs(1) & vbTab & _
'                    objRs(2)
'        objRs.MoveNext
'Loop
Set  Getrs =objRs
Exit _Getrs:
Exit  Function
Error_Getrs:
MsgBox (Err.Description)
Resume Exit _Getrs
End  Function

本文章已经生成可运行项目