TOC\o"1-3"\h\z\u创建数据库利用DAO创建数据库和数据表首先建立对DAO对象库MicrosoftDAO3.6ObjectLibrary的引用.在VBA界面下:工具-à引用,选中”MicrosoftDAO3.6ObjectLibrary”PublicSub1_1()DimmyDbAsDAO.Database‘定义DAO的Database(数据库)对象变量DimmyTblAsDAO.TableDef‘定义DAO的TableDef(数据表)对象变量DimmyDataAsString‘定义数据库名称变量DimmyTableAsString‘定义数据表名称变量‘设置要创建的数据库名称（包括完整路径）myData=ThisWorkbook.Path&“”‘设置要创建的数据表名称myTable=”期末成绩”‘删除已经存在的数据库文件onerrorresumenextkillmyDataonerrorgoto0‘创建数据库SetmyDb=CreateDatabase(myData,dbLangChineseSimplified)‘创建数据表SetmyTbl=myDb.CreateTableDef(myTable)‘为创建的数据表添加各个字段WithmyTbl.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)EndWith‘将创建的数据表添加到数据库的TableDefs集合中myDb.TableDefs.AppendmyTbl‘关闭数据库，并释放变量SetmyDb=NothingSetmyTbl=NothingEndsub1-2利用ADOX创建数据库和数据表引用：microsoftADOExt.2.XforDDLandSecurity代码：publicsub1_2()dimmycatasnewadox.catalog‘定义ADOX的Catalog对象变量dimmytblasnewtable‘定义table对象变量dimmydataasstring‘定义数据库名称变量dimmytableasstring‘定义数据表名称变量‘设置要创建的数据库名称（包括完整路径）mydata=thisworkbook.path&“”‘设置要创建的数据表名称mytable=”期末成绩”‘删除已经存在的数据库文件onerrorresumenextkillmydataonerrorgoto0‘创建新的数据库mycat.create”provider=microsoft.jet.oledb.4.0;datasource=”&mydata‘创建数据表，并添加字段withmytbl.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“总分”,adSin