我如何在程序中输入多个值？ vb.net [重复]

Question

我在 vb.net 中有这样的 @values 代码：

Dim con As New SqlConnection
                            Dim cmd As New SqlCommand

                            con = FunctionConnection()
                            cmd.Connection = con

                            cmd.CommandText = "GetVerification"
                            cmd.CommandType = CommandType.StoredProcedure
                            cmd.Parameters.AddWithValue("@Value", "1,2,3,4")

                            Dim Header_DataReader As SqlDataReader = Nothing

                            con.Open()
                            Header_DataReader = cmd.ExecuteReader

我的程序是这样的：

ALTER PROCEDURE GetVerification (@Value varchar(255))
as
BEGIN

SELECT        id, ControlPlanID, ParagraphID, ParagraphOrder, Specification, SpecificationParagraph, Dimension, Description, Samples, Frequency, ActivityResource, 
                         ActivityName, Observation, RequrementNom, RequrementPlus, RequrementMinus, Units
FROM            CP_Sequence
WHERE        (ParagraphOrder IN (@Value))
End

如何在我的程序中输入多个值，我想为数据库的 4 个不同行输入 @values 1,2,3,4

如果我输入这样的 Sql 代码，但不适用于我的程序：

SELECT        id, ControlPlanID, ParagraphID, ParagraphOrder, Specification, SpecificationParagraph, Dimension, Description, Samples, Frequency, ActivityResource, 
                         ActivityName, Observation, RequrementNom, RequrementPlus, RequrementMinus, Units
FROM            CP_Sequence
WHERE        (ParagraphOrder IN (1, 2, 3, 4))

非常感谢

Answer 1

ALTER PROCEDURE dbo.GetVerification (@Value VARCHAR(255))
AS
BEGIN

    SET NOCOUNT ON

    DECLARE @a TABLE (ID INT PRIMARY KEY WITH (IGNORE_DUP_KEY=ON))
    INSERT INTO @a
    SELECT t.c.value('.', 'INT')
    FROM (SELECT x = CAST('<t>' + REPLACE(@Value, ',', '</t><t>') + '</t>' AS XML)) r
    CROSS APPLY r.x.nodes('/t') t(c)

    SELECT *
    FROM dbo.CP_Sequence
    WHERE ParagraphOrder IN (SELECT * FROM @a)
    OPTION(RECOMPILE)

END