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