ado 数据源

打开工具栏的工程，选择部件， 然后再对话框中microsoft ado data control 6.0前打勾后确定就行了 

 

添加ado，connectionstring属性设置Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db_kfgl.mdb;Persist Security Info=False

recordsource 设置表 kf

DataCombo1组合框属性设置 rowsource  Adodc1  listfield 房间号 boundcolumn设置房间号

Private Sub DataCombo1_Click(Area As Integer)
Adodc2.RecordSource = "kf where 房间号='" + DataCombo1 + "'"
Adodc2.Refresh
With Adodc2.Recordset
If .RecordCount > 0 Then
For i = 0 To .Fields.Count - 1
If .Fields(i).Value <> "" Then
Text1(i).Text = .Fields(i).Value
Else
Text1(i).Text = ""
End If
Next i
End If
End With
End Sub

 

combobox和datacombo区别于选择 

用DATACOMBO,其是绑定的，速度快，COMBOX需要你自己一条条里面加，速度慢。

 

 

combobox的按钮有空也找一个研究下，看下跟datacombo的使用区别

 

 combobox datafield的作用

 datafield可以绑定数据库字段

 显示id

Private Sub Command1_Click()
MsgBox DataCombo1.SelectedItem
End Sub

 VB6中的DATACOMBO问题，怎么样才能读取一个值但返回另一个值？

 

从这个例子中，我们可以看到dbcPublisher所显示的内容来自于rsPublisher的Name字段，由RowSource属性和ListField属性指定；而用户使用中如果选定了某个出版商，则自动将对应的rsPublisher的PubID字段的值去修改目的结果集，这个字段由BoundColumn属性指定；目的结果集和被修改的字段是rsTitles的PubID字段，由DataSource属性和DataField属性指定。另外还有一个属性是BoundText，它的值是BoundColumn指定的字段的值。
　　 DataCombo和DataList控件的使用方法是很简单的，便于快速的应用开发。关于这两个控件的其他详细信息，可以参考MSDN Library中的详细说明。