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

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

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

引用DAO对象库：microsoft DAO 3.6 object library
代码：
public sub1_4()
dim mydb as dao.database ‘ 定义DAO的database(数据库)对象变量
dim mydata as string ‘定义数据库名称变量
dim mytable as string ‘定义数据表名称变量

‘设置数据库名称（包括完整路径）
mydata=thisworkbook.path & “\学生成绩管理.mdb”

‘设置要创建的数据表名称
mytable=”期末成绩”
‘打开数据库
set mydb=opendatabase(mydata)
‘删除数据库中已经存在的数据表
mydb.tabledefs.delete mytable
‘创建新的数据表
set mytbl=mydb.createtabledef(mytable)
‘为创建的数据表添加各个字段
With mytbl
   .fields.append .createfield("学号", dbtext, 10)
   .fields.append .createfield("姓名", dbtext, 6)
   .fields.append .createfield("性别", dbtext, 1)
   .fields.append .createfield("班级", dbtext, 10)
   .fields.append .createfield("数学", dbsingle)
   .fields.append .createfield("语文", dbsingle)
   .fields.append .createfield("物理", dbsingle)
   .fields.append .createfield("化学", dbsingle)
   .fields.append .createfield("英语", dbsingle)
   .fields.append .createfield("总分", dbsingle)
end with
‘将创建的数据表添加到数据库的TableDefs集合中
mydb.tabledefs.append mytbl
‘关闭数据库
mydb.close
‘释放变量
set mydb=nothing
set mytbl=nothing
‘弹出信息
msgbox”数据表<” & mytable & “>创建成功！”,vbinformation,”创建数据表”
end sub

·补充：

opendatabase方法用来打开一个已有的数据库，返回一个数据库对象，并自动将该数据库对象加入到数据库对象集中。
set database=workspace.opendatabase(databasename,options,read-only,connect)
workspace:定义的Workspace类型变量，它表示所使用的工作环境，将包含新的数据库对象
databasename:一个有效的Jet数据库文件或ODBC数据源
options:T/F,T表示以独占方式打开数据库，而F表示以共享方式打开数据库
read-only:是否以只读方式打开数据库，为T/F
connect:说明不同连接方式以及密码

·扩展：利用DAO打开有密码的Access数据库

set mydb=opendatabase(mydata,true,false,”;pwd=12345”)

来顶一下

返回首页

推荐资讯

一般溶液有效期一览表	2022年一建《机电》真
给报告批量添加签章、	水利空表震动频率模

相关文章

无相关信息

栏目更新

栏目热门