248.2VBA数据库编程技术.ppt

* 8.2 VBA数据库编程技术 例3：使用ADO和OLE DB技术连接C盘根目录下文本磁盘文件aaa.txt。该文档结构内容如下： a,b,c 1,2,3 2,3,4 3,4,5 每行数据间逗号分隔，且第一行为标题设置。 ?Sub Text( ) Dim iDB As ADODB.Connection Dim iRe As ADODB.Recordset Dim iConc$ ’ 设置数据库的连接字符串。c:\是文件文件所在目录。 iConc = Provider=Microsoft.ACE.OLEDB.12.0; _ Data Source=c:\;Extended Properties=Text;HDR=yes Set iDB = New ADODB.Connection iDB.Open iConc Set iRe = New ADODB.Recordset * 8.2 VBA数据库编程技术 ’ 使用的时候注意一下，要将.txt换成#txt iRe.Open [aaa#txt], iDB ’ [aaa#txt]是文件名aaa.txt MsgBox iRe(0) ’ 消息框输出第一列的首航记录值，这里为1 ’ 关闭并回收对象变量 iRe.Close Set iRe = Nothing iDB.Close Set iDB = Nothing End Sub * 8.2 VBA数据库编程技术 例4：下面的过程示例是定义一个对象变量，返回当前窗体的Recordset属性记录集引用，最后输出记录集（亦即窗体记录源）的记录个数。 Sub GetRecNum( ) Dim rs As Object ’ 定义对象变量 Set rs = Me.Recordset ’ 引用窗体的Recordset属性，注意，必须用Set MsgBox rs.RecordCount End Sub * 8.2 VBA数据库编程技术 例5：根据窗体上组合框控件cmbZHICHE组合框控件中选定的教师职称，将窗体的记录源更改为“教师表”表的有关信息。该组合框的内容由一条SQL语句决定，该语句返回的是选定职称教师的信息。“职称”的数据类型为“文本”型。 Sub cmbZHICHE_AfterUpdate( ) Dim strSQL As String strSQL = SELECT * FROM 教师表 WHERE 职称 = ’ Me!cmbZHICHE ’ Me.RecordSource = strSQL ‘设置窗体的记录源属性 End Sub * 8.2 VBA数据库编程技术 例6：编程实现动态创建以下Student学生表的结构： Student表结构 字段名 字段类型 大小 主键 非空 Sno 文本 10 是 Sname 文本 15 是 Ssex 文本 1 是 Sage 数字 Sdate 日期 8 Spt 是否 Smem 备注 Sphoto OLE * 8.2 VBA数据库编程技术 Dim strSQL As String 定义变量 strSQL = create table Student ( strSQL = strSQL + Sno CHAR(10) PRIMARY KEY, 定义Sno字段，主键 strSQL = strSQL + Sname VARCHAR(15) NOT NULL, 定义Sname字段，非空 strSQL = strSQL + Ssex CHAR(1) NOT NULL, 定义Ssex字段，非空 strSQL = strSQL + Sage SMALLINT, 定义Sage字段 strSQL = strSQL + Sdate DATETIME , 定义Sdate字段 strSQL = strSQL + Sparty BIT , 定义Sparty字段 strSQL = strSQL + Smem MEMO, 定义Smem字段 strSQL = strSQL + Sphoto IMAGE ); 定义Sphoto字段 DoCmd.RunSQL strSQL 执行查询 * 8.2 VBA数