Dim rs_findreader As New ADODB.Recordset '定義壹個數據結果集
Dim sql As String '定義存儲sql語句的變量
If Check1.Value = vbChecked Then '如果復選框check1被選中，sql語句中讀者編號等於text1的值
sql = "讀者編號='" & Trim(Text1.Text & " ") & "'"
End If
If Check2.Value = vbChecked Then '同上
If Trim(sql) = "" Then
sql = "讀者姓名='" & Trim(Text2.Text & " ") & "'"
Else
sql = sql & "and 讀者姓名='" & Trim(Text2.Text & " ") & "'"
End If
End If
If Check3.Value = vbChecked Then '同上
If Trim(sql) = "" Then
sql = "讀者類別='" & Trim(Combo1.Text & " ") & "'"
Else
sql = sql & "and 讀者類別='" & Trim(Combo1.Text & " ") & "'"
End If
End If
sql = "select * from 讀者信息 where " & sql '最後補全sql語句
rs_findreader.CursorLocation = adUseClient
rs_findreader.Open sql, conn, adOpenKeyset, adLockPessimistic '打開數據庫連接，執行sql語句
DataGrid1.AllowAddNew = False '數據集不允許添加
DataGrid1.AllowDelete = False '數據集不允許刪除
DataGrid1.AllowUpdate = False '數據集不允許修改
Set DataGrid1.DataSource = rs_findreader '在datagrid中顯示數據
'rs_findreader.Close '關閉數據庫連接
End Sub
Private Sub Command2_Click()
Unload Me '程序退出
End Sub
Private Sub Form_Load() '窗口加載時填充combo1
Dim rs_find As New ADODB.Recordset
Dim sql As String
sql = "select * from 讀者類別"
rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic
If Not rs_find.EOF Then
Do While Not rs_find.EOF
Combo1.AddItem rs_find.Fields(0)
rs_find.MoveNext
Loop
Combo1.ListIndex = 0
End If
rs_find.Close
End Sub