ExcelVBA与数据库Access整合笔记

精品文档---下载后可任意编辑精品文档---下载后可任意编辑一、创建数据库1-1利用 DAO 创建数据库和数据表首先建立对 DAO 对象库 Microsoft DAO3.6 Object Library 的引用.在 VBA 界面下:工具-à 引用,选中”Microsoft DAO3.6 Object Library”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 & “”‘设置要创建的数据表名称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‘关闭数据库，并释放变量Set myDb=NothingSet myTbl=NothingEnd sub1-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 & “”‘设置要创建的数据表名称mytable=”期末成绩”‘删除已经存在的数据库文件on error resume nextkill mydataon error goto 0‘创建新的...