Question

我是VBA的新手。我想从vba代码运行简单的SQL查询。我找到了这个任务的简单代码，但我一直在收到错误＆＃34;自动化错误未指定错误2147647259（80004005）＆＃34;
我被卡住了，请帮忙（用户名和密码被屏蔽）。这是我的代码：

Sub Download_Standard_BOM()  
Dim cnn As New ADODB.Connection  
Dim rst As New ADODB.Recordset  
Dim ConnectionString As String  
Dim StrQuery As String  
    ConnectionString = "Provider=SQLOLEDB.1;Password=13139797MMn;Persist   Security Info=True;User ID=MPam;Data Source=172.20.84.15;Use Procedure   for Prepare=1;Auto Translate=True;Packet Size=4096;Use Encryption for   Data=False;Tag with column collation when possible=False;Initial   Catalog=ImportHapoalim"  
    cnn.Open ConnectionString    
    cnn.CommandTimeout = 900    
    StrQuery = "SELECT MAX(CAST(itra as float)) FROM [ImportHapoalim].[dbo].[Minchali] WHERE deltaid = 275"     
    rst.Open StrQuery, cnn    
    Sheets(1).Range("A2").CopyFromRecordset rst  

End Sub

使用Excel VBA运行SQL查询并获取错误

0 个答案: