vbscript:测试记录集中是否存在列

Dim conn, rs, columnExists
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\myDatabase.mdb"
rs.Open "SELECT * FROM myTable", conn

columnExists = False
For Each field In rs.Fields
    If field.Name = "columnName" Then
        columnExists = True
        Exit For
    End If
Next

If columnExists Then
    MsgBox "The column exists in the recordset."
Else
    MsgBox "The column does not exist in the recordset."
End If

rs.Close
conn.Close