時(shí)間：2019-10-14

概述：字段

最近用VB寫(xiě)一個(gè)數(shù)據(jù)庫(kù)系統(tǒng)，其中一個(gè)功能是對(duì)用戶所創(chuàng)建的數(shù)據(jù)庫(kù)進(jìn)行讀取，并允許用戶修改已創(chuàng)建的字段，那么就需要先讀取對(duì)應(yīng)數(shù)據(jù)庫(kù)中所有的字段，下面的代碼可完成對(duì)數(shù)據(jù)庫(kù)字段的獲取，遍歷獲取到所有數(shù)據(jù)庫(kù)字段，下面來(lái)看代碼吧：

Sub getFieldName() '使用子函數(shù)獲取字段名稱

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" '打開(kāi)已知的數(shù)據(jù)庫(kù)

RS.Open List1.List(List1.ListIndex), CN

For Each FN In RS.Fields

List2.AddItem FN.Name '遍歷輸出所有字段

Next

End Sub

這里的數(shù)據(jù)庫(kù)我選擇了Access，如果是SQLServer的話，同樣適用。

總結(jié)

以上是生活随笔為你收集整理的vb导出mysql字段名_VB获取数据库字段名的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。