我怎样更新数据纪录??
用update 的方法 不要先删除后加入.
我不会写
1
2response.buffer=true
1<html>
2<body>
if request("Ret")="提交" then
connstr="driver={SQL Server};server=sun;uid=sa;pwd=sa;database=sunmoon"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
MySQL = "Select * From visor Where 1<>1" Set rst = Server.CreateObject("ADODB.Recordset") rst.Open MySQL,conn,2,2
'rst.update
'rst("用户号")=888888 <!--add for test--> <!-- 用户号是主健-->
rst.beginupdate <!--???-->
rst("姓名")=request("name")
rst("密码")=request("pwd")
rst("说明")=request("textarea")
rst("等级")=request("level")
rst("时间")=date()+time()
rst.Update
Set rst=Nothing
response.write "您成功修改了！"
else response.redirect "login.asp"
end if
if request("Ret")="重置" then
response.redirect "login.asp"
end if
1</body>
2</html>
3x!
---------------------------------------------------------------
rst.Open MySQL,conn,2,2
=>
rst.Open MySQL,conn,3,3
---------------------------------------------------------------
rst.Open MySql,conn,1,3
execute 方法：
conn.Execute strSql
strSql = "update tablename set column1=value1,column2=value2 where columnKey=value3"
大致是这样
---------------------------------------------------------------
一般带不同条件的更新（比如循环更新）才用UPDATE方法做。用execute方法比较简单些。
而且rs.update方法好像是对一条记录进行update.
MySQL = "Select * From visor Where 1<>1"
-〉MySQL = "Select * From visor Where 用户号='888888'"
strSql = "select * from tbl_SysParameter where Flag='0' order by id"
if not(OpenConnection(strSql,rsSysPara,adUseClient )) then
Response.Write("数据库数据读取失败！请检查数据库结构是否正确")
end if
iCount = rsSysPara.RecordCount
rsSysPara.MoveFirst
For Counter = 1 to iCount step 1
select case rsSysPara("ItemName")
case "CompanyName","CompanyNameE","MPSFrequency","MPSStartTime"
rsSysPara("ItemValue") = Request.Form("txt_" & trim(rsSysPara("ItemName")))
case else
'都是整数的
rsSysPara("ItemValue") = FormatNumber(Request.Form("txt_" & trim(rsSysPara("ItemName"))),0,-1,0,0)
end select
' rsSysPara("ItemValue") = Request.Form("txt_" & trim(rsSysPara("ItemName")))
rsSysPara.Update
call AddLog("系统参数数据保存"&FormatStr( rsSysPara("ItemName"),ftSql) & "。", "系统参数表(tbl_SysParameter)")
rsSysPara.MoveNext
next
我的一段代码，参考一下？
---------------------------------------------------------------
'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4