admin 管理员组文章数量: 1184232
2024年3月27日发(作者：tar压缩命令)
VB数据库编程技术
中SQL的实现
SQL中使用SELECT语句实现查询，SELECT语句基本上是数据库记录集的定义语句。
Data控件的RecordSource属性不—定是数据表名，可以是数据表中的某些行或多个数
据表中的数据组合。可以直接在Data控件的RecordSource属性栏中输入SQL，也可在
代码中通过SQL语句将选择的记录集赋给数据控件的RecordSource属性，也可赋予对象
变量。
例8 将例9.5中的查找功能改用SQL语句处理，显示某专业的学生记录。
使用SQL语句查询只要将例5中命令按钮Command5_Click事件写为如下代码：
Private Sub Command5_Click()
Dim mzy As String
mzy = InputBox$("请输入专业", "查找窗")
Source = "Select * From 基本情况 Where 专业 = '" & mzy & "'"
h
If Then
MsgBox "无此专业!", , "提示"
Source = "基本情况"
h
End If
End Sub
程序中“Select *”选择表中所有字段(也可以指定选择部分列)；“From基本情况”
短语指定数据来源；“Where 专业 = '" & mzy & "'"”短语构成查询条件，用于过滤表
中的记录；h方法激活这些变化。此时，若为True，
表示记录过滤后无数据，重新打开原来的基本情况表。
注意：代码中的两处Refresh语句不能合用为一句，这是因为在执行了Select命令后，
必须激活这些变化，然后才能判断记录集内有无数据。
也可用SQL语句实现模糊查询，命令按钮Command5_Click事件改为如下代码：
Private Sub Command5_Click()
Dim mzy As String
mzy = InputBox$("请输入专业", "查找窗")
版权声明：本文标题：VB数据库编程技术 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1711542544a599133.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论