VB数据库编程技术.pdfVIP

VB 数据库编程技术 6. 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$( 请输入专业 , 查找窗 ) Data1.RecordSource = Select * From 基本情况 Where 专业 = mzy Data1.Refresh If Data1.Recordset.EOF Then MsgBox 无此专业 !, , 提示 Data1.RecordSource = 基本情况 Data1.Refresh End If End Sub 程序中 “Select *选择表中所有字段” (也可以指定选择部分列 )；“From基本情况 ”短语指定 数据来源； “Where专业 = mzy 短语构成查询条件，用于过滤表中的记录；” Data1.Refresh 方法激活这些变化。此时，若 Data1.Recordset.EOF 为 True ，表示记录过滤后 无数据，重新打开原来的基本情况表。 注意：代码中的两处 Refresh 语句不能合用为一句，这是因为在执行了 Select 命令后， 必须激活这些变化，然后才能判断记录集内有无数据。 也可用 SQL 语句实现模糊查询，命令按钮 Command5_Click 事件改为如下代码： Private Sub Command5_Click() Dim mzy As String mzy = InputBox$( 请输入专业 , 查找窗 ) Data1.RecordSource = Select * From 基本情况 Where 专业 like * mzy * Data1.Refresh If Data1.Recordset.EOF Then MsgBox 无此专业 !, , 提示 Data1.RecordSource = 基本情况 Data1.Refresh End If End Sub 例 9 用 SQL 语句从 Student.mdb 数据库的两个数据表中选择数据构成记录集， 并通过 数据控件浏览记录集。 在窗体上放置与例 .2 类似的控件，如图 .20 所示。 Data 控件的 DatabaseName 属性指定 数据库 Student.mdb ，RecordSource 属性空缺，各文本框的 DataSource=Data1， DataField 属 性分别设置为学号、姓名、课程、成绩，而照片字段绑定图形框。 本例要求从基本情况中选择学生的学号、 姓名、 照片， 从学生成绩表中选择该学生的课 程和成绩来构成记录集，可在 Form_ Load 事件中使用 SQL 语句，通过 “Where 学生成绩表 . 学号 =基本情况 .学号 ”短语实现两表之间