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