Office中国论坛/Access中国论坛

标题: 获取指定表所有字段名的函数 [打印本页]

作者: 李寻欢 时间: 2003-3-30 00:22
标题: 获取指定表所有字段名的函数
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 时间: 2003-3-30 01:29
如果不是 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 时间: 2003-4-7 18:22
Roadbeg版主的函数可以,而李寻欢版主的为什么得到的是空值呢？

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)