Question

请教用combo查询数据库问题？vb

Private Sub DataCombo1_Change()

Adodc1.RecordSource = "select 姓名,身份证 from 身份证数据 where 姓名 like '" & Combo1.Text & "'"
Adodc1.Refresh
End Sub
Private Sub Command1_Click()

Adodc1.RecordSource = "select 姓名,身份证 from 身份证数据 where 姓名首拼 like '" & Text4.Text & "'"
Adodc1.RecordSource = "select 姓名,身份证 from 身份证数据 where 姓名 like '" & Text4.Text & "'"
Adodc1.Refresh

End Sub
在Command1上查询可以显示，但只能查询“姓名”!"姓名首拼”不能查询，请问我错在哪里？
我并不想用按钮，只想在combo1里面查询显示

Answer 1

DataCombo的Change事件，一般只是在发生了键盘输入的时候才会调用，所以会出现你所说的问题

换一个事件，把Private Sub DataCombo1_Change()字样修改成Private Sub DataCombo1_Validate(Cancel As Boolean)即可

Answer 2

Adodc1.RecordSource = "select 姓名,身份证 from 身份证数据 where 姓名首拼 like '%" & Text4.Text & "%'"

Answer 3

Private Sub DataCombo1_Change()

Adodc1.RecordSource = "select 姓名,身份证 from 身份证数据 where 姓名 like '" & Combo1.Text & "'"
Adodc1.Refresh
End Sub
Private Sub Command1_Click()

Adodc1.RecordSource = "select 姓名,身份证 from 身份证数据 where 姓名首拼 like '" & Text4.Text & "'"
Adodc1.Refresh

End Sub

Private Sub Command2_Click() '再添加个按钮

Adodc1.RecordSource = "select 姓名,身份证 from 身份证数据 where 姓名 like '" & Text4.Text & "'"
Adodc1.Refresh

End Sub

Answer 4

Adodc1.RecordSource = "select 姓名,身份证 from 身份证数据 where 姓名首拼 like '" & Text4.Text & "'"
改为
Adodc1.RecordSource = "select 姓名,身份证 from 身份证数据 where 姓名首拼 like '" & Text4.Text & "%'"
%是通配符,表示一个或多个字符.有点像文件通配符*

Answer 5

Private Sub DataCombo1_Change()
换成点击事件（click事件）