.mdb.access数据库VBA-利用DAO创建数据库和数据表 |
| 时间：2025-01-20 08:49:56 来源： 作者： |
利用DAO创建数据库和数据表
- 首先建立对DAO对象库Microsoft DAO3.6 Object Library的引用.在VBA界面下:
工具-à引用,选中”Microsoft DAO3.6 Object Library”
- 代码:
Public Sub1_1()6XW检测VBA
Dim myDb As DAO.Database ‘定义DAO的Database(数据库)对象变量6XW检测VBA
Dim myTbl As DAO.TableDef ‘定义DAO的TableDef(数据表)对象变量6XW检测VBA
Dim myData As String ‘定义数据库名称变量6XW检测VBA
Dim myTable As String ‘定义数据表名称变量6XW检测VBA
6XW检测VBA
‘设置要创建的数据库名称（包括完整路径）6XW检测VBA
myData=ThisWorkbook.Path & “\学生成绩管理.mdb”6XW检测VBA
‘设置要创建的数据表名称6XW检测VBA
myTable=”期末成绩”6XW检测VBA
‘删除已经存在的数据库文件6XW检测VBA
on error resume next6XW检测VBA
kill myData6XW检测VBA
on error goto 06XW检测VBA
‘创建数据库6XW检测VBA
Set myDb=CreateDatabase(myData,dbLangChineseSimplified)6XW检测VBA
‘创建数据表6XW检测VBA
Set myTbl=myDb.CreateTableDef(myTable)6XW检测VBA
‘为创建的数据表添加各个字段6XW检测VBA
With myTbl6XW检测VBA
.Fields.Append .CreateField(“学号”,dbText,10)6XW检测VBA
.Fields.Append .CreateField(“姓名”,dbText,6)6XW检测VBA
.Fields.Append .CreateField(“性别”,dbText,1)6XW检测VBA
.Fields.Append .CreateField(“班级”,dbText,10)6XW检测VBA
.Fields.Append .CreateField(“数学”,dbSingle)6XW检测VBA
.Fields.Append .CreateField(“语文”,dbSingle)6XW检测VBA
.Fields.Append .CreateField(“物理”,dbSingle)6XW检测VBA
.Fields.Append .CreateField(“化学”,dbSingle)6XW检测VBA
.Fields.Append .CreateField(“英语”,dbSingle)6XW检测VBA
.Fields.Append .CreateField(“总分”,dbSingle)6XW检测VBA
End With6XW检测VBA
‘将创建的数据表添加到数据库的TableDefs集合中6XW检测VBA
myDb.TableDefs.Append myTbl6XW检测VBA
‘关闭数据库，并释放变量6XW检测VBA
myDb.Close6XW检测VBA
Set myDb=Nothing6XW检测VBA
Set myTbl=Nothing6XW检测VBA
‘弹出信息6XW检测VBA
MsgBox”创建数据库成功！” & vbCrLf & “数据库文件名为：” & myData & vbCrLf & “数据表名称为：” & myTable & vbCrLf & “保存位置：” & ThisWorkbook.Path,vbInformation,”创建数据库”6XW检测VBA
End sub6XW检测VBA
|
|
|
|
