re " & b & " like '%" & a & "%'" '书籍查询
Adodc1.Refresh
Else
Adodc1.RecordSource = "select * from S_book "
Adodc1.Refresh
End If
Case 4
If i <> 5 Then
Adodc1.RecordSource = "select * from S_no where " & b & " like '%" & a & "%'" '学号查询
Adodc1.Refresh
Else
Adodc1.RecordSource = "select * from S_no "
Adodc1.Refresh
End If
End Select
End If
L1.名称 = "共找到" & Adodc1.Recordset.RecordCount & "条记录"
Exit Sub
wrong:
MsgBox Err.Description
End Sub
Private Sub book_Click()
SSTab1.Tab = 3
With combo1
.Clear
.Text = "请选择类别"
.AddItem "名称", 0
.AddItem "作者", 1
.AddItem "书号", 2
.AddItem "名称", 3
.AddItem "出版社", 4
.AddItem "出版时间", 5
.AddItem "内容介绍", 6
.AddItem "所有记录", 7
End With
Adodc1.Refresh
End Sub