database - 连接.执行

Question

`Dim con1 As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim sql1 As String
sql1 = "Update Balance set Balance_Amt = (Balance_Amt + " & a & ") where Company = " & Combo3.Text
con1.Execute (sql1)

“谁能说出为什么这段代码不起作用？它说一个或多个必需参数没有值”

Answer 1

我猜直接的问题是 SQL 片段

where Company = value

是无效的 SQL。应该引用：

where Company = 'value'

但是你真的应该使用 SQL 参数。

1. 我会避免这个问题，因为参数会在必要时自动引用。
2. 它会使代码更容易阅读。
3. 它不会受到 SQL 注入攻击。

例如

Using cmd = new SqlCommand("UPDATE Balance SET Balance_Amt = (Balance_Amt + @a) WHERE Company=@company", con1)
    cmd.Parameters.AddWithValue("@a", a)
    cmd.Parameters.AddWithValue("@company", company)
    cmd.ExecuteNonQuery()
End Using

Answer 2

打印出sql语句，看看是否ok，复制/粘贴到sql管理工作室。我认为您在字符串 Combo3.Text 周围缺少撇号。

还要考虑如果 Combo3.Text 包含它会导致什么 sql

'a'; delete from Balance