网上看到这么一段代码，但是objApp.DoCmd.RunSQL(strSql)执行不了！怎么回事？

renahu

这是怎么回事？
有人回复：access2003的"DoCmd.RunSQL”只能执行操作查询（如删除、添加、更新等）不能进行select选择查询。
建议先保存查询，在VBA中用“docmd.OpenQuery  ” 查询名" ”调用。那我如何用vba保存查询再进行 docmd.OpenQuery  ” 查询名" ？


下面是网上代码：
Dim objApp As Object
Set objApp = CreateObject("Access.Application")
objApp.OpenCurrentDatabase "C:\path\to\your\database.accdb" '指定要打开的Access数据库文件路径

' 在此处编写需要执行的SQL查询语句
Dim strSql As String
strSql = "SELECT * FROM YourTableName;" '替换为自己的表名或其他有效的SQL查询语句

' 运行SQL查询并获取结果集
Dim rsResult As Recordset
Set rsResult = objApp.DoCmd.RunSQL(strSql)     '报错！！！

' 遍历结果集并输出每条记录的字段值
If Not rsResult Is Nothing Then
    Do While Not rsResult.EOF
        For i = 0 To rsResult.Fields.Count - 1
            Debug.Print rsResult.Fields(i).Value '这里可以根据需求进行相关操作，比如保存到Excel等
        Next i

        rsResult.MoveNext
    Loop
End If

rsResult.Close
Set rsResult = Nothing

objApp.Quit
Set objApp = Nothing

zpy2

引用 dao 库

Sub RecordsetX()
     
       Dim dbsNorthwind As Database
       Dim rstTable As Recordset
       Dim rstDynaset As Recordset
       Dim rstSnapshot As Recordset
       Dim rstForwardOnly As Recordset
       Dim rstLoop As Recordset
       Dim prpLoop As Property
     
       Set dbsNorthwind = OpenDatabase("Northwind.mdb")
     
       With dbsNorthwind
     
          ' Open one of each type of Recordset object.
          Set rstTable = .OpenRecordset("Categories", _
             dbOpenTable)
          Set rstDynaset = .OpenRecordset("Employees", _
             dbOpenDynaset)
          Set rstSnapshot = .OpenRecordset("Shippers", _
             dbOpenSnapshot)
          Set rstForwardOnly = .OpenRecordset _  
             ("Employees", dbOpenForwardOnly)
     
          Debug.Print "Recordsets in Recordsets " & _
             "collection of dbsNorthwind"
     
          ' Enumerate Recordsets collection.
          For Each rstLoop In .Recordsets
     
             With rstLoop
                Debug.Print "  " & .Name
     
                ' Enumerate Properties collection of each
                ' Recordset object. Trap for any  
                ' properties whose values are invalid in  
                ' this context.
                For Each prpLoop In .Properties
                   On Error Resume Next
                   If prpLoop <> "" Then Debug.Print _
                      "    " & prpLoop.Name & _
                      " = " & prpLoop
                   On Error GoTo 0
                Next prpLoop
     
             End With
     
          Next rstLoop
     
          rstTable.Close
          rstDynaset.Close
          rstSnapshot.Close
          rstForwardOnly.Close
     
          .Close
       End With
     
    End Sub

renahu

zpy2 发表于 2023-12-31 08:10
引用 dao 库

Sub RecordsetX()

谢谢你的代码，这是另一种方法，但我还是想研究一下用access对象能否实现，我提供的代码是AI做出的，它的 Set rsResult = objApp.DoCmd.RunSQL(strSql)     '报错！！！ 显然是执行不了的，我网上查了，都 说.DoCmd.RunSQL 只能针对操作查询，比如建个表删除个表或者更新表，不适用于选择查询 select * from。。。。，我是在VB里运行的，或者在excel里运行，库是access