.mdb.access数据库VBA-利用Access对象在已有的数据库中创建数据表

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

利用Access对象在已有的数据库中创建数据表

代码：与1-8不同处加注释，其它相同
Public Sub1_9()
    Dim appAccess As Access.Application
    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 = "期末成绩"
    Set appAccess = New Access.Application
    ‘打开一个现有的Access数据库
appAccess.OpenCurrentDatabase myData
    Set dbs = appAccess.CurrentDb
    ‘删除数据库中已经存在的同名数据表
    dbs.TableDefs.Delete myTable
    Set myTbl = dbs.CreateTableDef(myTable)
    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
    dbs.TableDefs.Append myTbl
    appAccess.Quit
    Set appAccess = Nothing
    Set dbs = Nothing
    Set myTbl = Nothing
    Set myFld = Nothing
    MsgBox "数据表<" & myTable & ">创建成功！", _
        vbOKOnly + vbInformation, "创建数据表"
End Sub

扩展：

appaccess.opencurrentdatabase mydata, ,”12345” ‘打开带有密码的数据表

来顶一下

返回首页

推荐资讯

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

相关文章

无相关信息

栏目更新

栏目热门