当前位置:编程学习 > VB >>

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 ,  控件
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,