.mdb.access数据库VBA-在已有的数据库中创建数据表（ADOX）

时间：2025-01-20 08:51:45 来源：作者：

在已有的数据库中创建数据表（ADOX）

  引用：microsoft ADO Ext.2.x for ddl and security
  代码：
public sub1_5()
Dim mycat as new adox.catalog ‘定义ADOX的catalog对象变量
dim mytbl as new table ‘定义table对象变量
dim mydata as string ‘定义数据库名称变量
dim mytable as string ‘定义数据表名称变量

‘设置数据库名称（包括完整路径）
mydata=thisworkbook.path & “\学生成绩管理.mdb”
‘设置要创建的数据表名称
mytable=”期末成绩”
‘建立与数据库的连接
mycat.activeconnection=”provider=microsoft.jet.oledb.4.0;”_
      & “data source=” & mydata
‘删除数据库中已经存在的数据表
mycat.table.delete mytable
‘创建数据表，并添加字段
with mytbl
    .name=mytable
    .columns.append “学号”, advarwchar,10
    .columns.append “姓名”, advarwchar,6
    .columns.append “性别”, advarwchar,1
    .columns.append “班级”, advarwchar,10
    .columns.append “数学”, adsingle
    .columns.append “语文”, adsingle
    .columns.append “物理”, adsingle
    .columns.append “化学”, adsingle
    .columns.append “英语”, adsingle
    .columns.append “总分”, adsingle
end with
‘将创建的数据表添加到ADOX的tables集合中
mycat.tables.append mytbl
‘释放变量
set mycat=nothing
set mytbl=nothing
‘弹出信息
msgbox “数据表<” & mytable & “>创建成功！”,vbinformation,”创建数据表”
end sub

注：Activeconnection属性用来指示catalog所属的ADO Connection对象，表示到数据源的打开的连接。

来顶一下

返回首页

推荐资讯

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

相关文章

无相关信息

栏目更新

栏目热门