VB与Access数据库的连接.

Presentation on theme: "VB与Access数据库的连接."— Presentation transcript:

1 VB与Access数据库的连接

2 VB创建数据访问应用的步骤 1 连接数据源 2 创建SQL查询命令对象 3 处理数据 4 更新数据源

3 Vb无控件连接数据库 无控件连接 需引用Microsoft ActiveX Data Objects 2.0 Library

4 Vb无控件连接数据库 需在“工程菜单中”添加引用

5 VB与Access数据库连接 Connection对象
用Connection建立和数据库的连接时，需设置连接字符串ConnectionString的参数。 Dim conn As New ADODB.Connection '申明一个Connection对象conn conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=data.accdb" conn.Open 'conn有open、Execute、close等方法 Dim rs As New ADODB.Recordset '申明一个Recordset对象rs Dim strsql As String '存储sql语句字符串 Set rs.ActiveConnection = conn 'rs与conn建立关联 sqlstr = "select * from 分班考成绩" '从“分班考成绩出”数据表中读取所有记录 rs.Open sqlstr, conn, 1, 'rs记录集的数据是sqlstr语句查询到的记录

6 SQL查询语句 通式： select 字段名, …from 数据表,… [where条件] [order by字段名,…] 例1：
注释：从“分班考成绩”数据表中查询所有记录 例2： “select 学号, 成绩 from分班考成绩 where 班级=‘高二6班’ order by 学号” 注释：从“分班考成绩”数据表中查询班级字段值为高二6班的学号和成绩字段所有的值，并按学号升序排序 例3： xh=trim(text1.text) “select * from分班考成绩 where 学号=‘“ & xh &”’” 注释：从“分班考成绩”数据表中查询学号字段值为xh的记录

7 Rs记录集 从数据库中检索到的数据的集合。类似于一张二维数据表。它可以包括完整的数据库表，也可以包括表的行和列的子集。根据查询条件形成的表，也可能是无记录的空表。

8 Recordset的Fields集合 用于返回当前记录中的数据. 例： Set rs.ActiveConnection = conn
sqlstr = "select * from 分班考成绩 rs.Open sqlstr, conn, 1, 1 此时rs的当前记录是“分班考成绩”数据表中的第一条记录 Fields集合 返回值 rs.Fields("学号") 1001 rs.Fields(0) rs.Fields("班级") 高二1 rs.Fields(1) rs.Fields 81 rs.Fields(2)

9 RS：Recordset的方法 方法 作用 rs.MoveNext 下一条 rs.MovePrevious 上一条 rs.EOF 尾记录之后
rs.BOF 首记录之前 rs.MoveLast 最后一条 rs.MoveFirst 第一条