.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()VCr七二检测
Dim myDb As DAO.Database ‘定义DAO的Database(数据库)对象变量VCr七二检测
Dim myTbl As DAO.TableDef ‘定义DAO的TableDef(数据表)对象变量VCr七二检测
Dim myData As String ‘定义数据库名称变量VCr七二检测
Dim myTable As String ‘定义数据表名称变量VCr七二检测
VCr七二检测
‘设置要创建的数据库名称（包括完整路径）VCr七二检测
myData=ThisWorkbook.Path & “\学生成绩管理.mdb”VCr七二检测
‘设置要创建的数据表名称VCr七二检测
myTable=”期末成绩”VCr七二检测
‘删除已经存在的数据库文件VCr七二检测
on error resume nextVCr七二检测
kill myDataVCr七二检测
on error goto 0VCr七二检测
‘创建数据库VCr七二检测
Set myDb=CreateDatabase(myData,dbLangChineseSimplified)VCr七二检测
‘创建数据表VCr七二检测
Set myTbl=myDb.CreateTableDef(myTable)VCr七二检测
‘为创建的数据表添加各个字段VCr七二检测
With myTblVCr七二检测
.Fields.Append .CreateField(“学号”,dbText,10)VCr七二检测
.Fields.Append .CreateField(“姓名”,dbText,6)VCr七二检测
.Fields.Append .CreateField(“性别”,dbText,1)VCr七二检测
.Fields.Append .CreateField(“班级”,dbText,10)VCr七二检测
.Fields.Append .CreateField(“数学”,dbSingle)VCr七二检测
.Fields.Append .CreateField(“语文”,dbSingle)VCr七二检测
.Fields.Append .CreateField(“物理”,dbSingle)VCr七二检测
.Fields.Append .CreateField(“化学”,dbSingle)VCr七二检测
.Fields.Append .CreateField(“英语”,dbSingle)VCr七二检测
.Fields.Append .CreateField(“总分”,dbSingle)VCr七二检测
End WithVCr七二检测
‘将创建的数据表添加到数据库的TableDefs集合中VCr七二检测
myDb.TableDefs.Append myTblVCr七二检测
‘关闭数据库，并释放变量VCr七二检测
myDb.CloseVCr七二检测
Set myDb=NothingVCr七二检测
Set myTbl=NothingVCr七二检测
‘弹出信息VCr七二检测
MsgBox”创建数据库成功！” & vbCrLf & “数据库文件名为：” & myData & vbCrLf & “数据表名称为：” & myTable & vbCrLf & “保存位置：” & ThisWorkbook.Path,vbInformation,”创建数据库”VCr七二检测
End subVCr七二检测
|
|
|
|
