asp数据库链接。添加、编辑、删除
2009-12-05 15:24
253 查看
Recordset属性与方法
PageCount 属性: 决定 Recordset 对象包括多少“页”的数据。
这里的“页”是数据记录的集合,大小等于 PageSize 属性的设定,即使最后一页的记录数比 PageSize 的值少,最后一页也算是 PageCount 的一页。必须注意也并不是所有的数据提供者都支持此项属性。
PageSize 属性:显示 Recordset 对象每一页显示的记录数。
PageSize 属性是决定 ADO 存取数据库时如何分页显示的关键,使用它就可以决定多少记录组成一个逻辑上的“一页”。设定并建立一个页的大小,从而允许使用 AbsolutePage 属性移到其它逻辑页的第一条记录。PageSize 属性能随时被设定。
RecordCount 属性:显示 Recordset 对象记录的总数。
rs.RecordCount:游标中的数据记录总数。
rs.MoveFirst: 指向第一条记录。
rs.Move(6): 移动到第6条记录。
rs.MoveLast: 指向最后一条记录。
rs.MovePrev: 指向上一条记录。
rs.MoveNext: 指向下一条记录。
rs.GetRows: 将数据放入数组中
Recordset对象的Open函数:
Rs.Open 数据表名称或SQL指令,Connection对象,Recordset类型,锁定类型
参数一:若指定成数据表名称,则打开整个数据表,若指定成Select指令,则所建立的Recordset对象是Select指令选取的数据记录的结果。
参数二:传入某一个已打开的数据库的Connection对象。
参数三:是Recordset类型,它含有下表的四种设置值:
Recordset类型的设置值 意义
AdOpenForwardOnly(=0) 只读,且当前数据记录只能向下移动
AdOpenStatic(=3) 只读,当前数据记录可自由移动
AdOpenKeyset(=1) 可读写,当前数据记录可自由移动
AdOpenDynamic(=2) 可读写,当前数据记录可自由移动
AdOpenKeyset和AdOpenDynamic的差别只表现在多人共用数据库时,若以AdOpenKeyset 模式打开数据表,则无法看到其他人新增的数据记录(除非重新启动),如果是以AdOpenDynamic模式打开数据库,则可以看到其他人新增的数据记 录。
参数四:是锁定类型,它同样含有四种设置值,见下表:
锁定类型的设置值 意义
adLockReadOnly(=1) 默认值,用来打开只读的数据记录
adLockPessimistic(=2) 悲观锁定
adLockOptimistic(=3) 乐观锁定
adLockBatchOptimistic(=4) 批次乐观锁定
数据库连接--------------------------------
MS Access数据库连接
用DSN连接并且没有用户名和密码:
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName"
%>
用DSN连接并且有用户名和密码:
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName","username","password"
%>
用实际的数据库绝对路径连接:
<%
Set conn=Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=e:\yanhang\database.mdb"
conn.Open Strconn
%>
用实际的数据库相对路径连接:
<%
Set conn=Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=" & Server.MapPath("/database/yanhang.mdb")
conn.Open Strconn
%>
MS SQL Server数据库连接
用DSN连接:
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.open "DSN=MyDSN;UID=user;PWD=password;DATABASE=databasename"
%>
不用DSN连接:
<%
Set conn=Server.CreateObject("ADODB.Connection")
DSNtemp="DRIVER={SQL Server};SERVER=ServerName;UID=USER;PWD=password;DATABASE=databasename"
conn.open DSNtemp
%>
Oracle数据库连接:
<%
set conn=server.createobject("adodb.connection")
conn.cursorlocation=adUseClient
DSNTemp="Provider=MSDAORA.1;Password=xxxxx;User ID=yanhang;Data Source=xxx.world"
conn.open DSNtemp
%>
数据写入……………………………………………………………………………………
代码
<!--#i nclude file="common/conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from online"
rs.open sql,conn,3,2
rs.addnew
rs("name")=request("name")
rs("Tel")=request("tel")
rs("fax")=request("fax")
rs.update
rs.close
%>
数据修改……………………………………………………………………………………
<%
if request("action")="edit" then '判断是否修改
'取得表单传递的数据
member_name=Trim(Request.Form("member_name"))
member_pwd=Trim(Request.Form("member_pwd"))
question=Trim(Request.Form("question"))
sql="select * from member where m_id="&m_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs("member_name")=member_name
rs("answer")=answer
rs("question")=question
rs.update
rs.close
set rs=nothing
call ok("资料修改成功!","edit_member.asp?m_id="&m_id)
end if
%>
数据删除--数字字段……………………………………………………………………………………
<%
set rs=server.createobject("adodb.recordset")
sql="select * from pay where ID =1"
rs.open sql,conn,1,3
if not rs.eof and not rs.bof then
rs.movefirst
do while not
rs.eof
rs.delete
rs.movenext
loop
end if
rs.close
%>
数据删除--字符串字段……………………………………………………………………………………
<%
set rs=server.createobject("adodb.recordset")
sql="select * from pay where namer ='aaa'"
rs.open sql,conn,1,3
if not rs.eof and not rs.bof then
rs.movefirst
do while not rs.eof
rs.delete
rs.movenext
loop
end if
rs.close
%>
数据显示……………………………………………………………………………………
<%
Lei="行业资讯" '设置显示信息类别
set rs=server.CreateObject("adodb.Recordset")
sql="Select top 20 * from News where Lei <> '"&Lei&"' order by ID desc"
rs.open sql,conn,1,1
if rs.eof then '判断数据库内有无信息,防止读取错误
%>
暂无信息!
<%
else
do while not rs.eof
%>
<%if len(rs("Title")) > 10 then Response.write left(rs("Title"),10)&"..." else Response.write rs("Title") end if%>
<%
'循环显示数据
rc.movenext
loop
rc.close
set rc=nothing
end if%>
PageCount 属性: 决定 Recordset 对象包括多少“页”的数据。
这里的“页”是数据记录的集合,大小等于 PageSize 属性的设定,即使最后一页的记录数比 PageSize 的值少,最后一页也算是 PageCount 的一页。必须注意也并不是所有的数据提供者都支持此项属性。
PageSize 属性:显示 Recordset 对象每一页显示的记录数。
PageSize 属性是决定 ADO 存取数据库时如何分页显示的关键,使用它就可以决定多少记录组成一个逻辑上的“一页”。设定并建立一个页的大小,从而允许使用 AbsolutePage 属性移到其它逻辑页的第一条记录。PageSize 属性能随时被设定。
RecordCount 属性:显示 Recordset 对象记录的总数。
rs.RecordCount:游标中的数据记录总数。
rs.MoveFirst: 指向第一条记录。
rs.Move(6): 移动到第6条记录。
rs.MoveLast: 指向最后一条记录。
rs.MovePrev: 指向上一条记录。
rs.MoveNext: 指向下一条记录。
rs.GetRows: 将数据放入数组中
Recordset对象的Open函数:
Rs.Open 数据表名称或SQL指令,Connection对象,Recordset类型,锁定类型
参数一:若指定成数据表名称,则打开整个数据表,若指定成Select指令,则所建立的Recordset对象是Select指令选取的数据记录的结果。
参数二:传入某一个已打开的数据库的Connection对象。
参数三:是Recordset类型,它含有下表的四种设置值:
Recordset类型的设置值 意义
AdOpenForwardOnly(=0) 只读,且当前数据记录只能向下移动
AdOpenStatic(=3) 只读,当前数据记录可自由移动
AdOpenKeyset(=1) 可读写,当前数据记录可自由移动
AdOpenDynamic(=2) 可读写,当前数据记录可自由移动
AdOpenKeyset和AdOpenDynamic的差别只表现在多人共用数据库时,若以AdOpenKeyset 模式打开数据表,则无法看到其他人新增的数据记录(除非重新启动),如果是以AdOpenDynamic模式打开数据库,则可以看到其他人新增的数据记 录。
参数四:是锁定类型,它同样含有四种设置值,见下表:
锁定类型的设置值 意义
adLockReadOnly(=1) 默认值,用来打开只读的数据记录
adLockPessimistic(=2) 悲观锁定
adLockOptimistic(=3) 乐观锁定
adLockBatchOptimistic(=4) 批次乐观锁定
数据库连接--------------------------------
MS Access数据库连接
用DSN连接并且没有用户名和密码:
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName"
%>
用DSN连接并且有用户名和密码:
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName","username","password"
%>
用实际的数据库绝对路径连接:
<%
Set conn=Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=e:\yanhang\database.mdb"
conn.Open Strconn
%>
用实际的数据库相对路径连接:
<%
Set conn=Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=" & Server.MapPath("/database/yanhang.mdb")
conn.Open Strconn
%>
MS SQL Server数据库连接
用DSN连接:
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.open "DSN=MyDSN;UID=user;PWD=password;DATABASE=databasename"
%>
不用DSN连接:
<%
Set conn=Server.CreateObject("ADODB.Connection")
DSNtemp="DRIVER={SQL Server};SERVER=ServerName;UID=USER;PWD=password;DATABASE=databasename"
conn.open DSNtemp
%>
Oracle数据库连接:
<%
set conn=server.createobject("adodb.connection")
conn.cursorlocation=adUseClient
DSNTemp="Provider=MSDAORA.1;Password=xxxxx;User ID=yanhang;Data Source=xxx.world"
conn.open DSNtemp
%>
数据写入……………………………………………………………………………………
代码
<!--#i nclude file="common/conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from online"
rs.open sql,conn,3,2
rs.addnew
rs("name")=request("name")
rs("Tel")=request("tel")
rs("fax")=request("fax")
rs.update
rs.close
%>
数据修改……………………………………………………………………………………
<%
if request("action")="edit" then '判断是否修改
'取得表单传递的数据
member_name=Trim(Request.Form("member_name"))
member_pwd=Trim(Request.Form("member_pwd"))
question=Trim(Request.Form("question"))
sql="select * from member where m_id="&m_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs("member_name")=member_name
rs("answer")=answer
rs("question")=question
rs.update
rs.close
set rs=nothing
call ok("资料修改成功!","edit_member.asp?m_id="&m_id)
end if
%>
数据删除--数字字段……………………………………………………………………………………
<%
set rs=server.createobject("adodb.recordset")
sql="select * from pay where ID =1"
rs.open sql,conn,1,3
if not rs.eof and not rs.bof then
rs.movefirst
do while not
rs.eof
rs.delete
rs.movenext
loop
end if
rs.close
%>
数据删除--字符串字段……………………………………………………………………………………
<%
set rs=server.createobject("adodb.recordset")
sql="select * from pay where namer ='aaa'"
rs.open sql,conn,1,3
if not rs.eof and not rs.bof then
rs.movefirst
do while not rs.eof
rs.delete
rs.movenext
loop
end if
rs.close
%>
数据显示……………………………………………………………………………………
<%
Lei="行业资讯" '设置显示信息类别
set rs=server.CreateObject("adodb.Recordset")
sql="Select top 20 * from News where Lei <> '"&Lei&"' order by ID desc"
rs.open sql,conn,1,1
if rs.eof then '判断数据库内有无信息,防止读取错误
%>
暂无信息!
<%
else
do while not rs.eof
%>
<%if len(rs("Title")) > 10 then Response.write left(rs("Title"),10)&"..." else Response.write rs("Title") end if%>
<%
'循环显示数据
rc.movenext
loop
rc.close
set rc=nothing
end if%>
相关文章推荐
- 四.用户管理页面(显示所有的用户信息,同时为用户的添加,编辑,修改密码,删除,修改权限等功能提供相应的链接) UserMange.aspx
- ASP.NET MVC5+EF6+EasyUI 后台管理系统(82)-Easyui Datagrid批量操作(编辑,删除,添加)
- GridView 添加、删除、编辑按钮问题
- DevExpress GridControl控件行内新增、编辑、删除添加选择框(转)
- thinkphp利用模型通用数据编辑添加和删除的实例代码
- jQuery(4)--实现用户的添加,删除,编辑功能
- IOS--UI--LessonUITableViewEdting 编辑 添加 删除
- SQl语句添加、编辑、删除表或字段
- gridview 实现自定义分页、排序、查询、添加、编辑、多选删除 之代码规范
- GridView 实现自定义分页、排序、查询、添加、编辑、多选删除 之代码规范
- Swift - 给表格添加编辑功能(删除,插入)
- UITableViewController 编辑功能中的,添加,删除,修改
- 蛇年多屏图片切换(可添加图片链接以及编辑标题)
- UITableView的编辑操作(移动&添加&删除-单选删除,或多选删除)
- MOSS字段编辑权限控制方案(2)-添加管理链接
- XML---添加 删除、编辑、修改并保存、添加、查找、生成XML按钮并完成对应的功能
- 编辑 Ext 表格(一)——— 动态添加删除行列
- Ext.js5(编辑表格的内容celledit)(添加和删除的行为)(20)
- asp.net mvc + ExtJs 实现无限级TreePanel 加载、添加、编辑、删除
- mysql用户添加删除编辑权限管理等简述