灰儿 发表于 2006-11-26 14:53:58

asp操作数据库详解

<H4 align=center>asp操作数据库详解</H4><P align=left>假设数据库文件名叫data.mdb<BR>里面有2个表:<BR>1.admin<BR>2.news<BR>假设admin是保存用户名和密码,里面有字段:UserName,PassWord.<BR>假设我们要在判断一个用户名叫name,密码是pass的人是否合法,也就是数据库里面是否有这个记录,那么要进行以下几步:<BR>1.建立一个连接对象,连接到数据库;<BR>2.建立一个记录对象;<BR>3.用记录对象通过sql语句对表中的内容进行操作;<BR>4.读取sql语句的结果并处理;<BR>5.关闭记录对象,关闭连接对象.</P><P>第一步代码:<BR>Dim oConn,DateBase,connstr<BR>datebase="DataBase/data.mdb" &#39;数据库文件位置,相对路径.<BR>connstr="DBQ="+server.mappath(""&amp;datebase&amp;"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"<BR>set oConn=server.createobject("ADODB.CONNECTION")<BR>oConn.open connstr</P><P>第二步代码:<BR>Dim VRs<BR>Set VRs=Server.CreateObject("ADODB.RecordSet")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;建立一个记录对象</P><P>第三步代码:<BR>Dim VSql,UserName,PassWord<BR>UserName="name"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;给变量赋值<BR>PassWord="pass"<BR>VSql="select * from Admin Where Name=&#39;" &amp; UserName &amp;"&#39; and PassWord=&#39;" &amp; PassWord &amp;"&#39;"<BR>VRs.open VSql,oConn,3,3</P><P>当第三步完成后,对数据库的查询就成功了,然后就可以读取sql的结果了:</P><P><BR>A.查询记录:</P><P>If VRs.eof then <BR>&nbsp;&nbsp; response.write "不存在此记录或者输入错误"&nbsp;&nbsp;&nbsp; &#39;如果到了表的末尾都没发现,当然就不存在此用户,或者用户名不对<BR>else<BR>&nbsp;&nbsp; response.write "存在,用户名和密码正确"&nbsp; <BR>end if</P><P>B.添加记录:(比如添加一个名叫pig密码是dog的记录)<BR>1.进行第一步<BR>2.进行第二步<BR>3.连接到表<BR>VSql="select * from Admin"<BR>VRs.open VSql,oConn,3,3<BR>4.添加:<BR>VRs.AddNew<BR>VRs("UserName")="pig"<BR>VRs("PassWord")="dog"<BR>VRS.Update</P><P>C.修改记录:(比如把名pig的密码修改成cat)<BR>1.进行第一步<BR>2.进行第二步<BR>3.连接到表中名UserName为pig的记录:<BR>UsersName="pig"<BR>VSql="select * from Admin where UserName=&#39;" &amp; UserName &amp; "&#39;"<BR>VRs.open VSql,oConn,3,3<BR>4.添加:<BR>VRs("PassWord")="cat"<BR>VRS.Update</P><P>D.删除记录:(比如删除用户名为pig的记录)<BR>1.进行第一步<BR>2.进行第二步<BR>3.删除表中名UserName为pig的记录:<BR>UsersName="pig"<BR>VSql="delete * from Admin where UserName=&#39;" &amp; UserName &amp; "&#39;"<BR>VRs.open VSql,oConn,3,3</P><P>VRs.open VSql,oConn,3,3也可以直接写成:oConn.execute(VSql)</P><P>&nbsp;</P><P>总结:<BR>重点在给VSql赋值这一句,他决定你进行什么操作,相关内容详情请参考介绍sql语句的书籍,姜波有.<BR>相关结果:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 说明<BR>VRs.RecordCount&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;查询到的记录个数<BR>VRs.AddNew&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;添加新记录<BR>VRs.Update&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;更新,用于修改和添加以后<BR>VRs.MoveNext&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;移动到下一条记录 <BR>VRs.MoveLast&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;移动到上一条记录</P><P>最后别忘记关闭:<BR>VRs.Close<BR>Set VRs=nothing<BR>oConn.close<BR>Set oConn=nothing</P>
页: [1]
查看完整版本: asp操作数据库详解