vba - 在 VBA 中从 SQL Server 获取数据

Question

嗨下面是我的代码，我无法从我的 SQL 服务器获取数据，
它的抛出错误为

Compiler error :  object required.

连接没有问题，连接成功。

请更正我的代码，帮我解决这个问题

Private Sub CommandButton1_Click()
Set SQLConn = CreateObject("ADODB.Connection")

SQLConn.Open "provider =sqloledb; Data Source = xxxx; Initial Catalog = jjjj; User Id = yyyy; Password = zzzz"

       MsgBox "Connection Succesful"

Set SQLData = CreateObject("ADODB.Recordset")
With SQLData

    ' Assign the Connection object.
    .ActiveConnection = SQLConn

    ' Extract the required records.
    .Open "select invoice_num, invoice_date, invoice_amount from im_invoice where billing_account = 'HS0076A' and invoice_date ='01-apr-2011'"

    ' Copy the records into cell A1 on Sheet1.
    Sheet1.Range("A1").CopyFromRecordset SQLData

    ' Tidy up
     .Close

End With

SQLConn.Close
Set SQLData = Nothing
Set SQLConn = Nothing

End Sub

谢谢

谢谢它的工作...... :)

Answer 1

缺少“设置”...

' Assign the Connection object. 
Set .ActiveConnection = SQLConn