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