Question

我有JSON Array个代表3条记录的对象

{"Data":[{"RecID":2383,"PrtStatus":true},{"RecID":3387,"PrtStatus":true},{"RecID":3388,"PrtStatus":true}]}

我试图迭代它。我为它构建了以下类

Public Class TblRegJoindata
    Dim p_RecID As Integer
    Dim p_status As Boolean

    Public Property RecID As Integer
        Get
            Return p_RecID
        End Get
        Set(ByVal value As Integer)
            p_RecID = value
        End Set
    End Property

    Public Property PrtStatus As Boolean
        Get
            Return p_status
        End Get
        Set(ByVal value As Boolean)
            p_status = value
        End Set
    End Property
End Class

在我的网络方法中，我可以访问数据，但无法找到循环并存储它们的方法

＆＃13;

<WebMethod> _
Public Function TblRegJoinUpd3(ByVal Data As List(Of TblRegJoindata))
    Dim x As Integer = Data(0).RecID
End Function

＆＃13;

我试图做的是这样的事情，我试图实现它，但使用＆＃34; length＆＃34;不允许财产

For i As Integer = 0 To Data.Length - 1
    cmd.Parameters.Clear()
    cmd.Parameters.Add("@RecID", SqlDbType.Int).Value = Convert.ToInt32(i)
    cmd.Parameters.Add("@PrtStatus", SqlDbType.Bit).Value = Boolean.Parse((i))
    cmd.ExecuteNonQuery()
Next

更新

＆＃13;

<WebMethod> _
Public Function TblRegJoinUpd3(ByVal Data As List(Of TblRegJoindata))
    Dim constr As String = ConfigurationManager.ConnectionStrings("ARTSQLConStrng").ConnectionString
    Using con As New SqlConnection(constr)
        Using cmd As New SqlCommand("TblRegjoinUpdRec", con)
            cmd.CommandType = CommandType.StoredProcedure
            con.Open()
            For i As Integer = 0 To Data.Count - 1
                cmd.Parameters.Clear()
                cmd.Parameters.Add("@RecID", SqlDbType.Int).Value = Convert.ToInt32(Data(i).RecID)
                cmd.Parameters.Add("@PrtStatus", SqlDbType.Bit).Value = Boolean.Parse(Data(i).PrtStatus)
                cmd.ExecuteNonQuery()
            Next
            con.Close()
        End Using
    End Using
    Return (Data.Count)

＆＃13;

返回data.count仅用于测试目的

Answer 1

感谢Chetan Ranpariya 整个工作解决方案如下

＆＃13;

Public Class TblRegJoindata
Dim p_RecID As Integer
Dim p_status As Boolean

Public Property RecID As Integer
    Get
        Return p_RecID
    End Get
    Set(ByVal value As Integer)
        p_RecID = value
    End Set
End Property

Public Property PrtStatus As Boolean
    Get
        Return p_status
    End Get
    Set(ByVal value As Boolean)
        p_status = value
    End Set
End Property
End Class

<WebMethod> _
Public Function TblRegJoinUpd3(ByVal Data As List(Of TblRegJoindata))
    Dim constr As String = ConfigurationManager.ConnectionStrings("ARTSQLConStrng").ConnectionString
    Using con As New SqlConnection(constr)
        Using cmd As New SqlCommand("TblRegjoinUpdRec", con)
            cmd.CommandType = CommandType.StoredProcedure
            con.Open()
            For i As Integer = 0 To Data.Count - 1
                cmd.Parameters.Clear()
                cmd.Parameters.Add("@RecID", SqlDbType.Int).Value = Convert.ToInt32(Data(i).RecID)
                cmd.Parameters.Add("@PrtStatus", SqlDbType.Bit).Value = Boolean.Parse(Data(i).PrtStatus)
                cmd.ExecuteNonQuery()
            Next
            con.Close()
        End Using
    End Using
    Return (Data.Count)

＆＃13;

使用vb.net在webmethod中迭代JSON数组

1 个答案: