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