.mdb.access数据库VBA-利用SQL语句创建数据库和数据表

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

利用SQL语句创建数据库和数据表

首先引用：microsoft activeX data objects 2.X library 和 microsoft ado ext.2.x for ddl and security”
代码：
public sub1_3()
dim mycat as new adox.catalog ‘定义ADOX的Catalog对象变量
Dim mycmd as new adodb.command ‘定义Command对象变量
dim mydata as string ‘定义数据库名称变量
dim mytable as string ‘定义数据表名称变量
dim SQL 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

‘设置数据库连接
set mycmd.activeconnection=mycat.activeconnection

‘设置创建数据表的SQL语句
SQL = "CREATE TABLE " & myTable _
        & "(学号 text(10),姓名 text(6),性别 text(1),班级 text(10)," _
        & "数学 Single,语文 Single,物理 Single,化学 Single," _
        & "英语 Single,总分 Single)"
‘利用execute方法创建数据表
with mycmd
   .commandtext=sql
   .execute, , adcmdtext
end with

‘释放变量
set mycat=nothing
set mycmd=nothing
‘弹出信息
msgbox “创建数据库成功！” & vbcrlf & “数据库文件名为：” & mydata & vbcrlf & “数据表名称为：” & mytable & vbcrlf & “保存位置：” & thisworkbook.path,vbinformation,”创建数据库”
end sub

注：有两种方法来创建数据表：

   ·利用ADODB.Command对象的commandtext属性和execute方法：
dim mycmd as new adodb.command
set mycmd.activeconnection=mycat.activeconnection
with mycmd
  .commandtext=SQL
  .execute, , adcmdtext
end with
   ·利用ADODB.Connection对象的execute方法来生成几个记录集
Dim cnn as new adodb.connection
dim rs as new adodb.recordset
set cnn=mycat.activeconnection
set rs=cnn.execute(sql)

来顶一下

返回首页

推荐资讯

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

相关文章

无相关信息

栏目更新

栏目热门