如何将多结果(2个表)从sql-query返回到Excel工作表?

时间:2016-09-06 09:53:11

标签: vba

我有sql查询返回2个具有不同结构的表作为结果。 我想以某种方式在VBA / VSTO中编写代码以从该sql查询中获取此2表。 我应该从什么开始? 它有可能吗?

1 个答案:

答案 0 :(得分:0)

简短的回答是肯定的,这是可能的。你需要使用类似下面的代码:

Sub ConnectionExample6()
   Dim cnn As ADODB.Connection
   Dim rs As ADODB.Recordset

   Set cnn = New ADODB.Connection

   ' Open a connection by referencing the ODBC driver.
   cnn.ConnectionString = "driver={SQL Server};" & _
      "server=MySqlServer;uid=MyUserName;pwd=MyPassword;database=pubs"
   cnn.Open

   ' Create a Recordset by executing an SQL statement.
   Set rs = cnn.Execute("Select * From authors")

   ' Show the first author.
   MsgBox rs("au_fname") & " " & rs("au_lname")

   ' Close the connection.
   rs.Close

End Sub

来源在这里:

https://msdn.microsoft.com/en-us/library/ms807027.aspx

尝试使用它,然后回来告诉我们您是否有问题。