UC知道请教用combo查询数据库问题？vb
来源：百度知道 编辑：UC知道 时间：2024/06/17 14:51:57
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里面查询显示
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里面查询显示
DataCombo的Change事件，一般只是在发生了键盘输入的时候才会调用，所以会出现你所说的问题
换一个事件，把Private Sub DataCombo1_Change()字样修改成Private Sub DataCombo1_Validate(Cancel As Boolean)即可
Adodc1.RecordSource = "select 姓名,身份证 from 身份证数据 where 姓名首拼 like '%" & Text4.Text & "%'"
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
Adodc1.RecordSource = "select 姓名,身份证 from 身份证数据 where 姓名首拼 like '" & Text4.Text &