.mdb.access数据库VBA-利用ADOX创建数据库和数据表

时间：2025-02-06 10:40:13 来源：作者：

利用ADOX创建数据库和数据表：

引用：microsoft ADO Ext.2.X for DDL and Security
代码：
public sub1_2()
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=”期末成绩”
‘删除已经存在的数据库文件
on error resume next
kill mydata
on error goto 0
‘创建新的数据库
mycat.create”provider=microsoft.jet.oledb.4.0;data source=” & mydata

‘创建数据表，并添加字段
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 “创建数据库成功!” & vbcrlf & “数据库文件名为:” & mydata & vbcrlf & “数据表名称为:” & mytable & vbcrlf & “保存位置:” & thisworkbook.path,vbinformation,”创建数据库”
end sub

注：在VB中，常用的数据访问接口有下列三种：数据库访问对象（DAO，DataAccess object）、远程数据库对象（RDO,Remote Data Object）和ActiveX数据对象（ADO,ActiveX Data Object）

·ADOX的常用方法：

·Append方法：可以创建columns,groups,indexes,keys,procedures,tables,users,views等
  为数据表添加字段：
  mytbl.columns.append 字段名，数据类型，字段长度
  将创建的数据表添加到ADOX的Tables集合中的语句是：
  Mycat.tables.append mytbl
·Create方法：创建一个新的数据库的语句：
  Mycat.create “provider=Microsoft.jet.oledb.4.0;data source=” & mydata
·Delete方法：删除数据表：
  Mycat.tables.delete 数据表名
·Refresh方法：用于更新集合中的对象

来顶一下

返回首页

推荐资讯

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

相关文章

无相关信息

栏目更新

栏目热门