机房收费系统组合查询之SQL语句

Private Sub cmdOk_Click()

    Dim txtSQL As String

    Dim msgText As String

    Dim mrc As ADODB.Recordset

    

    txtSQL = "select * from worklog_info where " & ComboFileName1.Tag & ComboSign1.Text & "'" & txtInquire1.Text & "'"        '前后对应(查询的是个语句,教之分情况方便!)

    

    If ComboRelation1.Text <> "" Then    '检查第二个组合字段

        If ComboFileName2.Text = "" Then

            msgbox "请选择字段名", vbOKOnly + vbExclamation, "警告"

            ComboFileName2.SetFocus

'            ComboFileName2.SelStart = 0

            Exit Sub

        End If

        If ComboSign2.Text = "" Then

            msgbox "请选择操作符", vbOKOnly + vbExclamation, "警告"

            ComboSign2.SetFocus

            Exit Sub

        End If

        If txtInquire2.Text = "" Then

            msgbox "请输入要查询的内容", vbOKOnly + vbExclamation, "警告"

            txtInquire2.SetFocus

            Exit Sub

        End If

            

        '第二个组合段正确，开始添加信息

        txtSQL = txtSQL & " " & ComboRelation1.Tag(把组合关系也变成语句来使用,教之分情况,方便!) & " " & ComboFileName2.Tag & ComboSign2.Text & "'" & txtInquire2.Text & "'"

    End If

    

    If ComboRelation2.Text <> "" Then      '检查第三个组合字段

        If ComboFileName3.Text = "" Then

            msgbox "请选择字段名", vbOKOnly + vbExclamation, "警告"

            ComboFileName3.SetFocus

            Exit Sub

        End If

        If ComboSign3.Text = "" Then

            msgbox "请选择操作符", vbOKOnly + vbExclamation, "警告"

            Exit Sub

        End If

        If txtInquire3.Text = "" Then

            msgbox "请输入要查询的内容", vbOKOnly + vbExclamation, "警告"

            txtInquire3.SetFocus

            Exit Sub

        End If

        

        '第三个组合段正确，开始添加信息

        txtSQL = txtSQL & " " & ComboRelation2.Tag & " " & ComboFileName3.Tag & ComboSign3.Text & "'" & txtInquire3.Text & "'"

    End If

    

'    txtsql = txtsql & ")"  '补充完整"

   Print txtSQL

'    txtsql = "select * from line_info"

    Set mrc = ExecuteSQL(txtSQL, msgText)

   查询主要用的SQL语句,这样的查询非常方便,开始我打算分情况,问同学后,发现自己太笨了!所以记录下来,供反思用!