必须在 vb.net 的 If Exist SQL 记录中声明标量变量

Question

我需要有关以下代码的帮助。 每当我运行代码时，我都会收到此错误：

必须声明标量变量“@1”
必须声明标量变量“@2”

有什么不见了？

con = New SqlConnection(cs)
con.Open()          

Dim cb1 As String = "if exists (select Fedo from Mimos where Fedo=@1)" + "BEGIN " + "Update Mimos Set ActivationID=@2,Date=@3 where Fedo=@1)" + "END" + "Else" + "insert into Mimos (Fedo,ActivationID,Date) VALUES (@d1,@d2,@d3)"            

cmd = New SqlCommand(cb1)
cmd.Connection = con

cmd.Parameters.AddWithValue("@d1", Encrypt(TextBox1.Text.Trim))
cmd.Parameters.AddWithValue("@d2", Encrypt(TextBox2.Text.Trim()))
cmd.Parameters.AddWithValue("@d3", System.DateTime.Now)

cmd.ExecuteReader()

con.Close()

Answer 1

输入@d1、@d2 和@d3

 con = New SqlConnection(cs)
    con.Open()          

    Dim cb1 As String = "if exists (select Fedo from Mimos where Fedo=@d1)" + "BEGIN " + "Update Mimos Set ActivationID=@d2,Date=@d3 where Fedo=@d1)" + "END" + "Else" + "insert into Mimos (Fedo,ActivationID,Date) VALUES (@d1,@d2,@d3)"            

    cmd = New SqlCommand(cb1)
    cmd.Connection = con

    cmd.Parameters.AddWithValue("@d1", Encrypt(TextBox1.Text.Trim))
    cmd.Parameters.AddWithValue("@d2", Encrypt(TextBox2.Text.Trim()))
    cmd.Parameters.AddWithValue("@d3", System.DateTime.Now)

    cmd.ExecuteReader()

    con.Close()