Inserting into SQLite db with Vb.net? Won't insert. What am I missing?

See more:

VB

SQLite

Hello All,

I am trying to insert a tv episode into a database. I have tried everything but it will only add one item, the last episode. It is iterating correctly but it never adds more than just one item. What am I missing? I know it is something stupid but I have been staring at this for over an hour trying to fix it but no success. Database is already created, file exists and opens. Iterates correctly.... WHAT AM I MISSING??? Rrrrg.

Any ideas?

And if you have a second, I would love to do it with a transaction (that's where I started) but that, of course, didn't work either.

Thanks,

Josh

Dim strFile As String = DBFile
Dim SQLconnect As New SQLiteConnection()

SQLconnect.ConnectionString = "Data Source=" & strFile
SQLconnect.Open()

For i As Integer = 0 To _TvSeries.Episodes.Length - 1

    'SeriesId, EpisodeName, SeasonNumber, EpisodeNumber, Overview, Director, Rating, PosterUrl, Writers
    Try
        Dim cmd As New SQLiteCommand("Insert or Replace Into " & _TvSeries.SeriesName.Replace(" ", "_") & " (SeriesId,EpisodeName,SeasonNumber,EpisodeNumber,Overview,Director,Rating,PosterUrl,Writers) VALUES (@SeriesId, @EpisodeName, @SeasonNumber, @EpisodeNumber, @Overview, @Director, @Rating, @PosterUrl, @Writers);", SQLconnect)
        '@SeriesId, EpisodeName, SeasonNumber, EpisodeNumber, Overview, Director, Rating, PosterUrl, Writers
        cmd.Parameters.Add("@SeriesId", Data.DbType.String).Value = _TvSeries.SeriesId
        cmd.Parameters.Add("@EpisodeName", Data.DbType.String).Value = _TvSeries.Episodes(i).EpisodeName
        cmd.Parameters.Add("@SeasonNumber", Data.DbType.String).Value = _TvSeries.Episodes(i).SeasonNumber
        cmd.Parameters.Add("@EpisodeNumber", Data.DbType.String).Value = _TvSeries.Episodes(i).EpisodeNumber
        cmd.Parameters.Add("@Overview", Data.DbType.String).Value = _TvSeries.Episodes(i).Overview
        cmd.Parameters.Add("@Director", Data.DbType.String).Value = _TvSeries.Episodes(i).Director
        cmd.Parameters.Add("@Rating", Data.DbType.String).Value = _TvSeries.Episodes(i).Rating
        cmd.Parameters.Add("@PosterUrl", Data.DbType.String).Value = _TvSeries.Episodes(i).PosterUrl

        Dim writers As String = ""
        For Each strwriters In _TvSeries.Episodes(i).Writers
            writers += strwriters + "|"
        Next
        cmd.Parameters.Add("@Writers", Data.DbType.String).Value = writers
        Dim inte As Integer = 0

        cmd.ExecuteNonQuery()


    Catch ex As Exception
        Debug.WriteLine(ex.Message.ToString)
    End Try
Next

Try

    Try
        SQLconnect.Close()
        If Not SQLconnect Is Nothing Then SQLconnect.Dispose()
    Catch ex As Exception

    End Try
Catch ex As Exception
    SQLconnect.Close()
End Try