Hallo,
Ich bin neu im Gebiet der Programmierung und suche Hilfe. Ich will ein Programm schreiben, in welchen ich im ersten Schritt eine Datenbank erzeuge. Im zweiten Schritt soll sie dann gefüllt werden.
Ich arbeite im ersten schritt mit einem SaveFileDialog und der funktioniert auch, erhalte aber die Meldung, dass keine Datenbank erzeugt wird.
Der Quellcode (ist erst mal nur eine Demo, darum etwas kurz):
Fehlermeldung ist in Zeile 23, "System.Data.SQLite.SQLiteException: "file is not a database file is not a database" ".
Bin für alle Hinweise, Vorschläge und Anmerkungen offen, da ich bis vor einigen Tagen davon gar keine Ahnung hatte und noch Neu bin.
Ich bin neu im Gebiet der Programmierung und suche Hilfe. Ich will ein Programm schreiben, in welchen ich im ersten Schritt eine Datenbank erzeuge. Im zweiten Schritt soll sie dann gefüllt werden.
Ich arbeite im ersten schritt mit einem SaveFileDialog und der funktioniert auch, erhalte aber die Meldung, dass keine Datenbank erzeugt wird.
Der Quellcode (ist erst mal nur eine Demo, darum etwas kurz):
Visual Basic-Quellcode
- Public Class Form1
- Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- SaveFileDialog1.ShowDialog()
- SaveFileDialog1.InitialDirectory = "C:\Users\"
- SaveFileDialog1.FileName = "Sammler"
- SaveFileDialog1.Filter = "Data Base File|*.db"
- SaveFileDialog1.Title = "Ort zum Speichern auswählen"
- My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, "", True)
- Static host As String = SaveFileDialog1.FileName
- Dim connect As New SQLite.SQLiteConnection()
- Dim abc = "Data Source=" & host & ";"
- connect.ConnectionString = abc
- connect.Open()
- connect.Close()
- connect.Open()
- Dim Comand = connect.CreateCommand
- Comand.CommandText = "CREATE TABLE user(id INTEGER PRIMARY KEY AUTOINCREMENT,name);
- INSERT INTO user (name)VALUES('Bud Powell');"
- Comand.ExecuteNonQuery()
- Comand.Dispose()
- connect.Close()
- End Sub
- Public Sub OPI(ByVal abc)
- Button2.PerformClick()
- Dim connect As New SQLite.SQLiteConnection()
- connect.ConnectionString = abc
- connect.Open()
- connect.Close()
- connect.Open()
- Dim Comand = connect.CreateCommand
- Comand.CommandText = "INSERT INTO user (name)VALUES('Ich undo');"
- Comand.ExecuteNonQuery()
- Comand.Dispose()
- connect.Close()
- End Sub
- End Class
Fehlermeldung ist in Zeile 23, "System.Data.SQLite.SQLiteException: "file is not a database file is not a database" ".
Bin für alle Hinweise, Vorschläge und Anmerkungen offen, da ich bis vor einigen Tagen davon gar keine Ahnung hatte und noch Neu bin.