如何建立数据库关联的Combo Box
编号：QA000831
建立日期: 1999年4月19日 最后修改日期：1999年4月19日
所属类别：
lxczsj:
我建了一个数据库用到一个Combo1控件想达到这样一个目的:
当FORM_LOAD时Combo1读A.MDB的字段“地点”里的多项内容以提供选择，当FORM_UNLOAD时Combo1.TEXT的内容又将写到B.MDB里的一个字段里去，我用的是VB5.0(SP3)
Private Sub Form_Load()
Data1.Database "ACCESS"
Data1.DatabaseName "c:\a.mdb"
Data1.RecordSource "地址"
Data2.Database "access"
Data2.DatabaseName "c:\b.mdb"
Data2.RecordSource "地址"
Combo1.DataSource "data1"
Combo1.DataField "地址"
End Sub
Private Sub Form_Unload(Cancel As Integer)
'这里不知怎样编
End Sub
而且combo1只有一条内容。
回答:
你应该使用DBCombo而不是Combo。如果使用Combo，只有一条记录，而不会自动将数据库中的内容都填充到Combo中去。DBCombo的使用方法参考QA000274 "使用绑定的DBCombo时，如何使对应的data控件也能同步变动"。
如果你一定要使用Combo，必须手工编写读数据库的代码，如：
While Not Data1.Recordset.Eof
Combo1.AddItem Data1.Recordset("地址")
Data1.Recordset.MoveNext
Wend
如果要保存Combo1.Text，可以：
Data2.Recordset.AddNew
Data2.Recordset("地址") = Combo1.Text
Data2.Update
此问题由李海回答。
| |
|
|
| |
|
|
