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

.mdb.access数据库VBA-在已有的数据库中创建数据表(SQL,Recordset对象)

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

在已有的数据库中创建数据表(SQL,Recordset对象)

  引用:Microsoft ActiveX Data Objects 2.X libraryBKM检测VBA
  代码:BKM检测VBA
public sub1_7()BKM检测VBA
dim cnn as new adodb.connection  ‘定义connection对象变量BKM检测VBA
dim rs as new adodb.recordset  ‘ 定义Recordset对象变量BKM检测VBA
dim mydata as string  ‘定义数据库名称变量BKM检测VBA
dim mytable as string  ‘定义数据表名称变量BKM检测VBA
dim sql as stringBKM检测VBA
 BKM检测VBA
‘设置数据库名称(包括完整路径)BKM检测VBA
mydata=thisworkbook.path & “\学生成绩管理.mdb”BKM检测VBA
‘设置要创建的数据表名称BKM检测VBA
mytable=”期末成绩”BKM检测VBA
‘建立与数据库的连接BKM检测VBA
with cnnBKM检测VBA
  .provider=”microsoft.jet.oledb.4.0”BKM检测VBA
  .open mydataBKM检测VBA
end withBKM检测VBA
‘删除数据库中已经存在的数据表BKM检测VBA
SQL=”drop table” & mytableBKM检测VBA
set rs=cnn.execute(sql)BKM检测VBA
‘设置创建数据表的SQL语句BKM检测VBA
sql=”create table” & mytable _BKM检测VBA
  & “(学号 text(10),姓名 text(6), 性别 text(1), 班级 text(10),” _BKM检测VBA
  & “数学 single, 语文 single, 物理 single, 化学 single,” _BKM检测VBA
  & “英语 single, 总分 single)”BKM检测VBA
‘利用execute方法创建数据表BKM检测VBA
 set rs=cnn.execute(sql)BKM检测VBA
‘关闭数据库BKM检测VBA
 cnn.closeBKM检测VBA
‘释放变量BKM检测VBA
set mycat=nothingBKM检测VBA
set rs=nothingBKM检测VBA
set cnn=nothingBKM检测VBA
‘弹出信息BKM检测VBA
msgbox “数据表<” & mytable & “>创建成功!”, vbinformation,”创建数据表”BKM检测VBA
end subBKM检测VBA
 
来顶一下
返回首页
返回首页
发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表
推荐资讯
合肥住建口检测单位招聘,高级工程师+协会九大专项证书,人员全职兼职均可
合肥住建口检测单位招
关于印发安徽省建设工程专业技术资格评审标准条件的通知(图文)
关于印发安徽省建设工
一般溶液有效期一览表
一般溶液有效期一览表
2022年一建《机电》真题解析
2022年一建《机电》真
相关文章
    无相关信息
栏目更新
栏目热门