vb 如何实现高级检索
我想用vb做一个高级检索功能。1个combobox,2个textbox。其中combobox有“与”“或”两种关系。text1用来输入关键字,text2也是用来输入关键字,通过对combobox中“与”“或”的变化,检索text1和text2中的内容。即对text1 与 text2检索,text1 或 text2检索 。各位大侠快来帮帮我吧 谢谢了 --------------------编程问答-------------------- 将查询语句写入对combobox的Click事件中就可以了 --------------------编程问答-------------------- 实现检索功能最重要的是如何获得检索条件:下面这个函数也许对你的问题有帮助,仅供参考:
Private Function GetCondition( _
Byval iobjComboBox As ComboBox, _
Byval iobjTextBox1 As TextBox, _
Byval iobjTextBox2 As TextBox _
) As String
Dim strCondition As String
If iobjComboBox.Text="与" Then
'combobox选择"与",其中,field1、field2是检索的字段名;
strCondition = "WHERE field1='" & iobjTextBox1.Text & "' " _
& "AND field2='" & iobjTextBox2.Text & "'"
Else
'combobox选择"或"
strCondition = "WHERE field1='" & iobjTextBox1.Text & "' " _
& "OR field2='" & iobjTextBox2.Text & "'"
End If
GetCondition = strCondition
End Function
调用时代码如下:
Dim strCondition As String
ComboBox1.Text=""
ComboBox1.AddItem("与")
ComboBox1.AddItem("或")
TextBox1.Text=field1值
TextBox2.Text=field2值
strCondition = GetCondition( _
ComboBox1, _
TextBox1, _
TextBox2) --------------------编程问答-------------------- 接分混星 --------------------编程问答-------------------- sorry 发错了
补充:VB , 控件