一、实验目的
1．掌握 ADO 数据控件连接 SQL Server 数据库的方法。
2．掌握 Visual Basic 的数据绑定控件与 ADO 数据控件的绑定方法。
3．掌握编写 Visual Basic 窗体程序维护数据记录的方法。
4．掌握在 Visual Basic 中查询数据的方法。
二、实验准备
1．了解 Visual Basic 的 ADO 数据控件和数据绑定控件的属性设置方法。
2．了解能与 ADO 数据控件进行绑定的数据绑定控件的属性和方法，如 DataLIST、
DataCombo 和 DataGrid 等。
3．熟悉 ADO 数据控件与 SQL Server 数据库建立的方法和步骤。
4．熟悉 ADO 数据控件的记录集操作数据记录的方法。
三、实验内容及步骤
1．新建 Visual Basic 工程并命名为 pdb1。
2．在控件工具箱中添加 ADO 数据控件，需要使用“工程”→“________”命令。
3．在默认窗体 Form1 中，建立 ADO 数据控件 Adodc1，要将其与 student_db 数据库建立 连接，可以选择该控件的快捷菜单中的“________”命令。
4． 将 Adodc1 控件通过连接字符串和使用 Windows NT 身份验证方式与 student_db 数据库 建立连接，此时 Adodc1.ConnectionString 的属性值为________。
5． 设置 Adodc1 控件 CommandType 的属性值为 2adCmdTable， 再设置该控件的________
属性 St_Info，使之可以访问 student_db 数据库的 St_Info 表。
6．在窗体 Form1 中，添加 8 个标签和 8 个文本框，修改文本框的 DataSource 属性和 DataField 属性， 使之分别与 Adodc1 控件记录集的每个字段绑定， 如图 18.1 所示。 单击 Adodc1 控件的箭头按钮将记录指针定位到“张红飞”的学生记录。
图 18.1 Adodc1 控件访问 St_Info 表
7．参照实验步骤 3～6 在工程 pdb1 中建立访问 student_db 数据库的 C_Info 表的新窗体 Form2，如图 18.2 所示。在该窗体上建立一个 ADO 数据控件并命名为 Adodc2，设置其属性使 之可以访问 C_Info 表，且将其 Visible 属性设置为 False。
图 18.2 Form2 布局界面
8．分别为窗体 Form2 的命令按钮添加代码，使之可以控制 Adodc2 控件记录集的移动，
且将记录指针定位在“数据库应用基础”的课程记录上。
提示： 修改工程 pdb1 的属性使其启动对象为 Form2， 以便 VB 的 “启动” 命令能运行 Form2 窗体。
9． 参照图 18.2 新建窗体 Form3， 将 4 个命令按钮的 Caption 属性分别设置为 “添加” 、 “修 改” 、 “删除” 、 “退出” ，ADO 数据控件命名为 Adodc3，将其 Visible 属性设置为 False。为每 个命令按钮编写代码，使之能添加记录、修改记录、删除记录、退出窗体。
10． 运行窗体 Form3， 添加课程编号为 9720053、 课程名称为 “FORTRAN 程序课程设计” 、 课程类别为“实践” 、学分为 1 的课程记录；删除课程编号为 20010051 的记录；将课程名称为
“数据库应用基础”的记录更名为“数据库技术应用基础” ；再次运行窗体 Form2，浏览这些 数据是否已改变，并将记录指针定位在“FORTRAN 程序课程设计”的课程记录上。
Adodc2
11． 在工程 pdb1 中， 新建窗体 Form4， 在该窗体上添加一个 ADO 数据控件， 命名为 Adodc4，
将它连接到数据库 student_db 并将其 CommandType 属性设置为 2adCmdText， 其 RecordSource 属性设置为以下 SQL 查询语句：
SELECT DISTINCT Cl_Name FROM St_Info ORDER BY Cl_Name Adodc4 控件的记录集包含________。
12．在窗体 Form4 上添加一个 DataCombo 控件，默认名称为 DataCombo1，设置 Adodc4 控件为其数据源，ListField 和 BoundColumn 属性都为 Cl_Name。
13．运行 Form4 窗体，单击 DataCombo1 控件的下拉按钮查看其列表中是否列出所有班 级。
14．在 Form4 窗体上再添加一个 ADO 数据控件，命名为 Adodc5，将它连接到 student_db 数据库并将其 CommandType 属性设置为 2adCmdText，其 RecordSource 属性设置为以下 SQL 查询语句：
SELECT St_Name From St_Info Adodc5 控件的记录集包含________。
15．在 Form4 窗体上再添加一个 DataList 控件，默认名称为 DataList1，将 Adodc5 控件作 为其数据源，ListField 和 BoundColumn 属性都为 St_Name。
16．运行 Form4 窗体时 DataList1 控件的列表显示是什么？
17．在 DataCombo1 控件的 Click 事件过程中添加以下代码：
Private Sub DataCombo1_Click(Area As Integer)
运行 Form4 窗体，分析：当用户在 DataCombo1 控件中选 择一个班级名时 DataList1 控件会产生什么反应？若选择了
“口腔（七）0601 班” ，窗体 Form4 显示的结果是否如图 18.3 所示？若选择 DataList1 控件列表中的一个选项，窗体 Form4 又会如何？
18． 在工程 pdb1 中新建窗体 Form5， 添加一个 DataCombo 控件（名称为 DataCombo2）、一个 DataGrid 控件（名称为 DataGrid1）、两个 ADO 数据控件（名称分别为 Adodc6 和 Adodc7）。参照实验步骤 11～17 设置各控件的属性，使得
DataCombo2 控件绑定 Adodc6 控件，DataGrid1 控件绑定 Adodc7 控件，Adodc6 控件的记录集 为所有课程名称，Adodc7 控件的记录集为 S_C_Info 表的某课程成绩信息。
提示：将 DataCombo2 控件的 DataSource 属性设置为 Adodc6，DataField 和 BoundColumn 属性设置为 C_No，RowSource 属性设置为 Adodc6，ListField 属性设置为 C_Name。这样设置 的特点是 DataCombo2 控件列表显示的是课程名称 C_Name，而绑定的数据列是课程编号 C_No，通过 BoundText 属性可以直接获取当前选择课程的课程编号值。
图 18.3 窗体 Form4 运行界面
19．参照实验步骤 17 为 Form5 的 DataCombo2 控件的 Click 事件过程添加代码，使得在 DataCombo2 控件中每选择一门课程，DataGrid1 控件自动显示该课程的所有成绩信息，如选 择“大学计算机基础”课程，DataGrid1 控件显示如图 18.4 所示的数据。
图 18.4 Form5 运行界面
四、实验思考
1． 要将实验步骤 3 的 Adodc1 控件通过 ODBC 数据源 Stud （实验 17 建立的） 与 student_db 数据库建立连接，应如何操作？
2．在窗体 Form5 中，若组合框列表设置为学生姓名，要求每选择一个学生，在数据网格 中显示该学生所修课程的名称和成绩，应如何操作？