数据从SQL Server获取在VBA

你好下面是我的代码，我不能够从我的SQL服务器，其投掷误差数据从SQL Server获取在VBA

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

谢谢

谢谢你的工作.... :)

来源

2011-04-15 SQLfanatic

您好！如果你发现如何使它工作，你能接受帮助你的答案吗？ :)您可以通过点击答案旁边的复选标记来接受答案。 – hammythepig 2017-02-06 22:47:21

缺少的 “设置” ...

' Assign the Connection object. 
Set .ActiveConnection = SQLConn

来源

2011-04-15 16:40:02

我正在写这个查询，当你想建立一个Excel之间的连接&使用OLEDBConnecion的VBA中的SQL Server。是的，这是Windows认证。解决方案在下面提到。您需要添加'Microsoft.ActiveX对象库2.8'。

Sub GetDataFromADO() 

    'Declare variables' 
     Set objMyconn = New ADODB.Connection 
     Set objMyCmd = New ADODB.Command 
     Set objMyRecordset = New ADODB.Recordset 
     Dim rc As Long 

    'Open Connection' 
     objMyconn.ConnectionString = "Provider=SQLOLEDB;Data Source=SAXAM\SQLEXPRESS;Initial Catalog=AdventureWorks2012; Integrated Security=SSPI;" 

     objMyconn.Open 

    'Set and Excecute SQL Command' 
     Set objMyCmd.ActiveConnection = objMyconn 
     objMyCmd.CommandText = "select * from [Person].[BusinessEntity] " 
     objMyCmd.CommandType = adCmdText 
     objMyCmd.Execute 

    'Open Recordset' 
     Set objMyRecordset.ActiveConnection = objMyconn 
     objMyRecordset.Open objMyCmd 

    'Copy Data to Excel' 
     'ActiveSheet.Range("A1").CopyFromRecordset (objMyRecordset) 
     Application.ActiveCell.CopyFromRecordset (objMyRecordset) 
     rc = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 
     ActiveSheet.Cells(rc + 1, 1).Select 
     'Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Value 
     objMyconn.Close 

End Sub

谢谢！

来源

2014-11-21 20:25:56

数据从SQL Server获取在VBA

回答

相关问题