[求助]ADO取出一个数据表的每字段名？

菩明本何

我在做一个表格。想要用代码ADO取某一个数据表的各个字段？？要怎么做？？

fan0217

Sub Main()
    Dim Cnxn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim fld As ADODB.Field
    Dim strCnxn As String
    Dim strSQL As String
    Dim FieldType As String
   
    Set Cnxn = New ADODB.Connection
    strCnxn = "rovider='sqloledb';Data Source='MySqlServer';" & _
        "Initial Catalog='Pubs';Integrated Security='SSPI';"
    Cnxn.Open strCnxn
  
    Set rst = New ADODB.Recordset
    strSQL = "employee"
    rst.Open strSQL, Cnxn, , , adCmdTable
   
    Debug.Print "Fields in Employees Table:" & vbCr
   
    For Each fld In rstEmployees.Fields
        Select Case fld.Type
            Case adChar
               FieldType = "adChar"
            Case adVarChar
               FieldType = "adVarChar"
            Case adSmallInt
               FieldType = "adSmallInt"
            Case adUnsignedTinyInt
               FieldType = "adUnsignedTinyInt"
            Case adDBTimeStamp
               FieldType = "adDBTimeStamp"
        End Select

        Debug.Print "  Name: " & fld.Name & vbCr & "  Type: " & FieldType & vbCr
    Next
   
    rstEmployees.Close
    Cnxn.Close
    Set rstEmployees = Nothing
    Set Cnxn = Nothing
End Sub