2022届浙江高考选考Access数据库课件

Private Sub Form_Load（） Dim strSQL As String Command2. Enabled=False Conn. Connectionstring ="provider = Microsoft. Jet. oledb. 4. 05Data source =" + App. Path+"\supermarket. accdb” Conn. Open Set rs. ActiveConnection=Conn strSQL= "select * from 销售数据表" rs. Open strSQL n=0 Do While Not rs. EOF n=n+l Listl. Addltem rs. Fields(”商品” +" "+Str(rs. Fields("销售额"））+"元” nam(n) = rs.FieldS("商品") sal(n) = rS.FieldSr ("销售额") rs. MoveNext Loop rs. Close Conn.Close Set rs= Nothing Set Conn= Nothing End Sub 5.6算法在数据管理中的应用 记录集recordset 数据库：成绩.accdb 5、找到数据表 4.创建记录集 6、打开表 数据表：高二段成绩 张三 95 101 李四 110 112 王五 90 95 赵六 98 120 8、逐条读取记录 张三 95 101 。。。 记录的末尾：EOF 运到VB家里 1、建立数据库通道 2、指定数据库地址 仓库通道 注：按顺序从上到下取货，从第1条记录开始读取,直到记录的末尾eof 最后别忘了: 9、关闭房门（表) 10、关闭仓库大门(成绩.mdb) 7 来到第一条记录 VB的家 3、打开数据库大门 从前有个叫VB的工人，从家里出发，前往仓库（成绩.mdb)的高二段成绩房间取货，经过艰难跋涉，8个步骤，最终取回了货物。。。 数据库文件名为 数据表名称为 ACCESS数据库 每一行叫做 每一列叫做