利用Command对象进行数据库的基本操作

<% '建立Connection对象 Dim cnn, strConn strConn="dbq=" & Server.Mappath("jxgl.mdb") & _ ";Driver={Microsoft Access Driver (*.mdb)}" Set cnn=Server.CreateObject("ADOdb.Connection") cnn.Open strConn '建立Command对象 Dim comm Set comm= Server.CreateObject("ADOdb.Command") comm.ActiveConnection=cnn '查询记录 Dim rs,strSql strSql="select * from xsxx where 入学成绩>600" comm.CommandText= strSql '设置命令文本字符串 comm.CommandType=1 '指定命令类型 Set rs=comm.Execute '返回记录集 Do While Not rs.Eof Response.Write rs("姓名") & "
" rs.MoveNext Loop '添加记录 strSql ="Insert Into xsxx(学号,姓名,入学成绩)"& _ " Values('02501','张三',621)" comm.CommandText=strSql comm.Execute '更新记录 strSql ="Update xsxx Set 姓名='李四' Where 学号='02101'" comm.CommandText=strSql comm.Execute '删除记录，删除李玫的记录 strSql="Delete From xsxx Where 姓名='武同学'" comm.CommandText=strSql comm.Execute '关闭Connection对象 cnn.Close Set cnn=nothing %>