计算机二级 VBA数据库编程.docVIP

第9章:VBA数据库编程 一、VBA常见操作 1.打开窗体操作 Docmd.OpenForm 窗体名 2.打开报表操作 Docmd.OpenReport 报表名 3.关闭操作 Docmd.Close 对象类型, 对象名 4．输入框 InputBox(“提示信息”) 5．消息框 变量=MsgBox(“提示信息”，参数， “标题”) 或 MsgBox “提示信息”，参数， “标题” 6．计时器控件 VBA没有提供Timer控件,而是通过设置窗体的Timer事件(计时器触发)及TimerInterval属性(计时器间隔)来实现类似“定时功能”。 例:设置一个窗体，判断输入的用户名和密码是否正确，若正确则打开窗体1，否则提示是否重新输入。 Private Sub Command8_Click() If Me!Text4.Value = haq And Me!Text6.Value = 123456 Then DoCmd.OpenForm 窗体1 Else k = MsgBox(密码出错,是否重新输入?, vbYesNo, 提示) If k = 6 Then Me!Text4.Value = Me!Text6.Value = Me!Text4.SetFocus Else MsgBox 无法进入系统!, vbOKOnly, 提示 DoCmd.Close End If End If End Sub Private Sub Form_Timer() Me!Label0.Caption = i i = i – 1 if i=0 then docmd.close end if End Sub 二、VBA数据库编程 (一)数据库访问接口 ODBC 开放数据库互连 ODA 数据访问对象 ADO 基于组件的数据库访问 (二)DAO访问数据库 1．DAO的对象(P260) DBEngine对象: Workspace对象: Database对象: Recordset对象: Field对象: QueryDef对象: Error对象: 2.利用DAO访问数据库操作的一般语句和步骤 Dim ws As Workspace Dim db As Database Dim rs As Recordset Set ws=DBEngine.Wordspace Set db=ws.OpenDatabase(数据库名) Set rs=db.OpenRecordSet(表名或查询名或SQL语句) Do while not rs.EOF 操作系列 rs.MoveNext loop rs.close db.close (三)ADO访问数据库 ADO对象模型： Connection对象：用于创建一个数据源的连接。 一般语法： Dim cnn As new ADODB. Connection cnn.Open 连接语句 Command对象： Recordset对象： 一般语法： Dim rs As new ADODB. Recordset rs.Open 表名，参数 Field对象： Error对象： 记录集（Recordset对象）上的各种操作： 定位记录： rs.Move NumRecords 当前记录位置移动的记录数 rs.MoveFrist 当前记录位置移动至第一个记录 rs.MoveLast 当前记录位置移动至最后一个记录 rs.MoveNext 当前记录位置移动至下一个记录 rs.MovePrevious 当前记录位置移动至上一个记录 检索记录： rs.Find 查找条件 rs.Seek 查找值 添加记录： rs.AddNew 注：添加记录后，要用UpDate方法存储到数据库中。 更新记录： rs.UpDate 删除记录 rs.Delete 关闭： 对象.Close ADO访问数据库的一般过程和步聚： Dim cn As new ADODB.Connection Dim rs As new ADODB.Redordset cn.Open 连接串等参数 rs.Open 查询串等参数 Do While not rs.EOF 各种操作代码 rs.MoveNext loop rs.close cn.close