如何操作Access数据库？.doc

如何操作Access数据库？ 一、查找记录 find.htm HTML HEAD TITLE精彩春风之Access数据库记录查找/TITLE /HEAD BODY FORM ACTION=find.asp METHOD=POST id=form1 name=form1 请输入您要查找的人的姓名: BR INPUT TYPE=TEXT NAME=man SIZE=50BRBR INPUT TYPE=submit NAME=send VALUE=他／她的id是多少? /FORM /BODY /HTML find.asp % Option Explicit % !-- METADATA TYPE=typelib FILE=C:\Program Files\Common Files\System\ado\msado15.dll -- HTML BODY % 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) BR _ End If objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing % /BODY /HTML 二、过滤记录 filter.asp % Option Explicit % !-- METADATA TYPE=typelib FILE=C:\Program Files\Common Files\System\ado\msado15.dll -- HTML HEAD TITLE精彩春风之Access数据库记录过滤/TITLE /HEAD BODY % 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 H2 strChar /H2 _ TABLE BORDER=1TRTDB姓名B/TDTDID/TD/TR While Not objRS.EOF Response.Write TRTD objRS(Name) /TD _ TD objRS(ID) /TD/TR objRS.MoveNext Wend Response.Write /TABLE End If Next objRS.Clos