Question

ASP+Access如何提交一个表单，既实现插入记录，又实现对另个表更新记录。

一个数据库里面两个表，（user和user1）我想把前面三项插入到表Recordset2.
把第四项账户余额，更新到Recordset1.
拿dreamweaver对表达只能同时进行一项，该如何添加跟新的那个代码，请详细写写。<form id="form1" name="form1" method="POST" action="<%=MM_editAction%>"> <p>缴费号码： <label></label> <%=Request("haoma")%> <input name="haoma" type="hidden" id="haoma" value="<%=Request("haoma")%>" /> </p> <p>计费金额：<%=Request("jine")%> <input name="jine" type="hidden" id="jine" value="<%=Request("jine")%>" /> </p> <p>代理名称：<%= Session("MM_Username") %> <input name="daili" type="hidden" id="daili" value="<%= Session("MM_Username") %>" /> </p> <p>账户余额：<%=(Recordset2.Fields.Item("yushu").Value)%> <input name="zongshu" type="hidden" id="zongshu" value="<%=(Recordset1.Fields.Item("zongshu").Value)-Request("jine")%>" /> </p> <p> </p> <p> <label> <input type="submit" name="Submit" value="提交" /> </label> <label> <input type="reset" name="Submit2" value="返回" /> </label> </p> <input type="hidden" name="MM_insert" value="form1"> </form>

Answer 1

'看你这情况,应该是对插入和更新成功率是比较高的,要么就全成功,要么就全不成功保持原样
'----------------------------
'略去连接数据库的过程
'----------------------------
Dim haoma,jine,daili,Yue
haoma=Trim(request.Form("haoma"弯闭)) '号启配码
jine=Trim(request.Form("jine")) '金额
daili=Trim(request.Form("daili")) '代理
Yue=Trim(request.Form("zongshu")) '余额
If Not isNumeric(jine) Then 'jine 只能由数字组成,非数字提交判断为填写错误
    Response.Write("<script>alert('请填写正确的金额!');history.back();</script>")
    Response.End()
End If
'-------------------------------
'进入SQL处理过程
'-------------------------------
conn.BeginTrans '事务开始
'除金额外悄闹指,其它暂时按文本字串提交,SQL中,文本与数字变量入库的差别就是有没有单引号
SqlInsert="Insert Into [Recordset2] (haoma,jine,daili) Values('"&haoma&"',"&jine&",'"&daili&"')"
SqlUpdate="Update [Recordset1] set zongshu="&Yue&" where haoma='"&haoma&"'" 

conn.execute(SqlInsert) '插入 Recordset1
conn.execute(SqlUpdate) '更新 Recordset2

If conn.Errors.Count=0 Then
    conn.CommitTrans '没有conn错误,执行事务提交.大功告成的啦~
    Response.Write "数据执行完毕,没有错误!"  
Else
    conn.RollbackTrans '否则回滚
    Response.Write "有外星人干扰,数据未能完成,正在努力恢复!"  
End If

Answer 2

完全可以的，

值姿含隐1=request("值1")
值2=request("值2")
值3=request("值3")
值4=request("值4")
conn1.execute "update user set 字段1='"&值1&"',字段2='"&值2&"',字段3='"&值3&"'"
conn2.execute "update user1 set 字段4='"&值4&"老指'"

请自己把以上中文改成你迹厅的相应变量

追问

还是搞不懂。按你弄的，会出错。能不能写一段代码发给我。shujuku.mdb 地下两个Access表格user，和user1.把表单中的前三个值插入到user1里面，后一个值更新到user里面的一个值里面。

追答