VB查询数据库代码.doc

文档介绍：Private Sub Command1_Click（）
If = "" Then
MsgBox " 请准确输入查询内容 "
End If
If = " 借书证号 " Then
= "Provider=;Data
桌面 毕业论文设计程序 读者信息管 理 .mdb;Persist Security Info=False"
= "select * from 读者信息 where 借书证号 like '" & & "'"

If Not Then
= （" 借书证号 "）
= （" 姓名 "）
= （" 性别 "）
= （" 读者类型 "）
= （"qq"）
= （" 地址 "）
= （" 电话 "）
Else: MsgBox " 您所要查询的内容不存在！ " End If
End If
If = " 姓名 " Then
= "Provider=;Data
桌面 毕业论文设计程序 读者信息管 理 .mdb;Persist Security Info=False"
= "select * from 读者信息 where 姓名 like '" & & "'"

If Not Then
= （" 借书证号 "）
= （" 姓名 "）
= （" 性别 "）
= （" 读者类型 "）
= （"qq"）
= Ad