时间：-10-14
概述：字段
最近用VB写一个数据库系统，其中一个功能是对用户所创建的数据库进行读取，并允许用户修改已创建的字段，那么就需要先读取对应数据库中所有的字段，下面的代码可完成对数据库字段的获取，遍历获取到所有数据库字段，下面来看代码吧：
Sub getFieldName() '使用子函数获取字段名称
Dim RS As ADODB.Recordset
Dim CN As ADODB.Connection
Dim FN As ADODB.Field
Set CN = New ADODB.Connection
Set RS = New ADODB.Recordset
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ZB.mdb;Persist Security Info=False" '打开已知的数据库
RS.Open List1.List(List1.ListIndex), CN
For Each FN In RS.Fields
List2.AddItem FN.Name '遍历输出所有字段
Next
End Sub
这里的数据库我选择了Access，如果是SQLServer的话，同样适用。
