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