获取指定表所有字段名的函数

李寻欢

Private Function GETZD(tbName As String)
    Dim cat As New ADOX.Catalog
    cat.ActiveConnection = CurrentProject.Connection
    For i = 0 To cat.Tables(tbName).Columns.Count - 1
        Debug.Print cat.Tables(tbName).Columns.Item(i).Name
    Next
End Function

'需引用ADOX
'用法：GETZD ("表名")
本想发短信息的，但提示已超过300字符不能发。

Roadbeg

如果不是 adp ,建议使用 dao 实现这些功能，因为在 mdb 中，dao 是最成熟和有效率的。
Public Function GetFieldName(TableDefName As String) As String
On Error GoTo Doerr

    Dim tbf As DAO.TableDef
    Dim fld As DAO.Field
    Dim strReturn As String
   
    Set tbf = DBEngine.Workspaces(0).Databases(0).TableDefs(TableDefName)
    For Each fld In tbf.Fields
        strReturn = strReturn & "," & fld.Name
    Next
   
    If strReturn <> "" Then GetFieldName = Right(strReturn, Len(strReturn) - 1)
    Exit Function   
Doerr:
    MsgBox "发生错误,指定的表可能不存在"
End Function

[此贴子已经被作者于2003-3-29 20:20:48编辑过]

sea.er

Roadbeg版主的函数可以,而李寻欢版主的为什么得到的是空值呢？

[此贴子已经被作者于2004-2-16 19:00:11编辑过]