Foxtable(狐表)用户栏目专家坐堂 → 老大,帮我看个SQL语句的问题


  共有8822人关注过本帖树形打印复制链接

主题:老大,帮我看个SQL语句的问题

帅哥哟,离线,有人找我吗?
布莱克朱
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:623 积分:3897 威望:0 精华:0 注册:2011/8/3 22:13:00
老大,帮我看个SQL语句的问题  发帖心情 Post By:2012/3/29 22:38:00 [只看该作者]

Dim Val As String
If InputValue(Val, "保存设置", "请输入要保存设置的名字:") Then
    Dim tr As WinForm.TreeView
    Dim nd As WinForm.TreeNode
    tr = e.Form.Controls("TreeView1")
    nd = Tr.Nodes.Add(Val,Val)
    Dim dt As DataTable = DataTables(e.Form.Name & "_Table1")
    Dim Str As String
    For Each dr As DataRow In dt.DataRows
        Str = Str & "|" & dr("公式")
    Next
    Dim cmd As New SQLCommand
    cmd.C
    cmd.CommandText = "Update {保存设置] Set [保存设置] = '" & nd.Name & "',[保存字符串] ='" & Str & "'"
    cmd.ExecuteNonQuery
End If

 

     保存字符串提示说,缺少:

    


图片点击可在新窗口打开查看此主题相关图片如下:pqjflodem()wj(wrbtep3m.jpg
图片点击可在新窗口打开查看

 

  是什么原因?


 回到顶部
帅哥哟,离线,有人找我吗?
czy
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33945 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2012/3/29 23:42:00 [只看该作者]

这样试试

Str = Str & " " & dr("公式")


 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40556 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2012/3/29 23:43:00 [只看该作者]

先把dr("公式") 的值放一个上来大家看看:

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57584 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2012/3/30 7:39:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:pqjflodem()wj(wrbtep3m.jpg
图片点击可在新窗口打开查看

 

   值就是这样的呀,不允许写入这种的吗?


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57584 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2012/3/30 7:42:00 [只看该作者]

Dim r As Row = Tables("表C").AddNew
    r("第一列") =  Str
      这样却是可以的.

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57584 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2012/3/30 7:47:00 [只看该作者]

以下是引用czy在2012-3-29 23:42:00的发言:

这样试试

Str = Str & " " & dr("公式")

 

   老大,我用  ,   空格都试过,不行!


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/3/30 8:23:00 [只看该作者]

MessageBox.show("Update {保存设置] Set [保存设置] = '" & nd.Name & "',[保存字符串] ='" & Str & "'")

 

至少这个:{保存设置]

应该改为:{保存设置}


 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40556 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2012/3/30 8:44:00 [只看该作者]

Dim Val As String
If InputValue(Val, "保存设置", "请输入要保存设置的名字:") Then
Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = e.Form.Controls("TreeView1")
nd = Tr.Nodes.Add(Val,Val)
Dim dt As DataTable = DataTables(e.Form.Name & "_Table1")
Dim Str As String
For Each dr As DataRow In dt.DataRows
Str = Str & "|" & dr("公式")
Next

Str = ("*" & str).Replace("|And"," And ").Replace("*|","")
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Update {保存设置} Set [保存设置] = '" & nd.Name & "',[保存字符串] ='" & Str & "'"
cmd.ExecuteNonQuery
End If


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57584 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2012/3/30 9:18:00 [只看该作者]

一早,lxl老大帮我搞定了,意思跟程老大的差不多.


 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40556 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2012/3/30 11:22:00 [只看该作者]

呵呵,昨晚在群里面都写好了,没发出去,正好看到您在论坛发帖子了,后来考虑到您的控件里面的值需要看看,否则可能无法一次性解决到位!


 回到顶部
总数 11 1 2 下一页