使用CreateObject("access.application") 用SQL获得记录集，这方法对吗？

renahu

这是摆渡用AI生成的，到Set rsRecordset = objAccess.DoCmd.RunCommand(1024) 这句就报错了，我是excel表里运行的，我是office2010

' 创建 Access 应用程序对象
Set objAccess = CreateObject("Access.Application")

' 设置要打开的数据库文件路径
strDatabasePath = "C:\path\to\your\database.accdb"

' 打开数据库文件
objAccess.OpenCurrentDatabase strDatabasePath

' 定义 SQL 查询语句
strQuery = "SELECT * FROM YourTableName;"

' 运行 SQL 查询并将结果保存到 Recordset 变量中
Set rsRecordset = objAccess.DoCmd.RunCommand(1024) ' DoCmd.RunCommand(1024) 为 ExecuteSQL 命令的常量值
rsRecordset.Source = strQuery
rsRecordset.RetrieveAll

' 输出每条记录的字段内容
For Each field In rsRecordset.Fields
    WScript.Echo field.Value & vbTab
Next

' 关闭数据库连接
objAccess.CloseCurrentDatabase
objAccess.Quit

上述代码首先创建了一个名为objAccess的Access应用程序对象，然后指定要打开的数据库文件路径。接下来，我们定义了一个SQL查询语句，这里只是一个示例，需根据自己的情况修改。最后，使用ExecuteSQL命令执行查询，并将结果保存到名为rsRecordset的Recordset对象中。之后，我们可以通过遍历rsRecordset对象的字段属性来获取每条记录的字段内容。最后，关闭数据库连接并退出Access应用程序。

renahu

我就想问问这AI是不是瞎写的？

renahu

1.     Dim myAcc As Object, rsResult As Object
   
2.     Set myAcc = CreateObject("access.application")
   
3.     myAcc.OpenCurrentDatabase App.Path & "\数据.accdb"     
   
4.     Set rsResult = CurrentDb.OpenRecordset(SQL)
   
5.     Do While Not rsResult.EOF
   
6.         ' 处理记录集中的数据
   
7.         ' ...
   
8. 
   
9.         ' 移动到下一条记录
   
10.         rsResult.MoveNext
    
11.     Loop
    

复制代码

自己搞出来了，前提是自定义函数要在access中的模块中先建立，就可以用vba在excel中调用带有自定义函数的sql语句了，我这里是在VB中运行的，ADODB不认sql中的自定义函数，只能分两步处理。建立access对象虽然可以调用带自定义函数的sql，但说实话速度太慢，不如ADODB