Question

VB中,将Access数据库加入combobox后,如何利用combobox查找其他字段

form中有三个控件combo1,text1,text2,另有Access数据表JZ,表中有ID,jz,sx,xx四个字段
需求是,将表中的jz字段加入至combo1,当做combo1的下拉列表,并且当选择combo1中的内容时,自动将sx,xx字段中的内容加入到text1,text2控件中
现已将表中的jz字段加入到combo1中,但不知该如何组织语言,查找表中的sx,xx内容,并将内容赋值于text1,text2
combo1的代码如下:
Private Sub Form_Load()
Dim i As Integer
'添加机种信息
Combo1.Clear
Adodc1.RecordSource = "select * from jz"
For i = 1 To Adodc1.Recordset.RecordCount
Combo1.AddItem Adodc1.Recordset("jz")
Adodc1.Recordset.MoveNext
Next i
Combo1.Text = Combo1.List(0)
Adodc1.Recordset.MoveFirst
Text1.Text = Adodc1.Recordset("sx")
Text2.Text = Adodc1.Recordset("xx")
End Sub
我是初学的菜鸟,烦请多多指教,谢谢!
添加如下代码,还是不行,所传出的始终是第一条记录的值,似乎select语句的where 字句没有起作用,请高手指点
Private Sub Combo1_Click()
Dim jz As String
jz = Combo1.Text
Select Case Combo1.Text
Case jz
Adodc1.RecordSource = "select * from jz where jz=" '& jz &'""
Adodc1.Recordset.MoveFirst
Text1.Text = Adodc1.Recordset("sx")
Text2.Text = Adodc1.Recordset("xx")
End Select
End Sub

Answer 1

这个不难，没看代码，你想要什么？

其实c#多好用啊！

首先事件已经有了
然后就是下拉框改变内容时，刷新text1和text2
绑定数据库，SQL查询
select 字段1，字段2 from 表 where 字段=‘下拉框取出的字符串’
然后将查询结果绑定到text1和text2上

Answer 2

Combo1 也绑定到Adodc1