Excel VBA与数据库(Access)整合笔记.pdf

1-1 利用DAO 创建数据库和数据表 1. 先建立对DAO 对象库Microsoft DAO3.6 Obj ect Library 的引用.在VBA 界面下: 工具-引用,选中 Microsoft DAO3.6 Obj ect 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 next kill myData on 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.Close Set myDb=Nothing Set 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=createdatabas