.mdb.access数据库VBA-不引用Access对象库而使用Access的有关对象、属性和方法（先引用access对象库就是前绑定）

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

不引用Access对象库而使用Access的有关对象、属性和方法（先引用access对象库就是前绑定）

      引用：microsoft access 9.0|10.0|11.0 object library
  代码：与1-8不同处用颜色标出
  Public Sub1_8_1()
    Dim appAccess As object            ‘定义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 = createobject(“Access.application”)
    ‘创建一个新的Access数据库，并打开
appAccess.NewCurrentDatabase myData
‘设置当前打开的数据库变量（即返回当前在Access窗体中打开的数据库）
    Set dbs = appAccess.CurrentDb
    ‘创建数据表
Set myTbl = dbs.CreateTableDef(myTable)
    ‘为数据表添加字段，并用append方法将这些字段添加到Fields集合里
Set myFld = myTbl.CreateField("学号", 10, 10)
    myTbl.Fields.Append myFld
    Set myFld = myTbl.CreateField("姓名", 10, 6)
    myTbl.Fields.Append myFld
    Set myFld = myTbl.CreateField("性别", 10, 1)
    myTbl.Fields.Append myFld
    Set myFld = myTbl.CreateField("班级", 10, 10)
    myTbl.Fields.Append myFld
    Set myFld = myTbl.CreateField("数学", 6)
    myTbl.Fields.Append myFld
    Set myFld = myTbl.CreateField("语文", 6)
    myTbl.Fields.Append myFld
    Set myFld = myTbl.CreateField("物理", 6)
    myTbl.Fields.Append myFld
    Set myFld = myTbl.CreateField("化学", 6)
    myTbl.Fields.Append myFld
    Set myFld = myTbl.CreateField("英语", 6)
    myTbl.Fields.Append myFld
    Set myFld = myTbl.CreateField("总分", 6)
    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年一建《机电》真

相关文章

无相关信息

栏目更新

栏目热门