vbscript 获取ADO Recordset标头

Posted 2021-05-21

Function GetADORecordsetHeader(adoRecSet As ADODB.Recordset) As Variant
'Description:   Saves Recordset header to 1D array
'Input:         Recordset
'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   --------
    GetADORecordsetHeader = tempArr
'   ----------------------------

End Function