Hallo,
ich habe eine SQLite-DB mit dem sqliteadmin erstellt und wollte über VB.net Daten einspielen.
Zuerst hatte ich immer den Fehler "SQL Logic error - no such table: Testdaten.s3db". Irgendwann habe ich herausgefunden, dass dieses Problem an der Pfadangabe absolut/relativ liegt.
Nun habe ich den Pfad zur Datenbank angegeben und erhalte beim INSERT-Befehl die Meldung "SQLite error (1): unrecognized token: ":" in "SELECT * FROM E:\VB.NET\2206_DB-Test\bin\x86\Testdaten.s3db WHERE ID = '' OR Vorname = '' OR Zeitstempel = '';".
Wie muss ich vorgehen, damit er sich nicht an der Pfadangabe stört?
ich habe eine SQLite-DB mit dem sqliteadmin erstellt und wollte über VB.net Daten einspielen.
Zuerst hatte ich immer den Fehler "SQL Logic error - no such table: Testdaten.s3db". Irgendwann habe ich herausgefunden, dass dieses Problem an der Pfadangabe absolut/relativ liegt.
Nun habe ich den Pfad zur Datenbank angegeben und erhalte beim INSERT-Befehl die Meldung "SQLite error (1): unrecognized token: ":" in "SELECT * FROM E:\VB.NET\2206_DB-Test\bin\x86\Testdaten.s3db WHERE ID = '' OR Vorname = '' OR Zeitstempel = '';".
Wie muss ich vorgehen, damit er sich nicht an der Pfadangabe stört?
VB.NET-Quellcode
-
- Public DB_Name As String = Application.StartupPath & "\Testdaten.s3db"
- Public Sub connect_db()
- sqlite_conn = New SQLiteConnection("Data Source='" & DB_Name & "';Version=3;New=True;Compress=True;")
- sqlite_conn.Open()
- sqlite_cmd = sqlite_conn.CreateCommand()
- End Sub
- Public Sub Suche_in_DB(ByVal Suchstring As String, dgv As DataGridView)
- Dim DB_in_DGV As New DataTable
- sqlite_conn = New SQLiteConnection("Data Source=" & DB_Name & ";Version=3;New=True;Compress=True;")
- sqlite_cmd = sqlite_conn.CreateCommand
- sqlite_cmd.CommandText = "SELECT * FROM " & DB_Name & " WHERE ID = '" & Suchstring & "' OR Vorname = '" & Suchstring & "' OR Zeitstempel = '" & Suchstring & "';"
- sqladapt.SelectCommand = sqlite_cmd
- Try
- sqladapt.Fill(DB_in_DGV)
- Catch ex As Exception
- MessageBox.Show("Es wurde ein Fehler festgestellt:" & vbCrLf & vbCrLf & ex.Message, "SQL-Test", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
- dgv.DataSource = DB_in_DGV
- End Sub