引用:microsoft activex data objects2.x library和microsoft ado ext.2.x for ddl and security9W9七二检测 代码：9W9七二检测 public sub1_6()9W9七二检测 dim mycat as new adox.catalog ‘定义adox的catalog对象变量9W9七二检测 dim mycmd as new adodb.command ‘定义command对象变量9W9七二检测 dim mydata as string ‘定义数据库名称变量9W9七二检测 dim mytable as string ‘定义数据表名称变量9W9七二检测 dim sql as string 9W9七二检测 ‘设置数据库名称（包括完整路径）9W9七二检测 mydata=thisworkbook.path & “\学生成绩管理.mdb”9W9七二检测 ‘设置要创建的数据表名称9W9七二检测 mytable=”期末成绩”9W9七二检测 ‘建立与数据库的连接9W9七二检测 mycat.activeconnection=”provider=microsoft.jet.oledb.4.0;”_9W9七二检测 & “data source=” & mydata9W9七二检测 ‘删除数据库中已经存在的数据表9W9七二检测 mycat.tables.delete mytable9W9七二检测 ‘设置数据库连接9W9七二检测 set mycmd.activeconnection=mycat.activeconnection9W9七二检测 ‘设置创建数据表的SQL语句9W9七二检测 SQL=”CREATE TABLE” & mytable_9W9七二检测 & “(学号 text(10),姓名 text(6),性别 text(1),班级 text(10),” _9W9七二检测 & “数学 single,语文 single,物理 single,化学 single, “_9W9七二检测 & “英语 single,总分 single)”9W9七二检测 ‘利用Execute方法创建数据表9W9七二检测 With mycmd9W9七二检测 .commandtext=sql9W9七二检测 .execute, , adcmdtext9W9七二检测 End with9W9七二检测 ‘释放变量9W9七二检测 Set mycat=nothing9W9七二检测 Set mycmd=nothing9W9七二检测 ‘弹出信息9W9七二检测 Msgbox “数据表<” & mytable & “>创建成功！”,vbinformation,”创建数据表”9W9七二检测
