ExcelVBA与数据库Access.doc

【精品文档】如有侵权，请联系网站删除，仅供学习与交流ExcelVBA与数据库Access.精品文档.目录1-1 利用DAO创建数据库和数据表71-2 利用ADOX创建数据库和数据表：81-3 利用SQL语句创建数据库和数据表91-4 在已有的数据库中创建数据表（DAO）101-5 在已有的数据库中创建数据表（ADOX）121-6 在已有的数据库中创建数据表（SQL，Command对象）131-7 在已有的数据库中创建数据表（SQL，Recordset对象）131-8 利用Access对象创建数据库和数据表141-8-1 不引用Access对象库而使用Access的有关对象、属性和方法161-9 利用Access对象在已有的数据库中创建数据表171-10 利用工作表数据创建数据表（ADOX）181-11 利用工作表数据创建数据表（ADO+SQL）211-12 利用工作表数据创建数据表（DAO）231-13 利用已有的数据表创建新数据表（ADO）251-14 利用已有的数据表创建新数据表（DAO）271-15 利用已有的数据表创建新数据表（Access）(前绑定方法引用Access对象库)282-1 检查数据表是否存在（ADO）28·实例2-2 检查数据表是否存在（ADOX）32·实例2-3 检查数据表是否存在（DAO）33·实例2-4 检查数据表是否存在（Access）33·实例2-5 获取数据库中所有表的名称和类型（ADO）34·实例2-6 获取数据库中所有表的名称和类型（ADOX）35·实例2-8 获取数据库中所有数据表名称（ADO）36·实例2-9 获取数据库中所有数据表名称（ADOX）37·实例2-10 获取数据库中所有数据表名称（DAO）37·实例2-11 获取数据库中所有数据表名称（Access）38·实例2-12 检查某字段是否存在（ADO）39·实例2-13 检查某字段是否存在（ADOX）40·实例2-14 检查某字段是否存在（DAO）41·实例2-15 检查某字段是否存在（Access）41·实例2-16 获取数据库中某数据表的所有字段信息（ADO）42·实例2-17 获取数据库中某数据表的所有字段信息（ADOX）44·实例2-18 获取数据库中某数据表的所有字段信息（DAO）45·实例2-19 获取数据库中某数据表的所有字段信息（Access）47·实例2-20 获取数据库的所有查询信息（ADOX）48·实例2-21 获取数据库的所有查询信息（DAO）49·实例2-22 获取数据库的模式信息（openschema）50·实例2-23 获取表的创建日期和最后更新日期（ADOX）51·实例2-24 获取表的创建日期和最后更新日期（DAO）52·实例3-1 将数据库记录数据全部导入到excel工作表（ADO，之一）53·实例3-2 将数据库记录数据全部导入到excel工作表（ADO，之二）54·实例3-3 将数据库记录数据全部导入到Excel工作表（ADO,之三）55·实例3-4 将数据库记录数据全部导入到Excel工作表（DAO,之一）56·实例3-5 将数据库记录数据全部导入到Excel工作表（DAO，之二）57·实例3-6 将数据库记录数据全部导入到Excel工作表（QueryTable集合）58·实例3-7 将数据库的某些字段的记录数据导入到Excel工作表（ADO）59·实例3-8 将数据库的某些字段记录数据导入到Excel工作表(DAO)60·实例3-9 查询前面的若干条记录（全部字段）（TOP）61·实例3-10 查询前面的若干条记录（部分字段）（TOP）62·实例3-11 查询不重复的字段记录（DISTINCT）63·实例3-12 利用Like运算符进行模糊查询64·实例3-13 查询某一区间内的记录（BETWEEN）65·实例3-14 查询存在于某个集合里面的记录（IN）67·实例3-15 将查询结果进行排序（ORDER BY）68·实例3-16 进行复杂条件的查询（WHERE）69·实例3-17 利用合计函数进行查询（查询最大值和最小值）70·实例3-18 利用合计函数进行查询(查询合计值和平均值)71·实例3-19 将一个查询结果作为查询条件进行查询72·实例3-20 将查询结果进行分组（GROUP BY）73·实例3-21 查询结果进行分组（HAVING）74·实例3-22 通过计算列进行查询76·实例3-23 使用IS NULL运算符进行查询77·实例3-24 使用COUNT函数进行查询78·实例3-25 使用FIRST函数与LAST函数查询第一条记录和最后一条记录的字段78·实例3-26 使用Parameters参数动态查询记录（DAO）指定单个参数79·实例3-27 使用parameters参数动态查询记录（DAO）：指定多个参数80·实例3-28 使用parameters参数动态查询记录（ADO）：指定单个参数81·实例3-29 使用Parameters参数动态查询记录（ADO）：指定多个参数83·实例3-30 使用别名查询数据库84·实例3-31 将查询结果作为窗体控件的源数据85·实例3-32 通过窗体控件查询浏览数据库记录88·实例3-33 多表查询（WHERE连接）98·实例3-34 多表查询（内连接INNER JOINT）99·实例3-35 多表查询（左外连接LEFT OUTER JOINT）101·实例3-36 多表查询（右外连接 RIGHT OUTER JOINT）102·实例3-37 多表查询（子查询WHERE，ANY，SOME）103·实例3-38 多表查询（子查询EXISTS，NOT EXISTS）105·实例3-39 从两个数据表中查询出都存在的记录106·实例3-40 从两个数据表中查询出只存在于某个数据表的记录108·实例3-41 将查询结果生成一个数据表108·实例3-42 将查询结果保存为一个XML文件109·实例3-43 利用工作表实现记录的分页显示110·实例3-44 利用窗体实现记录的分页显示113·实例4-1 添加新记录（ADO+addnew）116·实例4-2 添加新记录（ADO+SQL）117·实例4-3 添加新记录（DAO+addnew）118·实例4-4 添加新记录（DAO+SQL）118·实例4-5 添加新记录（Access+SQL）119·实例4-6 修改更新特定记录（ADO+SQL）120·实例4-7 修改更新特定记录（DAO+SQL）120·实例4-8 修改更新特定记录（Access+SQL）121·实例4-9 修改更新全部记录（ADO+SQL）121·实例4-10 修改更新全部记录（DAO+SQL）122·实例4-11 修改更新全部记录（Access+SQL）122·实例4-12 删除特定记录（ADO+SQL）123·实例4-13 删除特定记录（DAO+SQL）124·实例4-14 删除特定记录（Acess+SQL）124·实例4-15 删除全部记录（ADO+SQL）124·实例4-16 删除全部记录（DAO+SQL）125·实例4-17 删除全部记录（Access+SQL）125·实例4-18 通过窗体编辑记录126·实例5-1 将整个工作表数据都保存为新的Access数据库（Access）128·实例5-2 将工作表的某些区域数据保存为新Access数据库（Access）129·实例5-3 将工作簿的所有工作表数据分别保存为不同的数据表（Access）130·实例5-4 将多个工作簿的某个工作表数据汇总为新Access数据库（Access）131·实例5-5将多个工作簿的某个工作表数据保存为不同的数据表（Access）132·实例5-6 将工作表数据保存到已有的Access数据库（循环方式）（ADO）134·实例5-7 将工作表数据保存到已有的Access数据库（循环方式）（DAO）136·实例5-8 将工作表数据保存到已有的Access数据库（数组方式）（ADO）138·实例5-9 将工作表数据保存到已有的Access数据库（数组方式）（DAO）139·实例5-10 将工作簿的所有工作表数据分别保存为不同的数据表（ADO）141·实例5-11 将工作簿的所有工作表数据分别保存为不同的数据表（DAO）142·实例6-1 打开数据库和数据表（Getobject函数）144·实例6-2 打开数据库和数据表（createobject函数）145·实例6-3 删除数据表（ADO）145·实例6-4 删除数据表（ADOX）146·实例6-5 删除数据表（DAO+DELETE）147·实例6-6 删除数据表（DAO+SQL）147·实例6-7 删除数据表（Access）148·实例6-8 为数据表增加字段（ADO）148·实例6-9 为数据表增加字段（ADOX）149·实例6-10 为数据表增加字段（DAO）150·实例6-11 为数据表增加字段（Access）151·实例6-12 删除字段（ADO）152·实例6-13 删除字段（ADOX）153·实例6-14 删除字段（DAO）154·实例6-15 删除字段（Access）155·实例6-16 改变字段的类型（ADO）157·实例6-17 改变字段的类型（DAO）157·实例6-18 改变字段的类型（Access）158·实例6-19 改变字段的长度（ADO）158·实例6-20 改变字段的长度（DAO）159·实例6-21 改变字段的长度（Access）159·实例6-22 重命名数据表（Access）159·实例6-23 复制数据表（Access）160·实例6-24 复制数据表（ADO）161·实例6-25 复制数据表（DAO）162·实例6-26 通过窗体维护数据库162·实例7-1 判断SQL Server数据库是否存在（ADO）172·实例7-2 检查数据表是否存在（ADOX）173·实例7-3 创建新的SQL Server数据库和数据表（ADO）174·实例7-4 在已有的SQL Servre数据库中创建数据表（ADO）175·实例7-5 从SQL Server数据库服务器中删除数据库（ADO）176·实例7-6 从SQL Server数据库中删除数据表（ADO）177·实例7-7 将SQL Server数据库中的数据导入到Excel工作表（ADO）177·实例7-8 将SQL Server数据库中的数据导入到Excel工作表（DAO）178·实例7-9 查询获取SQL Server数据库的数据（ADO）180·实例7-10 查询获取SQL Server数据库的数据（DAO）181·实例7-11 将工作表数据导入到SQL Server数据库（ADO）182·实例7-12 向SQL Server数据库中添加记录的一般方法183·实例7-13 将SQL Server数据库转换为Access数据库184·实例7-14 将access数据库转换为SQL Server数据库185·实例8-1 将FoxPro数据库全部数据导入到Excel工作表187·实例8-2 查询获取FoxPro数据库数据188·实例8-3 将excel工作表数据保存到FoxPro数据库189·实例8-4 判断FoxPro数据库的字段是否存在190·实例8-5 获取FoxPro数据库的字段信息190·实例9-1 从工作簿的某个工作表中查询获取数据（ADO）192·实例9-2 从工作簿的全部工作表中查询获取数据（ADO）193·实例9-3 利用DAO从工作表中查询数据194·实例9-4 查询其他工作簿的数据（ADO）195·实例9-6 利用ADO对工作表数据进行多重排序196·实例9-7 利用ADO按照字符的长度对数据进行排序197·实例9-8 比较两张表，将两个表中相同的行数据抓取出来198·实例9-9 比较两张表，将只存在于某个表中的行数据抓取出来199·实例9-10 删除工作表数据区域内的所有空行200·实例10-2 利用DAO导入文本文件的全部内容202·实例10-3 利用ADO导入文本文件的部分内容203·实例10-4 利用DAO导入文本文件的部分内容204·实例10-5 利用ADO获取文本文件的行数和列数205·实例10-6 利用ADO将超过65536行的文本文件数据导入到Excel工作表206·实例10-7 将工作表全部数据保存为文本文件（SaveAs）208·实例10-8 将工作表全部数据保存为文本文件（循环）208·实例10-9 将数据库数据导出为文本文件209·实例10-10 将文本文件保存为Access数据库（Access）210·实例10-11 将文本文件保存为Access数据库（ADO+ADOX）2111-1 利用DAO创建数据库和数据表1. 首先建立对DAO对象库Microsoft DAO3.6 Object Library的引用.在VBA界面下:工具-à引用,选中”Microsoft DAO3.6 Object Library”2. 代码:Public Sub1_1()Dim myDb As DAO.Database 定义DAO的Database(数据库)对象变量Dim myTbl As DAO.TableDef 定义DAO的TableDef(数据表)对象变量Dim myData As String 定义数据库名称变量Dim myTable As String 定义数据表名称变量设置要创建的数据库名称（包括完整路径）myData=ThisWorkbook.Path & “学生成绩管理.mdb”设置要创建的数据表名称myTable=”期末成绩”删除已经存在的数据库文件on error resume nextkill myDataon error goto 0创建数据库Set myDb=CreateDatabase(myData,dbLangChineseSimplified)创建数据表Set myTbl=myDb.CreateTableDef(myTable)为创建的数据表添加各个字段With myTbl .Fields.Append .CreateField(“学号”,dbText,10) .Fields.Append .CreateField(“姓名”,dbText,6).Fields.Append .CreateField(“性别”,dbText,1).Fields.Append .CreateField(“班级”,dbText,10).Fields.Append .CreateField(“数学”,dbSingle).Fields.Append .CreateField(“语文”,dbSingle).Fields.Append .CreateField(“物理”,dbSingle).Fields.Append .CreateField(“化学”,dbSingle).Fields.Append .CreateField(“英语”,dbSingle).Fields.Append .CreateField(“总分”,dbSingle)End With将创建的数据表添加到数据库的TableDefs集合中myDb.TableDefs.Append myTbl关闭数据库，并释放变量myDb.CloseSet myDb=NothingSet myTbl=Nothing弹出信息MsgBox”创建数据库成功！” & vbCrLf & “数据库文件名为：” & myData & vbCrLf & “数据表名称为：” & myTable & vbCrLf & “保存位置：” & ThisWorkbook.Path,vbInformation,”创建数据库”End sub注：·CreateDatabase方法创建数据库set mydb=createdatabase(mydata,dblangchinesesimplified)mydb:数据库类型变量dblangchinesesimplified：表达字符串比较规则，这里为简体中文·CreateTableDef方法创建数据表Set myTbl=mydb.Createtabledef(mytable)mytbl:表类型变量mydb:数据库名mytable:表名补充：创建带密码的Access数据库Set mydb=createdatabase(mydata, dblangchinesesimplified & “;pwd=12345”)1-2 利用ADOX创建数据库和数据表：引用：microsoft ADO Ext.2.X for DDL and Security代码：public sub1_2()dim mycat as new adox.catalog 定义ADOX的Catalog对象变量dim mytbl as new table 定义table对象变量dim mydata as string 定义数据库名称变量dim mytable as string 定义数据表名称变量设置要创建的数据库名称（包括完整路径）mydata=thisworkbook.path & “学生成绩管理.mdb”设置要创建的数据表名称mytable=”期末成绩”删除已经存在的数据库文件on error resume nextkill mydataon error goto 0创建新的数据库mycat.create”provider=microsoft.jet.oledb.4.0;data source=” & mydata创建数据表，并添加字段with mytbl .name=mytable .columns.append “学号”,advarwchar,10 .columns.append “姓名”,advarwchar,6.columns.append “性别”,advarwchar,1.columns.append “班级”,advarwchar,10.columns.append “数学”,adSingle.columns.append “语文”,adSingle.columns.append “物理”,adSingle.columns.append “化学”,adSingle.columns.append “英语”,adSingle.columns.append “总分”,adSingleEnd with将创建的数据表添加到ADOX的Tables集合中mycat.tables.append mytbl释放变量set mycat=nothingset mytbl=nothing弹出信息msgbox “创建数据库成功!” & vbcrlf & “数据库文件名为:” & mydata & vbcrlf & “数据表名称为:” & mytable & vbcrlf & “保存位置:” & thisworkbook.path,vbinformation,”创建数据库”end sub注：在VB中，常用的数据访问接口有下列三种：数据库访问对象（DAO，DataAccess object）、远程数据库对象（RDO,Remote Data Object）和ActiveX数据对象（ADO,ActiveX Data Object）·ADOX的常用方法：·Append方法：可以创建columns,groups,indexes,keys,procedures,tables,users,views等 为数据表添加字段： mytbl.columns.append 字段名，数据类型，字段长度 将创建的数据表添加到ADOX的Tables集合中的语句是： Mycat.tables.append mytbl·Create方法：创建一个新的数据库的语句： Mycat.create “provider=Microsoft.jet.oledb.4.0;data source=” & mydata·Delete方法：删除数据表： Mycat.tables.delete 数据表名·Refresh方法：用于更新集合中的对象1-3 利用SQL语句创建数据库和数据表首先引用：microsoft activeX data objects 2.X library 和 microsoft ado ext.2.x for ddl and security”代码：public sub1_3()dim mycat as new adox.catalog 定义ADOX的Catalog对象变量Dim mycmd as new mand 定义Command对象变量dim mydata as string 定义数据库名称变量dim mytable as string 定义数据表名称变量dim SQL as string设置要创建的数据库名称（包括完整路径）mydata=thisworkbook.path & “学生成绩管理.mdb”设置要创建的数据表名称mytable=”期末成绩”删除已经存在的数据库文件on error resume nextkill mydataon error goto 0创建数据库文件mycat.create “provider=microsoft.jet.oledb.4.0;Data source=” & mydata设置数据库连接set mycmd.activeconnection=mycat.activeconnection设置创建数据表的SQL语句 SQL = "CREATE TABLE " & myTable _ & "(学号 text(10),姓名 text(6),性别 text(1),班级 text(10)," _ & "数学 Single,语文 Single,物理 Single,化学 Single," _ & "英语 Single,总分 Single)"利用execute方法创建数据表with mycmd .commandtext=sql .execute, , adcmdtextend with释放变量set mycat=nothingset mycmd=nothing弹出信息 msgbox “创建数据库成功！” & vbcrlf & “数据库文件名为：” & mydata & vbcrlf & “数据表名称为：” & mytable & vbcrlf & “保存位置：” & thisworkbook.path,vbinformation,”创建数据库”end sub注：有两种方法来创建数据表： ·利用ADODB.Command对象的commandtext属性和execute方法：dim mycmd as new mandset mycmd.activeconnection=mycat.activeconnectionwith mycmd .commandtext=SQL .execute, , adcmdtextend with ·利用ADODB.Connection对象的execute方法来生成几个记录集Dim cnn as new adodb.connectiondim rs as new adodb.recordsetset cnn=mycat.activeconnectionset rs=cnn.execute(sql)1-4 在已有的数据库中创建数据表（DAO）引用DAO对象库：microsoft DAO 3.6 object library代码：public sub1_4()dim mydb as dao.database 定义DAO的database(数据库)对象变量dim mydata as string 定义数据库名称变量dim mytable as string 定义数据表名称变量设置数据库名称（包括完整路径）mydata=thisworkbook.path & “学生成绩管理.mdb”设置要创建的数据表名称mytable=”期末成绩”打开数据库set mydb=opendatabase(mydata)删除数据库中已经存在的数据表mydb.tabledefs.delete mytable创建新的数据表set mytbl=mydb.createtabledef(mytable)为创建的数据表添加各个字段With mytbl .fields.append .createfield("学号", dbtext, 10) .fields.append .createfield("姓名", dbtext, 6) .fields.append .createfield("性别", dbtext, 1) .fields.append .createfield("班级", dbtext, 10) .fields.append .createfield("数学", dbsingle) .fields.append .createfield("语文", dbsingle) .fields.append .createfield("物理", dbsingle) .fields.append .createfield("化学", dbsingle) .fields.append .createfield("英语", dbsingle) .fields.append .createfield("总分", dbsingle)end with将创建的数据表添加到数据库的TableDefs集合中mydb.tabledefs.append mytbl关闭数据库mydb.close释放变量set mydb=nothingset mytbl=nothing弹出信息msgbox”数据表<” & mytable & “>创建成功！”,vbinformation,”创建数据表”end sub·补充：opendatabase方法用来打开一个已有的数据库，返回一个数据库对象，并自动将该数据库对象加入到数据库对象集中。set database=workspace.opendatabase(databasename,options,read-only,connect)workspace:定义的Workspace类型变量，它表示所使用的工作环境，将包含新的数据库对象databasename:一个有效的Jet数据库文件或ODBC数据源options:T/F,T表示以独占方式打开数据库，而F表示以共享方式打开数据库read-only:是否以只读方式打开数据库，为T/Fconnect:说明不同连接方式以及密码·扩展：利用DAO打开有密码的Access数据库set mydb=opendatabase(mydata,true,false,”;pwd=12345”)1-5 在已有的数据库中创建数据表（ADOX） 引用：microsoft ADO Ext.2.x for ddl and security 代码：public sub1_5()Dim mycat as new adox.catalog 定义ADOX的catalog对象变量dim mytbl as new table 定义table对象变量dim mydata as string 定义数据库名称变量dim mytable as string 定义数据表名称变量设置数据库名称（包括完整路径）mydata=thisworkbook.path & “学生成绩管理.mdb”设置要创建的数据表名称mytable=”期末成绩”建立与数据库的连接mycat.activeconnection=”provider=microsoft.jet.oledb.4.0;”_ & “data source=” & mydata删除数据库中已经存在的数据表mycat.table.delete mytable创建数据表，并添加字段with mytbl .name=mytable .columns.append “学号”, advarwchar,10 .columns.append “姓名”, advarwchar,6 .columns.append “性别”, advarwchar,1 .columns.append “班级”, advarwchar,10 .columns.append “数学”, adsingle .columns.append “语文”, adsingle .columns.append “物理”, adsingle .columns.append “化学”, adsingle .columns.append “英语”, adsingle .columns.append “总分”, adsingleend with将创建的数据表添加到ADOX的tables集合中mycat.tables.append mytbl释放变量set mycat=nothingset mytbl=nothing弹出信息msgbox “数据表<” & mytable & “>创建成功！”,vbinformation,”创建数据表”end sub注：Activeconnection属性用来指示catalog所属的ADO Connection对象，表示到数据源的打开的连接。1-6 在已有的数据库中创建数据表（SQL，Command对象） 引用:microsoft activex data objects2.x library和microsoft ado ext.2.x for ddl and security 代码：public sub1_6()dim mycat as new adox.catalog 定义adox的catalog对象变量dim mycmd as new mand 定义command对象变量dim mydata as string 定义数据库名称变量dim mytable as string 定义数据表名称变量dim sql as string 设置数据库名称（包括完整路径）mydata=thisworkbook.path & “学生成绩管理.mdb”设置要创建的数据表名称mytable=”期末成绩”建立与数据库的连接mycat.activeconnection=”provider=microsoft.jet.oledb.4.0;”_ & “data source=” & mydata删除数据库中已经存在的数据表mycat.tables.delete mytable设置数据库连接set mycmd.activeconnection=mycat.activeconnection设置创建数据表的SQL语句SQL=”CREATE TABLE” & mytable_ & “(学号 text(10),姓名 text(6),性别 text(1),班级 text(10),” _ & “数学 single,语文 single,物理 single,化学 single, “_ & “英语 single,总分 single)”利用Execute方法创建数据表With mycmd .commandtext=sql .execute, , adcmdtextEnd with释放变量Set mycat=nothingSet mycmd=nothing弹出信息Msgbox “数据表<” & mytable & “>创建成功！”,vbinformation,”创建数据表”End sub 1-7 在已有的数据库中创建数据表（SQL，Recordset对象） 引用：Microsoft ActiveX Data Objects 2.X library 代码：public sub1_7()dim cnn as new adodb.connection 定义connection对象变量dim rs as new adodb.recordset 定义Recordset对象变量dim mydata as string 定义数据库名称变量dim mytable as string 定义数据表名称变量dim sql as string设置数据库名称(包括完整路径)mydata=thisworkbook.path & “学生成绩管理.mdb”设置要创建的数据表名称mytable=”期末成绩”建立与数