.mdb.access数据库VBA-利用Access对象创建数据库和数据表

时间：2025-01-20 08:52:22 来源：作者：

利用Access对象创建数据库和数据表

  引用：microsoft access 9.0|10.0|11.0 object library
  代码：
  Public Sub1_8()
    Dim appAccess As Access.Application ‘定义Access应用程序对象变量
    Dim dbs As Object                  ‘定义数据库对象变量
Dim myTbl As Object                ‘定义数据表对象变量
Dim myFld As Variant               ‘定义数据字段对象变量
    Dim myData As String                ‘定义数据库名称变量
    Dim myTable As String               ‘定义数据表名称变量

‘设置数据库名称(包括完整路径)
myData = ThisWorkbook.Path & "\学生成绩管理.mdb"
myTable = "期末成绩"    ‘‘设置要创建的数据表名称
‘删除已存在的数据库
    On Error Resume Next
    Kill myData
On Error GoTo 0

‘创建一个新的microsoft access引用
    Set appAccess = New Access.Application
    ‘创建一个新的Access数据库，并打开
appAccess.NewCurrentDatabase myData
‘设置当前打开的数据库变量（即返回当前在Access窗体中打开的数据库）
    Set dbs = appAccess.CurrentDb
    ‘创建数据表
Set myTbl = dbs.CreateTableDef(myTable)
    ‘为数据表添加字段，并用append方法将这些字段添加到Fields集合里
Set myFld = myTbl.CreateField("学号", DB_Text, 10)
    myTbl.Fields.Append myFld
    Set myFld = myTbl.CreateField("姓名", DB_Text, 6)
    myTbl.Fields.Append myFld
    Set myFld = myTbl.CreateField("性别", DB_Text, 1)
    myTbl.Fields.Append myFld
    Set myFld = myTbl.CreateField("班级", DB_Text, 10)
    myTbl.Fields.Append myFld
    Set myFld = myTbl.CreateField("数学", DB_SINGLE)
    myTbl.Fields.Append myFld
    Set myFld = myTbl.CreateField("语文", DB_SINGLE)
    myTbl.Fields.Append myFld
    Set myFld = myTbl.CreateField("物理", DB_SINGLE)
    myTbl.Fields.Append myFld
    Set myFld = myTbl.CreateField("化学", DB_SINGLE)
    myTbl.Fields.Append myFld
    Set myFld = myTbl.CreateField("英语", DB_SINGLE)
    myTbl.Fields.Append myFld
    Set myFld = myTbl.CreateField("总分", DB_SINGLE)
    myTbl.Fields.Append myFld
    ‘用append方法将数据表添加到tabledefs集合里
dbs.TableDefs.Append myTbl
‘关闭Access应用程序
    appAccess.Quit
    ‘释放变量
Set appAccess = Nothing
    Set dbs = Nothing
    Set myTbl = Nothing
    Set myFld = Nothing
    ‘弹出信息
MsgBox "创建数据库成功！" & vbCrLf _
        & "数据库文件名为：" & myData & vbCrLf _
        & "数据表名称为：" & myTable & vbCrLf _
        & "保存位置：" & ThisWorkbook.Path, _
        vbOKOnly + vbInformation, "创建数据库"
End Sub

来顶一下

返回首页

推荐资讯

合肥住建口检测单位招	关于印发安徽省建设工
一般溶液有效期一览表	2022年一建《机电》真

相关文章

无相关信息

栏目更新

栏目热门