Imports System

Imports System.Data

Imports System.Data.SqlClient

Imports System.Collections.Generic

Imports System.Text

​

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

​

      Dim lstParams As New List(Of SqlParameter)

        Dim lstSpeciesID As New List(Of Int32) (New Int32() {12, 12354})

      Dim sbSQL As New StringBuilder

​

      lstParams.Add(New SqlParameter() With {.ParameterName = "@StandID", .Value = 999, .SqlDbType = SqlDbType.Int})

      lstParams.Add(New SqlParameter() With {.ParameterName = "@StemType", .Value = 22, .SqlDbType = SqlDbType.Int})

​

      For Each iTreeSpeciesID As Int32 In lstSpeciesID

​

        lstParams.Add(New SqlParameter() With {.ParameterName = "@TreeSpecies", .Value = iTreeSpeciesID, .SqlDbType = SqlDbType.Int})

​

        sbSQL.AppendLine("IF (SELECT COUNT(ID) FROM TapahtumaRunkoTyyppiTilavuus WHERE KuvioID = @StandID AND StemType = @StemType AND PuulajiID = @TreeSpecies) = 0 ")

        sbSQL.AppendLine("BEGIN")

        sbSQL.AppendLine("INSERT INTO TapahtumaRunkoTyyppiTilavuus (PuulajiID, KuvioID, StemType) VALUES (@TreeSpecies, @StandID, @StemType)")

        sbSQL.AppendLine("END")

​

        '''Console.WriteLine("Params: {0}, Row: {1}", String.Join(Of SqlParameter)(" ", lstParams.ToArray()), sbSQL.ToString())

        For Each sqlParameter As SqlParameter In lstParams

          Console.WriteLine("Param: {0} = {1}", sqlParameter.ParameterName, sqlParameter.Value)

        Next

​

        lstParams.RemoveAll(Function(x) x.ParameterName = "@TreeSpecies")

        sbSQL.Clear()

      Next

    End Sub

End Module