AddParamsFromList_GetParamsFromString

AddParamsFromList_GetParamsFromString.vb

    Public Function AddParamsFromList_GetParamsString(ByVal valuesList As List(Of String), ByVal columnName As String, ByRef sqlCommand As SqlCommand) As String

        If Not valuesList.Count > 0 Then
            Throw New Exception(String.Format("Invalid Argument: List is empty"))
        End If

        Dim _returnParamString As String = ""
        For i As Integer = 0 To valuesList.Count - 1
            Dim _paramName As String = String.Format("@{0}{1}", columnName, i)
            sqlCommand.Parameters.AddWithValue(_paramName, valuesList(i))
            _returnParamString += _paramName + ","
        Next
        Return _returnParamString.Trim(",")

    End Function