Wstawianie danych z listy do tabeli - .net, sql-server, vb.net

Próbuję przeglądać listę i wstawiać do bazy danych.

Dim fields() As String
Using cnn As SqlConnection = New SqlConnection(conn)
cnn.Open()
Using insertTrans As SqlTransaction = cnn.BeginTransaction
Using cmd As SqlCommand = cnn.CreateCommand()
"create command
cmd.CommandText = "INSERT INTO [matrixtest].[dbo].[SM_Fatca_GinList] " _
& "(gincode, ginname, country) VALUES (@gin, @name, @country)"
Dim gin As SqlParameter = New SqlParameter("@gin", SqlDbType.VarChar)
Dim companyName As SqlParameter = New SqlParameter("@name", SqlDbType.VarChar)
Dim country As SqlParameter = New SqlParameter("@country", SqlDbType.VarChar)
cmd.Parameters.Add(gin)
cmd.Parameters.Add(companyName)
cmd.Parameters.Add(country)
"skip 1st row
Dim firstRow As Boolean = True
For Each item As String In lines
If Not firstRow Then
fields = item.Split("__||__")
If Not String.IsNullOrEmpty(fields(0)) Then
If Not fields(0).Length = 0 Then
"set parameters
gin.Value = fields(0)
companyName.Value = fields(1)
country.Value = fields(2)
cmd.Transaction = insertTrans
cmd.ExecuteNonQuery()
End If
End If
End If
firstRow = False
Next
End Using
End Using
End Using

Ale mój kod nadal działa bez końca i sprawdzanie w SSMS tabel nie jest wypełniane żadnymi danymi. Co robię źle?

EDYCJA: Obiekt polecenia:

Odpowiedzi:

Nie akceptujesz transakcji, więc musisz dodać:

insertTrans.Commit()

Najlepiej zrobić to w Try..Catch, aby zadzwonić insertTrans.Rollback(), ewentualnie.