页面打开中,请稍候...
www.Gzu521.com
| 贵 州 学 习 网 |
|
[ 关键字 ] access,数据库,基本操作 如何操作access数据库 一、查找记录 find.htm find.asp <%option explicit%> <% dim strman, strfind , objconn strman = request.form("man") dim objrs set objconn = server.createobject("adodb.connection") set objrs = server.createobject("adodb.recordset") objconn.open("driver={microsoft access driver (*.mdb)}; dbq="&server.mappath("man.mdb")) objrs.open "names", objconn, adopenstatic, adlockreadonly, adcmdtable strfind = "name=’" & strman & "’" objrs.find strfind ’显示第一条相关记录 if objrs.eof then response.write "哦,没有找到您要查找的人!" & strman else response.write "他／她的姓名是:"&strman&"id是:"&objrs("id")&" " end if objrs.close set objrs = nothing objconn.close set objconn = nothing %> 二、过滤记录 filter.asp <%option explicit%> <% dim objrs, intletter, strchar, strcriteria objconn set objconn = server.createobject("adodb.connection") set objrs = server.createobject("adodb.recordset") objconn.open("driver={microsoft access driver (*.mdb)};dbq="server.mappath("man.mdb")) objrs.open "names", objconn, adopenstatic, adlockreadonly,adcmdtable for intletter = 1 to 26 strchar = chr(intletter+64) strcriteria = "title like ’" & strchar & "*’" objrs.filter = strcriteria if not objrs.eof then response.write " "&strchar&"
end if next objrs.close set objrs = nothing objconn.close set objconn = nothing %> 三、添加记录 add.asp <%option explicit%> <% dim objrs, intidfornewrecord , objconn set objconn = server.createobject("adodb.connection") set objrs = server.createobject("adodb.recordset") objconn.open("driver={microsoft access driver (*.mdb)}; dbq="&server.mappath("man.mdb")) ’连接数据库 objrs.open "names", objconn, adopenstatic, adlockoptimistic,adcmdtable objrs.movelast intidfornewrecord = objrs("id") + 1 objrs.addnew ’添加新记录 objrs("id") = intidfornewrecord objrs("names") = "mand" objrs.update objrs.close objrs.open "select * from names where id=" & intidfornewrecord, _ objconn, adopenforwardonly, adlockreadonly, adcmdtext if objrs.eof then response.write "噢,出错了!新记录没找到." else response.write "恭喜,添加成功!新记录是: " & _ "name = ’" & objrs("name") & "’ " & _ "id = ’" & objrs("id") & "’ " end if objrs.close set objrs = nothing objconn.close ’清空 set objconn = nothing %> 四、更新记录 和上面的“添加记录”一样，只需把“添加”命令改做“更新”就可以了： objrs.update 五、删除记录 <%option explicit%> <% dim objrs, intidfornewrecord, objconn set objconn = server.createobject("adodb.connection") set objrs = server.createobject("adodb.recordset") objconn.open("driver={microsoft access driver (*.mdb)}; dbq="&server.mappath("man.mdb")) objrs.open "names", objconn, adopenstatic, adlockoptimistic, adcmdtable objrs.filter = "name = ’ mand’" response.write "注意,以下记录将被删除: " while not objrs.eof response.write objrs("id") & " " objrs.delete objrs.movenext wend objrs.close response.write " 核实删除记录: " objrs.open "select * from names where name like ’mand’", _ objconn, adopenforwardonly, adlockreadonly, adcmdtext if objrs.eof then response.write "mand的所有记录都已被从数据库删除! " else response.write "噢,删除失败!mand的记录还在数据库里呢, id=" & objrs("id") end if objrs.close set objrs = nothing objconn.close set objconn = nothing %> |
责任编辑：gzu521
当前位置:
