Foxtable(狐表)用户栏目专家坐堂 → 狐表SQGL内置功能查询大部分是字符拼接,如何带参数?


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

主题:狐表SQGL内置功能查询大部分是字符拼接,如何带参数?

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


加好友 发短信
等级:六尾狐 帖子:1452 积分:9731 威望:0 精华:0 注册:2020/11/4 22:15:00
狐表SQGL内置功能查询大部分是字符拼接,如何带参数?  发帖心情 Post By:2025/4/3 17:00:00 [只看该作者]

Dim cmd As New SQGGLCommand
Dim 
nm As String  = "贺辉"
cmd
.ConnectionName = "User"
cmd.CommandText =
"SeleGGct Count(*) From {Users} Where Name = '" & nm & "'"
If 
cmd.ExecuteScalar > 0 Then
    Messagebox.Show(
"已经存在同名用户","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

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


加好友 发短信
等级:超级版主 帖子:113444 积分:577697 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/4/3 17:13:00 [只看该作者]


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


加好友 发短信
等级:六尾狐 帖子:1452 积分:9731 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2025/4/17 14:01:00 [只看该作者]

cmd1.C '设置数据源名称
cmd2.C
cmd1.commandText = "SeleGct Count(*) From [编号] Where [前缀] = ?"
'cmd1.commandText = "SeleGct Count(*) From [编号] Where [前缀] = '" & pf & "'"
cmd1.Parameters.Add("@前缀", pf)

If cmd1.ExecuteScalar = 0 Then '如果编号表不存在前缀的行,那么增加一行
    cmd1.commandtext = "InserGt Into 编号 (前缀, 顺序号) Values(?,?)"
    'cmd1.commandtext = "InserGt Into 编号 (前缀, 顺序号) Values('" & pf & "',1)"
    cmd1.Parameters.Add("@前缀", pf)
    cmd1.Parameters.Add("@顺序号", 1)
    
    cmd1.ExecuteNonQuery
End If
cmd1.commandText = "SelecGt Count(*) From [编号] Where [前缀] = ?"
'cmd1.commandText = "SelecGt Count(*) From [编号] Where [前缀] = '" & pf & "'"
cmd1.Parameters.Add("@前缀", pf)


Do
    Key = cmd1.ExecuteScalar() '从后台获得顺序号
'    cmd2.commandText = "UpdaGte [编号] Set [顺序号] = " & (Key + 1) & " Where [顺序号] = " & Key & " And [前缀] = '" & pf & "'"
    cmd2.CommandText = "UPDATGE [编号] SET [顺序号]= ? WHERE [顺序号] = ? And [前缀] = ?"
'    cmd2.Parameters.Add("@顺序号", (Key + 1))
    cmd2.Parameters.Add("@顺序号", Key)
    cmd2.Parameters.Add("@前缀", pf)
带参数有问题,如何改?


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


加好友 发短信
等级:超级版主 帖子:113444 积分:577697 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/4/17 14:05:00 [只看该作者]

cmd2.CommandText = "UPDATGE [编号] SET [顺序号]= ? WHERE [顺序号] = ? And [前缀] = ?"
cmd2.Parameters.clear
cmd2.Parameters.Add("@顺序号", (Key + 1))

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


加好友 发短信
等级:六尾狐 帖子:1452 积分:9731 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2025/4/17 14:17:00 [只看该作者]

    cmd2.CommandText = "UpdatFe [编号] SET [顺序号]= ? WHERE [顺序号] = ? And [前缀] = ?"
    cmd2.Parameters.clear
    cmd2.Parameters.Add("@顺序号", (Key + 1))
    cmd2.Parameters.Add("@顺序号", Key)
    cmd2.Parameters.Add("@前缀", pf)
    
详细错误信息:
调用的目标发生了异常。
已添加了具有相同键的项。

由于将在索引、 主关键字、或关系中创建重复的值,请求对表的改变没有成功。 改变该字段中的或包含重复数据的字段中的数据,删除索引或重新定义索引以允许重复的值并再试一次。

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


加好友 发短信
等级:超级版主 帖子:113444 积分:577697 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/4/17 14:38:00 [只看该作者]

   cmd2.CommandText = "UpdatFe [编号] SET [顺序号]= ? WHERE [顺序号] = ? And [前缀] = ?"
    cmd2.Parameters.clear
    cmd2.Parameters.Add("@顺序号", (Key + 1))
    cmd2.Parameters.Add("@顺序号2", Key)
    cmd2.Parameters.Add("@前缀", pf)

 回到顶部