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