Hallo zusammen,
ich habe Probleme mit meinem Code. Er macht genau das was er machen soll, aber trotzdem kommt es zu einer Ausnahme. Diese behauptet der Index wäre out of Range.
Ich möchte hier eine CSV Datei lesen die aus 2 Wörtern getrennt durch Semikolon besteht. Diese will ich dann in meine Sqlite Datenbank schreiben. Wie gesagt der Code macht was er soll nur der Fehler ist da.
ich habe Probleme mit meinem Code. Er macht genau das was er machen soll, aber trotzdem kommt es zu einer Ausnahme. Diese behauptet der Index wäre out of Range.
Ich möchte hier eine CSV Datei lesen die aus 2 Wörtern getrennt durch Semikolon besteht. Diese will ich dann in meine Sqlite Datenbank schreiben. Wie gesagt der Code macht was er soll nur der Fehler ist da.
VB.NET-Quellcode
- Dim sr As StreamReader = New StreamReader(strFile)
- Dim sqlcon As New SQLiteConnection()
- Dim sqlcom As SQLiteCommand
- Dim line As String
- Try
- sqlcon.ConnectionString = "DATA SOURCE=geburtstage.db3;"
- sqlcon.Open()
- sqlcom = sqlcon.CreateCommand
- If cbLöschen.Checked = True Then
- sqlcom = sqlcon.CreateCommand
- sqlcom.CommandText = "DELETE FROM Personen"
- sqlcom.ExecuteNonQuery()
- sqlcom.Dispose()
- End If
- Do
- sqlcom = sqlcon.CreateCommand
- line = sr.ReadLine()
- Dim spline() As String = Split(line, ";")
- sqlcom.CommandText = "INSERT INTO Personen (Name, Geburtstag) VALUES ('" & spline(0) & "','" & spline(1) & "')"
- sqlcom.ExecuteNonQuery()
- sqlcom.Dispose()
- Loop Until line Is Nothing
- sr.Close()
- sqlcon.Close()
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try