第8章VBA数据库编程.ppt.ppt

③Command对象的常用属性 Command对象的常用属性如下： ActiveConnection属性 CommandText属性 State属性 ④Command对象的常用方法Execute方法 对于以记录集返回的Command对象： Set 记录集对象名=command.Execute([RecordsAffected][,Parameters][,Options]) 对于不以记录集返回的Command对象： command.Execute [RecordsAffected][,Parameters][ ,Options] 8.2 VBA数据库访问技术 * 例8-12在“学生成绩管理”数据库中，使用Command对象获取“学生”记录集。 Sub DemoCommand() Dim cnn As ADODB.Connection:Dim rst As ADODB.Recordset:Dim cmd As ADODB.Command Set cnn = New ADODB.Connection:Set rst = New ADODB.Recordset Set cmd = New ADODB.Command cnn.ConnectionString = Provider= Microsoft.ACE.OLEDB.12.0; _ Persist Security Info=False;User ID=Admin;Data Source = F:\学生成绩管理.accdb cmd.CommandText = SELECT * FROM 学生 使用SQL语句设置数据源 cmd.ActiveConnection = cnn.ConnectionString Set rst = cmd.Execute 使用Execute方法执行SQL语句，返回记录集 Debug.Print rst.GetString 在立即窗口中显示记录集全部记录 rst.Close Set rst = Nothing:Set cmd = Nothing:Set cnn = Nothing End Sub 8.2 VBA数据库访问技术 * 添加对ADO的引用，只需要依次选择VBE窗口的“工具”|“引用”菜单命令，在弹出的“引用”对话框中选中“Microsoft ActiveX Data Objects 2.1 Library”选项（有前置的√），按“确定”按钮即可。 在添加了ADO对象的引用后，在VBA中利用ADO访问数据库的基本步骤如下： 1. 定义和创建ADO对象实例变量 2. 设置连接参数并打开连接 3. 设置命令参数并执行命令 4. 打开记录集，并操作记录集 5. 收尾工作 8.2.3 利用ADO访问数据库的步骤 * 步骤如下： 1. 定义和创建ADO对象实例变量 一般需要创建Connection对象、Recordset对象、Command对象、Field对象等。 创建Connection对象 例如：Dim cnn As New ADODB.Connection 创建Recordset对象，例如：Dim rs As New ADODB.Recordset 创建Command对象，例如：Dim cmd As New ADODB.Command 创建Field对象，例如：Dim fd As ADODB.Field 8.2.3 利用ADO访问数据库的步骤 * 步骤如下： 2. 设置连接参数并打开连接 假定cnn为连接对象，与数据库的连接，可以参照以下代码： cnn.ConnectionString =连接参数 cnn.Open 如果与当前数据库连接则连接参数为CurrentProject.Connection 8.2.3 利用ADO访问数据库的步骤 * 步骤如下： 3. 设置命令参数并执行命令 一般需要设置命令对象的活动连接、类型及查询等属性。可以参照以下代码： With cmd .ActiveConnection=连接串 .CommandType=命令类型参数 .CommandText=查询命令串 End With Cmd.Execute 8.2.3 利用ADO访问数据库的步骤 * 步骤如下： 4. 打开记录集，并操作记录集 打开记录集，可以在Connection对象上打开记录集，也可以在Command对象上打开记录集。 在Connection对象打开记录集可以参照以下代码： cnn.Open 打开一个连接 rs.Open 查询串等参数 打开记录集 在Commnd对象上打开记录集，首先要设置命令对象的活动连接、类型及查询等属性，可以参照以下代码： rs.