vbscript 获取Recordset标题

Posted 2021-05-21

Function GetRecordsetHeader(adoRecSet As ADODB.Recordset) As Variant
'Description:   Saves the header of a recordset to a 1D Array
'Input:         Recordset object
'Output:        1D Array

'******   DEKLARÁCIÓK   ********************
Dim tempArr()   As Variant
Dim i           As Long
'*******************************************

    With adoRecSet
        ReDim tempArr(0 To .Fields.Count - 1)
    
        For i = 0 To .Fields.Count - 1
            'Mezõ/oszlop név:
            tempArr(i) = .Fields(i).Name
        Next i
    End With

'   Return    
    GetRecordsetHeader = tempArr

End Function