Excel VBA与数据库（Access）整合笔记
需积分: 42 66 浏览量
2019-01-20
23:28:13
上传
评论 1
收藏 2.14MB PDF 举报
笔记制作：加肥猫 Email:jungj@163.com QQ:403479502 20:00—21:00 在线
1-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 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
剩余241页未读，继续阅读
资源评论
