如何使用 SqlDataSource 进行参数化查询 (VB)

Question

这是我在 VB.NET 中运行参数化查询的代码示例：

    Dim sqlconn As New SqlConnection(connectionString)
    sqlconn.Open()

    Dim cmd As New SqlCommand
    cmd.CommandText = "Select * from TAble1 Where SkuCode in (@SKU)"
    cmd.Connection = sqlconn

    Dim parm As New SqlParameter     
    parm.Value ="1" 'This is working
    parm.ParameterName = "@SKU"
    cmd.Parameters.Add(parm)

    Dim ds As New DataSet
    Dim sqlDa As New SqlDataAdapter(cmd)
    sqlDa.Fill(ds)

    Dim dt As DataTable
    dt = ds.Tables(0)

    If dt.Rows.Count > 0 Then
        MsgBox("Done")
    Else
        MsgBox("Not done.")
    End If

如果我在 VB.NET 中运行此示例，则会成功返回结果。

但是在尝试获得多个记录的结果时出现问题......这是行不通的。

请检查并建议我们必须做的更改才能在带参数的查询中运行。

'parm.Value = "N'1', N'2'"   'this does not work.
'parm.Value = "'1','2'"   'this does not work.

我已经尝试了这些参数值，但它不起作用。

Answer 1

SQL 参数是标量并且只接受单个值。 您可以使用 sqldbtype.Structured，尽管它有点复杂。

我发现如果您需要为IN传递一组参数，其中参数的数量是动态的，最有效的方法（不幸的是）是：

1. 没有参数的字符串插值/连接
2. 循环构建参数并将它们添加到您的 sqlcommand
3. LINQ 构建参数并将它们添加到您的 sqlcommand

我在下面提供了 linq 选项的示例。

        Dim sqlParams As Dictionary(Of String, Integer) = integers.ToDictionary(Function(i) $"@ParamValue{i}", Function(i) i)
        Dim ds As New DataSet
        Dim dt As DataTable


        Using db as new SqlConnection(conn)
            conn.open()
            Using cmd As New SqlCommand($"SELECT * FROM Table1 WHERE SkuCode IN (-1, {String.Join(", ", sqlParams.Select(Function(f) f.Key))}", db)
                cmd.Parameters.AddRange(sqlParams.Select(Function(f) New SqlParameter(f.Key, SqlDbType.BigInt).Value = f.Value).ToArray())

                Dim sqlDa As New SqlDataAdapter(cmd)
                sqlDa.Fill(ds)
                dt = ds.Tables(0)
            End Using
        End Using

        MsgBox(If(dt.Rows.Count > 0, "Done", "Not done"))