如何实现datacombobox和textbox共同关联一个数据库?
											假如有一个数据库,如何用datacombobox或combobox和textbox关联这个数据库并显示相关数据?(例如,我在datacombobox中选中一个人的名字,然后textbox中会自动显示这个人的职业。)										
					
	
				
											使用adodc控件,
Private Sub Form_Activate()
   S = App.Path & "\db1.mdb"   
  Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" + Chr(34) + S + Chr(34) & ";Jet OLEDB:Database Password=chen3523;"  '打开有密码数据库,密码为“chen3523”
     = adCmdTable
    Adodc2.RecordSource = "a1表"
    Adodc2.Refresh
       Set DataCombo1.RowSource = Adodc2
       DataCombo1.ListField = "名字"
End Sub
在textbox框属性中设置:datasource为adodc2,datafild为“职业”。应该可以了										
					
	
	
	
			


											
	    

	
											
