powered by 25175.net如何 *** 作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=50><BR><BR><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 objConnSet 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=1><TR><TD><B>姓名<B></TD><TD>ID</TD></TR>" While Not objRS.EOF Response.Write "<TR><TD>" &objRS("Name") &"</TD>" &_ "<TD>" &objRS("ID") &"</TD></TR>" objRS.MoveNext Wend Response.Write "</TABLE>" End If Next objRS.Close Set objRS = NothingobjConn.Close Set objConn = Nothing%></BODY></HTML>三、添加记录add.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, intIDForNewRecord , objConnSet 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 "恭喜,添加成功!新记录是:<BR>" &_ "Name = '" &objRS("Name") &"'<BR>" &_ "ID = '" &objRS("ID") &"'<BR>" End If objRS.Close Set objRS = Nothing objConn.Close' 清空 Set objConn = Nothing%></BODY></HTML>四、更新记录和上面的“添加记录”一样，只需把“添加”命令改做“更新”就可以了：objRS.Update 五、删除记录This is the asp page, we will delete the record that we added ManD:<% Option Explicit%><!-- METADATA TYPE="typelib" FILE="C:\Program Files\Common Files\System\ado\msado15.dll" --><HTML><HEAD><TITLE>Access数据库记录删除</TITLE></HEAD><BODY><% Dim objRS, intIDForNewRecord, objConnSet 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 "注意,以下记录将被删除:<BR>" While Not objRs.EOF Response.Write objRS("ID") &"<BR>" objRS.Delete objRS.MoveNext Wend objRS.Close Response.Write "<BR>核实删除记录:<BR>" objRS.Open "SELECT * FROM Names WHERE Name LIKE 'ManD'", _ objConn, adOpenForwardOnly, adLockReadOnly, adCmdText If objRS.EOF Then Response.Write "ManD的所有记录都已被从数据库删除!<BR>" Else Response.Write "噢,删除失败!ManD的记录还在数据库里呢, " &_ "ID=" &objRS("ID") End If objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing%></BODY></HTML>// 连接
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0Data Source=C:\\test.mdb")
cn.Open()
cn.Close()
// 读取数据到DataTable
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0Data Source=C:\\test.mdb")
DataTable userTbl = new DataTable()
OleDbDataAdapter da = new OleDbDataAdapter("SELECT * FROM [User]", cn)
da.Fill(userTbl)
以下表为例演示插入跟新 *** 作
表名：User
字段:ID,UserName,UserPassword
// 插入一条记录
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0Data Source=C:\\test.mdb")
OleDbCommand cmd = new OleDbCommand("INSERT INTO [User] ([ID], [UserName], [UserPassword]) VALUES (1, 'user_ab', '123')", cn)
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
// 更新
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0Data Source=C:\\test.mdb")
OleDbCommand cmd = new OleDbCommand("UPDATE [User] SET [UserPassword]='newpwd' WHERE [UserName]='user_ab'", cn)
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
微信扫一扫
支付宝扫一扫
评论列表（0条）