登录说明 | 升级会员 | 会员中心 | 我要投稿 | RSS
您当前的位置:首页 > 行业资讯

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

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

在已有的数据库中创建数据表(DAO)

引用DAO对象库:microsoft DAO 3.6 object libraryf4d检测VBA
代码:f4d检测VBA
public sub1_4()f4d检测VBA
dim mydb as dao.database  ‘ 定义DAO的database(数据库)对象变量f4d检测VBA
dim mydata as string  ‘定义数据库名称变量f4d检测VBA
dim mytable as string  ‘定义数据表名称变量f4d检测VBA
 f4d检测VBA
‘设置数据库名称(包括完整路径)f4d检测VBA
mydata=thisworkbook.path & “\学生成绩管理.mdb”f4d检测VBA
 f4d检测VBA
‘设置要创建的数据表名称f4d检测VBA
mytable=”期末成绩”f4d检测VBA
‘打开数据库f4d检测VBA
set mydb=opendatabase(mydata)f4d检测VBA
‘删除数据库中已经存在的数据表f4d检测VBA
mydb.tabledefs.delete mytablef4d检测VBA
‘创建新的数据表f4d检测VBA
set mytbl=mydb.createtabledef(mytable)f4d检测VBA
‘为创建的数据表添加各个字段f4d检测VBA
With mytblf4d检测VBA
   .fields.append .createfield("学号", dbtext, 10)f4d检测VBA
   .fields.append .createfield("姓名", dbtext, 6)f4d检测VBA
   .fields.append .createfield("性别", dbtext, 1)f4d检测VBA
   .fields.append .createfield("班级", dbtext, 10)f4d检测VBA
   .fields.append .createfield("数学", dbsingle)f4d检测VBA
   .fields.append .createfield("语文", dbsingle)f4d检测VBA
   .fields.append .createfield("物理", dbsingle)f4d检测VBA
   .fields.append .createfield("化学", dbsingle)f4d检测VBA
   .fields.append .createfield("英语", dbsingle)f4d检测VBA
   .fields.append .createfield("总分", dbsingle)f4d检测VBA
end withf4d检测VBA
‘将创建的数据表添加到数据库的TableDefs集合中f4d检测VBA
mydb.tabledefs.append mytblf4d检测VBA
‘关闭数据库f4d检测VBA
mydb.closef4d检测VBA
‘释放变量f4d检测VBA
set mydb=nothingf4d检测VBA
set mytbl=nothingf4d检测VBA
‘弹出信息f4d检测VBA
msgbox”数据表<” & mytable & “>创建成功!”,vbinformation,”创建数据表”f4d检测VBA
end subf4d检测VBA
 

·补充:

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

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

set mydb=opendatabase(mydata,true,false,”;pwd=12345”)f4d检测VBA
 
来顶一下
返回首页
返回首页
发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表
推荐资讯
合肥住建口检测单位招聘,高级工程师+协会九大专项证书,人员全职兼职均可
合肥住建口检测单位招
关于印发安徽省建设工程专业技术资格评审标准条件的通知(图文)
关于印发安徽省建设工
一般溶液有效期一览表
一般溶液有效期一览表
2022年一建《机电》真题解析
2022年一建《机电》真
相关文章
    无相关信息
栏目更新
栏目热门