UC知道asp如何根据ID更新数据
来源：百度知道 编辑：UC知道 时间：2024/06/07 02:46:03
如何在这个基出上，添加根据ID更新XNUM
<%
dim xnum,odb'(定义变量)
xnum=request.QueryString ("num") '(通过GET专用的方法获得提交地址的"NUM"变量的值)
set dbs=server.CreateObject("adodb.connection") '(创建打开数据库的对象)
odb="provider=microsoft.jet.oledb.4.0;data source=" &server.MapPath("get.mdb") '(驱动指定数据库"get.mdb")
dbs.Open odb '(通过对象的相应方法打开数据库)
dim cqds,cqd '(定义变量)
set cqds=server.CreateObject("adodb.recordset") '(创建连接数据库的对象)
cqd="select * from [get]" '(SQL查询语句,查询数据库的"GET"表)
cqds.Open cqd,dbs,1,3 '(决定对象打开数据库的方式)
cqds.AddNew'(准备插入一行新记录)
cqds("getnum")=xnum '(写入记录到"getnum"字段)
cqds.Update '(更新数据库)
set dbs=nothing '(释放对象)
set cqds=nothing
%>
<%
dim xnum,odb'(定义变量)
xnum=request.QueryString ("num") '(通过GET专用的方法获得提交地址的"NUM"变量的值)
set dbs=server.CreateObject("adodb.connection") '(创建打开数据库的对象)
odb="provider=microsoft.jet.oledb.4.0;data source=" &server.MapPath("get.mdb") '(驱动指定数据库"get.mdb")
dbs.Open odb '(通过对象的相应方法打开数据库)
dim cqds,cqd '(定义变量)
set cqds=server.CreateObject("adodb.recordset") '(创建连接数据库的对象)
cqd="select * from [get]" '(SQL查询语句,查询数据库的"GET"表)
cqds.Open cqd,dbs,1,3 '(决定对象打开数据库的方式)
cqds.AddNew'(准备插入一行新记录)
cqds("getnum")=xnum '(写入记录到"getnum"字段)
cqds.Update '(更新数据库)
set dbs=nothing '(释放对象)
set cqds=nothing
%>
ID=request.QueryString ("ID") '(通过GET专用的方法获得要修改的某一ID记录)
……
cqd="select * from [get] where ID="&ID '(SQL查询语句,查询数据库的"GET"表的某一条记录)
……
cqds.AddNew'（因为是更新记录，这一句删除）
……
（注：省略号与你原程序一样）
dim YourID
YourID=request("ID")
dim cqds,cqd '(定义变量)
set cqds=server.CreateObject("adodb.recordset") '(创建连接数据库的对象)
cqd="select * from [get] where ID="&YourID '(SQL查询语句,查询数据库的"GET"表)
cqds.Open cqd,dbs,1,3 '(决定对象打开数据库的方式)
cqds("getnum")=xnum '(写入记录到"getnum"字段)
cqds.Update '(更新数据库)
cqds.close
dbs.close
set cqds=nothing
set dbs=nothing '(释放对象)