专题07 VB在数据库中的应用之数据库连接（专项练习）-巅峰冲刺2020年浙江省高考选考信息技术二轮专项提升

专题7 VB在数据库中的应用之数据库连接（专项练习） 1. 通过 ADO 的 Recordset Recordset 对象 实例 rs 打开的记录 打开的记录集如图所示。当前是第4条记录 ，要用 Fields集合返回第2个字段的值，以下代码正确的是（ ） A. a(4)=rs.Fields(2) B. a(4)=rs.Fields(1) C. a(4)=rs.Fields(书名) D. a(4)=rs.Fields("书号") 2. 小王编写了一个 VB 程序，用于读取某数据库中的数据，部分代码如下： Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset conn.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0;DATA Source=" & App.Path & "\mydata. accdb" Set rs.ActiveConnection = conn rs.Open "select * from keti" n=0 Do While Not rs.EOF n=n+1 rs.MoveNext Loop 下列对于以上代码的理解正确的有（ ） ① 接的数据库文件名是“mydata” ② “ConnectionString”是 conn 对象的属性值 ③ 查询的数据表名称是“keti” ④ 程序运行后，变量 n 的值表示该数据表中记录的总数 ⑤ 省略语句“rs.MoveNext”，程序也可以正常运行 A. ①②③④ B. ②③④ C. ③④⑤ D. ③④ 3. 某个VB应用程序中使用如下代码读取数据库中的信息： Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim n as Integer Private Sub Form_Load( ) conn.ConnectionString = "Provider=Microsoft.Ace.OLEDB.12.0;datasource =" + App.Path+ "\data\data.accdb" conn.Open sql = "select * from student" Set rs.ActiveConnection = conn rs.Open sql n=0 Do while Not rs.EOF List1.AddItem rs(“name”) n=n+1 rs.MoveNext Loop End Sub 运行上述程序，以下说法不正确的是（ ） A. 当前读取的数据库文件是Data文件夹中的data.accdb文件 B. 数据库中存在一个名为student的数据表 C. List1列表框中将显示指定的数据表中所有记录name字段的值 D. 窗体加载完成后，读取的数据表中总记录数为 n-1 4. 学校把各同学选考组合放在一个数据库中,小明编写了一个VB程序,用于查询每个同学的选考组合,程序界面如图所示，在文本框Text1中输入学号，单击“开始查询”按钮（Command1），就开始查找该学号的信息，如果找到对应的信息，就显示所属学生的姓名和选考组合；如果没有找到，则显示“找不到”。 学校共有n名学生，数组a、b分别保存了本次考试所有学生的学号和姓名信息。数据库数据按学号从小到大排列，第i个学生的学号保存在a(i)，对应的姓名保存在b(i)，c(i)保存该学生的选考组合。 程序如下，在程序划线处填入适当的代码，把程序补充完整。 Dim n As Integer ,a(1000) As String, b(1000) As String, c(1000) As String Private Sub Command1_Click() Dim x As String, pos As Integer Dim conn As New ADODB.Connection , rs As New ADODB.Recordset conn.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" & App.Path & "\students.accdb" conn.Open Set rs.ActiveConnection = conn rs.Open "学生信息" n = 0 '考生数初始化 Do While Not rs.EOF n = n + 1 a(n) = rs.Fie