以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  Update语句问题,请帮看看,谢谢!  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=38048)

--  作者:delxkjhgq
--  发布时间:2013/7/18 14:31:00
--  Update语句问题,请帮看看,谢谢!

dim dd as string= "[商品编号] = \'" & spbh & "\'"

cmd.CommandText = "Update {Users} Set dd Where [序号]= \'" & UserName & "\'"
 
那个常量是一串字符串(第一句是打个比方),下面那条那DD的格式是怎么写的,找不到答案,谢谢!


--  作者:狐狸爸爸
--  发布时间:2013/7/18 14:35:00
--  

dim dd as string= "[商品编号] = \'" & spbh & "\'"

cmd.CommandText = "Update {Users} Set “ & dd  & “ Where [序号]= \'" & UserName & "\'"

[此贴子已经被作者于2013-7-18 14:36:01编辑过]

--  作者:delxkjhgq
--  发布时间:2013/7/18 14:39:00
--  

cmd.CommandText = "Update {Users} Set " & dd & "Where [序号]= " & i

 

忘了后面也有个变量,提示  至少有一个参数没有指定值。谢谢!


--  作者:Bin
--  发布时间:2013/7/18 14:40:00
--  
可能因为你USERNAME为空.
--  作者:delxkjhgq
--  发布时间:2013/7/18 14:46:00
--  
我用MSG  提示   DD= [商品编号]= ‘55555555’      I=3    真找不到哪里有问题了。图片点击可在新窗口打开查看
--  作者:Bin
--  发布时间:2013/7/18 14:51:00
--  
以下是引用delxkjhgq在2013-7-18 14:46:00的发言:
我用MSG  提示   DD= [商品编号]= ‘55555555’      I=3    真找不到哪里有问题了。图片点击可在新窗口打开查看

什么意思,摸不着头脑,你弹出一下你拼接的整段SQL语句看看.
--  作者:delxkjhgq
--  发布时间:2013/7/18 14:55:00
--  
Dim dr As List(of Row) = Tables("收货界面_Table1").GetCheckedRows()
If dr.Count = 0 Then
    MessageBox.Show("请先选择!","提示")
    Return
End If
If MessageBox.Show("确认修改" & dr.count & "条记录", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
    For Each r As Row In Tables("收货界面_Table1").GetCheckedRows
        Dim i As Long = r("序号")
        
        Dim spbh As String = e.Form.Controls("TextBox1").Value
        Dim pc As String = e.Form.Controls("TextBox2").Value
        Dim xl As Integer = e.Form.Controls("TextBox3").Value
        
        Dim dd As String
        If spbh <> "" Then
            dd= "[商品编号] = \'" & spbh & "\'"
        ElseIf pc <> "" Then
            dd= dd & " , [批次] = \'" & pc & "\'"
        ElseIf xl <> "" Then
            dd= dd & " , [数量] = \'" & xl & "\'"
        End If
        MessageBox.Show(i)
       MessageBox.Show(dd)
        Dim cmd As New SQLCommand
        cmd.C
        cmd.CommandText = "Update {Users} Set " & dd & "Where [序号]= " & i
        cmd.ExecuteNonQuery()
    Next
End If

--  作者:delxkjhgq
--  发布时间:2013/7/18 14:59:00
--  

倒数第5条记录有问题,没复制全。请帮看看,谢谢


--  作者:Bin
--  发布时间:2013/7/18 15:01:00
--  
你弹出一下你拼接的整段SQL语句看看. 即可知道问题所在.  要不你就上个例子吧.
--  作者:delxkjhgq
--  发布时间:2013/7/18 15:08:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:未命名.bmp
图片点击可在新窗口打开查看