代码之家  ›  专栏  ›  技术社区  ›  MTT

数据提供程序或其他服务返回了E\u FAIL状态(vba mysql记录集)

  •  0
  • MTT  · 技术社区  · 6 年前

    当我试图将数据库表中的数据写入工作表时,出现以下错误。

    Public Sub download_nodes()
    
        Dim pull As New QueryHandler
        Dim rst As Recordset
    
        'Get info from mysql into Recordset
        With pull
          .ConnectionString = "localhost"
          .SQLQuery = "SELECT * FROM `table_db`;"
          Set rst = .RetrieveQuery
        End With
    
        'Write data in worksheet "Test"
        If Not rst.EOF Then
            Sheets("Test").Range("A1").CopyFromRecordset rst
        End If
    
    End Sub
    

    你知道问题是什么吗?谢谢!

    0 回复  |  直到 6 年前
        1
  •  0
  •   baka_toroi    5 年前