1
希望有人能帮我解决我面临的问题。问题是我很难在同一个Excel工作表中获取多个SQL查询输出。多个SQL查询输出在一个工作表中
通过下面的代码,我可以得到一个/单个SELECT查询输出与列标题的输出。现在我想在同一个工作表中显示多个SELECT查询输出。
代码---
Sub databases()
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
Dim sSQL1 As String
sSQL1 = "SELECT SUM(number_submitted)as NUMBER_SUBMITTED," & _
"MGR_GRP_ID,SERVICE_CI_ID,LOCATION_ID from CHANGE_REQUEST_ENUM_F where ENUM_FIELD_CD=11834 and ENUM_VALUE in (10,11)" & _
"group by MGR_GRP_ID,SERVICE_CI_ID,LOCATION_ID"
'sSQL2 = "select * from change_request_f"
Set cn = New ADODB.Connection
Sheets("sheet4").Select
Selection.ClearContents
cn.Open "Provider=SQLOLEDB.1; UID=USERID;PWD=PASSWORD;Initial catalog=BMCDI_DWH;Data Source=vw-pun-atm-qa26"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open sSQL1, cn, adOpenForwardOnly, adLockReadOnly, adCmdText
'check content of rs
If rs.EOF Then
MsgBox ("record set is empty. rs.EOF = " & rs.EOF)
Else
MsgBox ("total records: " & rs.RecordCount)
Range("A1").Select
For Each qf In rs.Fields
Range("a1").Offset(0, coloffset).Value = qf.Name
'Range("a1").Offset(1, 0).Value = qf.Name
coloffset = coloffset + 1
Next qf
Range("A2").CopyFromRecordset rs
rs.Close
Set rs = Nothing
End If
End Sub
[我已经回答了一个非常类似的问题,请点击此处(http://stackoverflow.com/questions/16436006/excel-and-sql-queries-through-不同-潜艇 - 或功能/ 16436388#16436388) – 2013-05-14 12:38:04