引用：Microsoft ActiveX Data Objects 2.X libraryCXO检测VBA 代码：CXO检测VBA public sub1_7()CXO检测VBA dim cnn as new adodb.connection ‘定义connection对象变量CXO检测VBA dim rs as new adodb.recordset ‘ 定义Recordset对象变量CXO检测VBA dim mydata as string ‘定义数据库名称变量CXO检测VBA dim mytable as string ‘定义数据表名称变量CXO检测VBA dim sql as stringCXO检测VBA CXO检测VBA ‘设置数据库名称(包括完整路径)CXO检测VBA mydata=thisworkbook.path & “\学生成绩管理.mdb”CXO检测VBA ‘设置要创建的数据表名称CXO检测VBA mytable=”期末成绩”CXO检测VBA ‘建立与数据库的连接CXO检测VBA with cnnCXO检测VBA .provider=”microsoft.jet.oledb.4.0”CXO检测VBA .open mydataCXO检测VBA end withCXO检测VBA ‘删除数据库中已经存在的数据表CXO检测VBA SQL=”drop table” & mytableCXO检测VBA set rs=cnn.execute(sql)CXO检测VBA ‘设置创建数据表的SQL语句CXO检测VBA sql=”create table” & mytable _CXO检测VBA & “(学号 text(10),姓名 text(6), 性别 text(1), 班级 text(10),” _CXO检测VBA & “数学 single, 语文 single, 物理 single, 化学 single,” _CXO检测VBA & “英语 single, 总分 single)”CXO检测VBA ‘利用execute方法创建数据表CXO检测VBA set rs=cnn.execute(sql)CXO检测VBA ‘关闭数据库CXO检测VBA cnn.closeCXO检测VBA ‘释放变量CXO检测VBA set mycat=nothingCXO检测VBA set rs=nothingCXO检测VBA set cnn=nothingCXO检测VBA ‘弹出信息CXO检测VBA msgbox “数据表<” & mytable & “>创建成功!”, vbinformation,”创建数据表”CXO检测VBA end subCXO检测VBA
