語法
BindingCollection
說明
BindingCollection對象允許把任意的數據供應程式綁定到任意的數據使用者。要把使用者綁定到數據供應程式，使用Add方法向該集合添加一個Binding對象。每一個Binding對象代表一個特定的使用者到BindingCollection對象提供的DataSource的綁定。
沒有設計時界面的數據源，例如一個配置為數據源的Class（通過設定它的DataSourceBehavior屬性為VbDataSource），或者一個ADO Recordset，可以在運行時使用BindingObject集合來綁定。
使用標準的集合語法返回或設定集合成員的屬性。
Binding對象、BindingCollection 對象示例
本例使用BindingCollection對象把一個數據源綁定到兩個TextBox控制項。首先打開一個ADODB記錄集對象，然後設定BindingCollection的DataSource屬性為該記錄集。隨後，程式代碼把兩個Binding對象添加到該集合，同時也就把這兩個TextBox控制項綁定到該記錄集的不同欄位了。
要試驗該例，在“引用...”對話框設定對Microsoft Data Binding Collection的引用。在同一個對話框中，設定對Microsoft ActiveX Data Objects Library的引用。在窗體上繪製兩個TextBox控制項，把代碼貼上到“聲明”部分。按F5鍵，並單擊窗體移動到記錄集的下一條記錄。
Option Explicit
Private colBndNwind As New BindingCollection
Private rsNwind As New ADODB.Recordset
Private cn As New ADODB.Connection
Private Sub Form_Load()
' 設定Connection對象參數。
With cn
' 下列的連線在您的計算機上可能能夠正常工作，也可能不能正常工作。
' 請改變它以定位Nwind.mdb檔案。
' 該檔案包括在Visual Basic中。
.Provider = "Microsoft.Jet.OLEDB.3.51"
.Open "C:\Program Files\DevStudio\VB\Nwind.mdb"
End With
' 打開該記錄集對象。
rsNwind.Open "Select * From Products", cn
' 設定Bindings集合的DataSource為該記錄集。
Set colBndNwind.DataSource = rsNwind
' 添加到Bindings集合。
With colBndNwind
.Add Text1, "Text", "ProductName", , "product"
.Add text2, "Text", "SupplierID", , "ID"
End With
' 列印集合中對象的屬性。
Dim bndObj As Binding
For Each bndObj In colBndNwind
Debug.Print "DataField", "PropertyName", "Key"
Debug.Print bndObj.DataField, bndObj.PropertyName, bndObj.Key
Debug.Print
Next
End Sub
Private Sub Form_Click()
' 單擊窗體移動到下一條記錄。
rsNwind.MoveNext
End Sub
