请高手帮忙看看代码如何修改（我要实现表单调用数据并更新到数据库）

最新推荐文章于 2019-12-30 17:24:24 发布

tanhe3159

最新推荐文章于 2019-12-30 17:24:24 发布

阅读量676

点赞数

本文链接：https://blog.csdn.net/tanhe3159/article/details/53977685

版权

数据库是acc的
我制作表单修改原来的数据，数据是一个表里边，不同列的。对应id，点击一次修改，我希望是把两个原有的数据改成新的数据。

我的表单里调用的数据用的是：
<tr>
    <td align="center">
         <input name="id" type="hidden" value="<%=request.QueryString("id")%>" id="Hidden1">
         <input name="shuju1" type="text" id="shuju1" size="16" value="<%=int(rs("shuju1"))%>">
    </td>
     <td align="center">
          <input name="id" type="hidden" value="<%=request.QueryString("id")%>" id="Hidden2">
          <input name="shuju2" type="text" id="shuju2" size="16" value="<%=int(rs("shuju2"))%>">
     </td>
</tr>
提交结果保存页面代码
<%
    If Request.Form("Submit")="修改"      Then
        SQL = "Select * From mytable"
%>
<%
    '## Module for saving Records ##'

    Set objRS = server.createobject("adodb.recordset")
    objRS.open "Select * from mytable order by id,conn,1,3"
    If objRS.EOF Then
        objRS.AddNew
        Response.Write "<p>保存记录"
        For X = 1 to Request.Form.Count -1
            objRS(Request.Form.Key(x)) = Request.Form(x)
        Next
        objRS.Update
        Response.Write "<p>更新成功!"
    Else
        Response.Write "<p>更新出错!"
    End If
    Response.End
%>
<%
    End If
%>