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