共6 条记录, 每页显示 10 条, 页签: [1]

标题：狐表SQGL内置功能查询大部分是字符拼接，如何带参数？

1楼

lin98 发表于：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楼

有点蓝 发表于：2025/4/3 17:13:00

http://www.foxtable.com/webhelp/topics/3266.htm

3楼

lin98 发表于：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)

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楼

有点蓝 发表于：2025/4/17 14:05:00

cmd2.CommandText = "UPDATGE [编号] SET [顺序号]= ? WHERE [顺序号] = ? And [前缀] = ?"

cmd2.Parameters.clear
cmd2.Parameters.Add("@顺序号", (Key + 1))

5楼

lin98 发表于：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楼

有点蓝 发表于：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)

共6 条记录, 每页显示 10 条, 页签: [1]