VBA_輸出SQL查詢(xún)數(shù)據(jù)

Option Explicit

Sub 輸出數(shù)據(jù)表(strSql As String, Work As String) '傳值處理
'''''''''''''''''''''''''''''''''''''''''''
Dim data As New 數(shù)據(jù)庫(kù)
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sht As Worksheet
Dim i As Integer
Dim Lm As Integer
Dim h As Integer
Set sht = ThisWorkbook.Worksheets(Work)
cn.Open data.SQL數(shù)據(jù)庫(kù)
'循環(huán)查詢(xún)到的列名，把列名的數(shù)量定義循環(huán)。
rs.Open strSql, cn '執(zhí)行strSQL所含的SQL命令，結(jié)果保存在rs記錄集對(duì)象中

i = 0
Lm = rs.Fields.Count '列名的數(shù)量定義
While i < Lm
    sht.Cells(2, i + 1) = rs.Fields(i).Name '列名讀取
    i = i + 1 'i加1，準(zhǔn)備把下一記錄相關(guān)字段的值保存到工作表的下一行
Wend
rs.Close '關(guān)閉記錄集
'''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''
'循環(huán)數(shù)據(jù)表
rs.Open strSql, cn '執(zhí)行strSQL所含的SQL命令，結(jié)果保存在rs記錄集對(duì)象中
i = 3
    Do While Not rs.EOF
        h = 1
        While h - 1 < Lm '當(dāng)數(shù)據(jù)指針未移到記錄集末尾時(shí)，循環(huán)下列操作
            sht.Cells(i, h) = rs(rs.Fields(h - 1).Name) '把當(dāng)前字段2的值保存到sheet1工作表的第i行第2列
            h = h + 1
        Wend
        rs.MoveNext '把指針移向下一條記錄
        i = i + 1
    Loop
rs.Close '關(guān)閉記錄集