数据库问题专题.docx

数据库问题专题一、标准数据库代码Dim conn As New ADODB.Connection定义conn对象为新的数据库连接Dim rs As New ADODB.Recordset定义rs数据库的一个对象实例conn.ConnectionString=provider=Microsoft.ACE.OLEDB.12.0;datasource=+App.Path+\*******.accdb设置conn的数据库链接字符串（加粗字为数据库名，不包含前面的\）conn.Open打开数据库连接set rs.ActiveConnection=conn设置rs的ActiveConnection属性，关联connrs.Open select * from ******打开******数据表中的记录集i=0Do While Not rs.EOFi=i+1a(i)=rs.Fields(“字段名1”)rs.MoveNextLooprs.Close关闭记录集conn.Close关闭数据库连接set rs=Nothing声明rs变量为无set conn=Nothing声明conn变量为无二、典型例题分析1.已知有一个图书类的数据库，数据库名字为book.accdb,若要通过数据库代码读取出下表中图书名称与单价记录保存到数组name与price记录中去，那么，上面的标准数据库代码中哪些地方需要修改？2. 【加试题】小王编写了一个VB程序，用于读取某数据库中的数据，部分代码如下：Dim conn As New ADODB.ConnectionDim rs As New ADODB.Recordsetconn.ConnectionString=provider=Microsoft.ACE.OLEDB.12.0;datasource=App.Path\mydata.accdbset rs.ActiveConnection=connrs.Open select * from ketin=0Do While Not rs.EOFn=n+1rs.MoveNextLoop下列对于以上代码的理解正确的有（ ）①连接的数据库名师“mydata”②“ConnectionString”是conn对象的属性值③查询的数据表名称是“keti”④程序运行后，变量n的值表示该数据表中记录的总数⑤省略语句“rs.MoveNext” ，程序也可以正常运行A. ①②③④ B. ②③④ C.②③④⑤ D. ③④3.通过ADO的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(书名)17．【加试题】小李编写一个统计本校10月份学考得“A”的比例VB程序。程序功能如下：在文本框Text1中输入科目名称，单击“读数据库”按钮Command1，程序从数据库读取数据；单击“统计”按钮Command2，程序进行统计处理，将统计得到的各班得“A”的人数存储在b数组，从n+2开始存放同时在列表框List1中输出各班比例和全校的比例。程序运行界面如图所示。数组数组含义a（1 to 600）依次存储第1班的学考等级，第2班的学考等级……第n班的学考等级b（1）存储班级数nb（2）依次存储第1班、第2班……第n班的人数……b(n+2)依次存储第1班、第2班……第n班的“A”级人数……b(2*n+2)存储总人数实现以上功能的VB程序如下，请回答下列问题：（1）分析程序，存储学考等第数据的数据表是。（2）请在划线处填入合适的代码。Dim a(1 To 600) As String 数组大小满足处理要求Dim b(1 To 60) As IntegerPrivate Sub Command1_Click()本过程从数据库中读取指定科目的等第存储在数组a中，班级人数和班级数存入数组b中Dim conn As New ADODB.ConnectionDim rs As New ADODB.Recordsetconn.ConnectionString = Provider=Microsoft.ACE.OLEDB.12.0;Data Source= + App.Path + \data.accdb conn.Open strSQL = SELECT * From dd201610 Set rs.ActiveConnection = conn rs.Open strSQL本过程的其他语句略E