当前位置: 源码素材网 » VB教程 » 详情页

VB获取数据库字段名

  •   时间:2019-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的话,同样适用。

    相关内容:

    相关声明:

      若“VB获取数据库字段名”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。