Private Function sChkWhere(sWhere As String) As String
If sWhere = "" Then
sChkWhere = sWhere & " where"
Else
sChkWhere = sWhere & " and"
End If
End Function
查询按钮内代码如下
Private Sub 查询_Click()
Dim sSQL As String
sSQL = "select tnoid, tnam, dgnum from DBBackup"
Dim sWhere As String
If Not IsNull(Me.Text1.Value) And Not Trim(Me.Text1.Value) = "" Then
sWhere = sChkWhere(sWhere) & " tnoid like '%" & Me.Text1.Value & "%'"
End If
If Not IsNull(Me.Text2.Value) And Not Trim(Me.Text2.Value) = "" Then
sWhere = sChkWhere(sWhere) & " tnam like '%" & Me.Text2.Value & "%'"
End If
If Not IsNull(Me.Text5.Value) And Not Trim(Me.Text5.Value) = "" Then
sWhere = sChkWhere(sWhere) & " dgnum >= " & Me.Text5.Value
End If
If Not IsNull(Me.Text6.Value) And Not Trim(Me.Text6.Value) = "" Then
sWhere = sChkWhere(sWhere) & " dgnum <= " & Me.Text5.Value
End If
sSQL = sSQL & sWhere
Debug.Print sSQL
ListView1.ListItems.Clear
Dim rs As New ADODB.Recordset
Dim itemX
rs.Open sSQL, CurrentProject.Connection
Do While Not rs.EOF
Set itemX = ListView1.ListItems.Add()
itemX.Text = rs!tnoid
itemX.SubItems(1) = rs!tnam
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub