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