专家坐堂-UPDATE 用户表为什么不能更新呢？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  UPDATE 用户表为什么不能更新呢？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=162220)

--  作者：cnsjroom
--  发布时间：2021/4/9 9:54:00
--  UPDATE 用户表为什么不能更新呢？

为什么修改后数据无法在后台更新呢？麻烦老师看看红色部分代码是否有误！谢谢

Dim e As RequestEventArgs = args(0)
Dim wb As New weui

Dim vals As String
Dim cmd111 As New SQ LCommand
cmd111.Connectio nName = "智慧党建" \'记得设置数据源名称
cmd111.Comman dText = "Se lect * From {用户表} "
Dim dt As DataTable = cmd111.ExecuteReader
Dim dr As DataRow=dt.Find("单位名称=\'" & e.Cookies("单位名称") & "\'and 姓名=\'" & e.Cookies("姓名") & "\'")
If Functions.Execute("yanzheng",e) = 1 \'获取验证不能使用异步函数,必须等待并获取验证结果
If e.PostValues.Count = 0 Then
wb.AddPageTitle("","ph1","账户信息修改"," 【宣传综合系统】")
wb.AddForm("","form1","userxiugai.htm")
wb.AddTopTips("","toptip1","请输入单位名称和部门名称!")
With wb.AddInputGroup("form1","ipg1","内容信息")
If dr IsNot Nothing Then
.AddInput("单位名称","单位名称*","text").Placeholder =dr("单位名称")
.AddInput("所在部门","所在部门*","text").Placeholder =dr("所在部门")
.AddInput("职务","职务*","text").Placeholder =dr("职务")
.AddInput("姓名","姓名*","text").Placeholder =dr("姓名")
.AddInput("电话","电话*","text").Placeholder =dr("电话")
.AddInput("邮件","邮件*","text").Placeholder =dr("邮件")
.AddInput("密码","密码*","text").Placeholder =dr("密码")
End If
End With
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "确定更新", "submit")
.Add("btn2", "取消更新", "submit").FormAction = "default.htm"
End With
e.WriteString(wb.Build) \'生成网页
Else

Dim cmd1 As New SQLCommand
cmd1.ConnectionN ame = "智慧党建"
\'cmd1.CommandText = "Insert Into 用户表(单位名称,所在部门,职务,姓名,电话,邮件,密码) Values(?,?,?,?,?,?,?)"

cmd1.CommandText = "UPD ATE 用户表 SET (所在部门,职务,电话,邮件,密码) Values(?,?,?,?,?) WHERE 单位名称=\'" & e.Cookies("单位名称") & "\'and 姓名=\'" & e.Cookies("姓名") & "\'"
cmd1.Parameters.Add("@所在部门", e.PostValues("所在部门"))
cmd1.Parameters.Add("@职务", e.PostValues("职务"))
cmd1.Parameters.Add("@电话", e.PostValues("电话"))
cmd1.Parameters.Add("@邮件", e.PostValues("邮件"))
cmd1.Parameters.Add("@密码", e.PostValues("密码"))
cmd1.ExecuteNonQuery
DataTables("用户表").LoadFilter = ""
DataTables("用户表").Load()
With wb.AddMsgPage("","msgpage","更新用户信息成功", "感谢支持,请点【登录系统】按钮登录使用,默认密码666666") \'生成成功提示页
\'.AddButton("btn1","继续添加","qnxctj.htm")
.AddButton("btn11","登录系统","default.htm")
End With

e.WriteString(wb.Build)
End If
End If

--  作者：有点蓝
--  发布时间：2021/4/9 10:05:00
--
update 用户表 SET 所在部门=?,职务=?,...... where 单位名称=? and 姓名=?
……
cmd1.Parameters.Add("@密码", e.PostValues("密码"))
cmd1.Parameters.Add("@单位名称", e.Cookies("单位名称"))
cmd1.Parameters.Add("@姓名", e.Cookies("姓名"))