Sqlite Datensatz löschen

  • .NET (FX) 4.5–4.8
  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Sqlite Datensatz löschen

    Hi
    habe mir mal ein Sqlite example runtergeladen um mich mal mit Sqlite zu beschäftigen.
    Die Tabellen habe ich mit DB Browser for Sqlite erstellt.

    Das Problem was ich habe, ist das löschen eines Datensatzes komme da einfach nicht klar.

    Hier mal der Code

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Data.SQLite
    3. Imports System.ComponentModel
    5. Public Class admin
    6. Private connectionString = String.Empty
    7. Private password_changed As Boolean = False
    9. Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    10. ' declare the SQLite database connection string
    11. connectionString = String.Format("Data Source={0};Version=3;",
    12. Directory.GetCurrentDirectory() & "\" & "myadress.db")
    14. ' Load Users List
    15. LoadUserFromDb()
    17. End Sub
    19. ' Populate the ListBox with user data from database table "users"
    20. Private Sub LoadUserFromDb()
    21. Dim userInfo As DataRow = Nothing
    22. Dim sql As String = "SELECT * FROM users;"
    24. Try
    25. Dim current_index As Int16 = lb_users.SelectedIndex
    26. Using conn As New SQLiteConnection(connectionString.ToString)
    27. Using cmd As New SQLiteCommand(conn)
    28. cmd.CommandText = sql
    29. conn.Open()
    30. Using da As New SQLiteDataAdapter(cmd)
    31. Dim dt As New DataTable
    32. da.Fill(dt)
    34. If dt.Rows.Count > 0 Then
    35. lb_users.DisplayMember = "user_fullname"
    36. lb_users.ValueMember = "user_id"
    37. lb_users.DataSource = dt
    38. End If
    39. End Using
    40. End Using
    41. End Using
    42. If current_index > 0 Then
    43. lb_users.SelectedIndex = current_index
    44. End If
    45. Catch ex As Exception
    46. MsgBox(ex.Message)
    47. End Try
    49. End Sub
    51. Private Sub LoadUserInfo(user_id As String)
    52. Dim userInfo As DataRow = Nothing
    53. Dim sql As String = "SELECT * FROM users WHERE user_id = @user_id;"
    55. Try
    56. Using conn As New SQLiteConnection(connectionString.ToString)
    57. Using cmd As New SQLiteCommand(conn)
    58. cmd.Parameters.AddWithValue("@user_id", user_id)
    59. cmd.CommandText = sql
    60. conn.Open()
    61. Using da As New SQLiteDataAdapter(cmd)
    62. Dim dt As New DataTable
    63. da.Fill(dt)
    65. If dt.Rows.Count > 0 Then
    66. userInfo = dt.Rows(0)
    67. txt_user_id.Text = userInfo("user_id")
    68. txt_user_name.Text = userInfo("user_name")
    69. txt_user_fullname.Text = userInfo("user_fullname")
    70. txt_user_password.Text = userInfo("user_password")
    71. 'CheckBox1.Text = userInfo("admin")
    72. txt_user_salt.Text = IIf(IsDBNull(userInfo("user_salt")), "", userInfo("user_salt"))
    73. password_changed = False
    74. End If
    76. End Using
    77. End Using
    78. End Using
    79. Catch ex As Exception
    80. MsgBox(ex.Message)
    81. End Try
    83. End Sub
    85. ' This function will create new user.
    86. Private Sub insert_new_user()
    87. Dim SQL As String = String.Empty
    88. Dim iReturnValue As Integer = 0
    89. Dim oCmd As New SQLiteCommand
    91. Dim passSalt As String = String.Empty
    92. Dim passHash As String = String.Empty
    94. passSalt = Utils.CreateSalt()
    95. passHash = Utils.GetSaltedHash(txt_user_password.Text.Trim, passSalt)
    97. ' Add new user
    98. SQL &= "INSERT INTO users (user_name, user_fullname, user_password, user_salt,admin) "
    99. SQL &= "VALUES (@user_name, @user_fullname, @user_password, @user_salt,@admin)"
    101. Try
    102. With oCmd
    103. .Parameters.AddWithValue("@user_name", txt_user_name.Text.Trim)
    104. .Parameters.AddWithValue("@user_fullname", txt_user_fullname.Text.Trim)
    105. .Parameters.AddWithValue("@user_password", passHash)
    106. .Parameters.AddWithValue("@user_salt", passSalt)
    107. .Parameters.AddWithValue("@admin", CheckBox1.Checked.ToString.Trim)
    109. End With
    111. Using conn As New SQLiteConnection(connectionString.ToString)
    112. Using oCmd
    113. oCmd.Connection = conn
    114. oCmd.CommandText = SQL
    115. conn.Open()
    116. iReturnValue = oCmd.ExecuteNonQuery()
    117. End Using
    118. End Using
    119. LoadUserFromDb()
    120. Catch ex As Exception
    122. If ex.Message.Contains("Einschränkung fehlgeschlagen") Then
    123. MsgBox("Der Anmeldename muss eindeutig sein")
    124. Else
    125. MsgBox(ex.Message)
    126. End If
    128. End Try
    130. End Sub
    132. ' This function will update the information and password of the current user
    133. Private Sub update_user_data()
    134. Dim SQL As String = String.Empty
    135. Dim iReturnValue As Integer = 0
    136. Dim oCmd As New SQLiteCommand
    138. Dim passSalt As String = String.Empty
    139. Dim passHash As String = String.Empty
    141. If password_changed = True Then
    143. passSalt = Utils.CreateSalt()
    144. passHash = Utils.GetSaltedHash(txt_user_password.Text.Trim, passSalt)
    146. ' Update the current user information
    147. ' the current password has been changed, create new salt and new hashed passord
    148. SQL &= "UPDATE users SET user_name = @user_name, user_fullname = @user_fullname,admin "
    149. SQL &= "user_password = @user_password, user_salt = @user_salt,@admin "
    150. SQL &= "WHERE user_id = @user_id"
    152. With oCmd
    153. .Parameters.AddWithValue("@user_id", txt_user_id.Text.Trim)
    154. .Parameters.AddWithValue("@user_name", txt_user_name.Text.Trim)
    155. .Parameters.AddWithValue("@user_fullname", txt_user_fullname.Text.Trim)
    156. .Parameters.AddWithValue("@user_password", passHash)
    157. .Parameters.AddWithValue("@user_salt", passSalt)
    158. .Parameters.AddWithValue("@admin", CheckBox1.Checked.ToString.Trim)
    159. End With
    161. Else
    162. ' Update the current user information
    163. ' the current passord didn't changed, no need to create salt and hashed password
    164. SQL &= "UPDATE users SET user_name = @user_name, user_fullname = @user_fullname,admin=@admin "
    165. SQL &= "WHERE user_id = @user_id"
    167. With oCmd
    168. .Parameters.AddWithValue("@user_id", txt_user_id.Text.Trim)
    169. .Parameters.AddWithValue("@user_name", txt_user_name.Text.Trim)
    170. .Parameters.AddWithValue("@user_fullname", txt_user_fullname.Text.Trim)
    171. .Parameters.AddWithValue("@admin", CheckBox1.Checked.ToString.Trim)
    172. End With
    174. End If
    176. Try
    178. Using conn As New SQLiteConnection(connectionString.ToString)
    179. Using oCmd
    180. oCmd.Connection = conn
    181. oCmd.CommandText = SQL
    182. conn.Open()
    183. iReturnValue = oCmd.ExecuteNonQuery()
    184. End Using
    185. End Using
    186. LoadUserFromDb()
    187. Catch ex As Exception
    188. MsgBox(ex.Message)
    189. End Try
    191. End Sub
    193. Private Sub btn_exit_Click(sender As Object, e As EventArgs) Handles btn_exit.Click
    194. Me.Close()
    195. End Sub
    197. Private Sub MainForm_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
    198. Application.Exit()
    199. End Sub
    201. Private Sub lb_users_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lb_users.SelectedIndexChanged
    202. Try
    203. Dim user_id As String = lb_users.SelectedValue.ToString
    204. LoadUserInfo(user_id)
    205. Catch ex As Exception
    207. End Try
    208. End Sub
    210. Private Sub btn_add_user_Click(sender As Object, e As EventArgs) Handles btn_add_user.Click
    211. txt_user_name.Select()
    212. txt_user_id.Clear()
    213. txt_user_name.Clear()
    214. txt_user_fullname.Clear()
    215. txt_user_password.Clear()
    216. txt_user_salt.Clear()
    218. End Sub
    220. Private Sub btn_save_user_Click(sender As Object, e As EventArgs) Handles btn_save_user.Click
    222. If String.IsNullOrEmpty(txt_user_id.Text.Trim) Then
    223. ' Add new user
    224. insert_new_user()
    225. Else
    226. ' Update current user information
    227. update_user_data()
    228. End If
    230. End Sub
    232. Private Sub txt_user_password_TextChanged(sender As Object, e As EventArgs) Handles _
    233. txt_user_password.TextChanged
    234. password_changed = True
    235. End Sub
    237. Private Sub Btn_Delete_Click(sender As Object, e As EventArgs) Handles Btn_Delete.Click
    238. Dim connect As New SQLite.SQLiteConnection()
    239. Dim command As SQLiteCommand
    240. connectionString = String.Format("Data Source={0};Version=3;",
    241. Directory.GetCurrentDirectory() & "\" & "myadress.db")
    242. 'connect.Open()
    243. 'connect.Close()
    244. connect.Open()
    245. command = connect.CreateCommand
    246. command.CommandText = "DELETE FROM users WHERE user_id =@user_id" 'Die Query
    247. command.ExecuteNonQuery() ' Die Query wird ausgeführt
    248. command.Dispose()
    249. connect.Close() 'Schließen
    250. End Sub
    252. End Class


    Bekomme diese Meldung.
    Wahrscheinlich sitze ich schon zu lange an diesem Problem und habe die Übersicht verloren...
    Bilder

    • sqlite_delete.jpg

      85,34 kB, 1.212×479, 81 mal angesehen

    Ich hab zwar keine Ahnung von SQL, aber musst Du nicht noch irgendwo zuweisen, dass connectionstring zu connect oder command gehört? Weil: So ist es ja nur ein String, der irgendwo zusammenhanglos in der Luft hängt.

    Ach ja, weiter oben steht's ja, wie es wohl geht: Using conn As New SQLiteConnection(connectionString.ToString)

    btw:
    Stichwort MsgBox: Bevor Du weitermachst, bitte die empfohlenen VS-Einstellungen verwenden.
    und
    Fange nur Exceptions ab, die Du kennst und sinnvoll bearbeiten kannst.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @VaporiZed du warst schon auf dem Richtigen dampfer, in der Prozedur, in der die Exception fliegt, wird der neuen Connection nie der ConnectionString mitgegeben. Daher ist auch der "string value to be split" null.

    @manni4545 deklarier den ConnectionString bevor du die Connection erstellst:
    Aus:

    VB.NET-Quellcode

    1. Dim connect As New SQLite.SQLiteConnection()
    2. Dim command As SQLiteCommand
    3. connectionString = String.Format("Data Source={0};Version=3;",Directory.GetCurrentDirectory() & "\" & "myadress.db")

    mach:

    VB.NET-Quellcode

    1. connectionString = String.Format("Data Source={0};Version=3;",Directory.GetCurrentDirectory() & "\" & "myadress.db")
    2. Dim connect As New SQLite.SQLiteConnection(connectionString )
    3. Dim command As SQLiteCommand

    Damit ich das richtig verstehe: Du hast sicherlich versucht, meinen Post umzusetzen und hast das hier erhalten:

    VB.NET-Quellcode

    1. Private Sub Btn_Delete_Click(sender As Object, e As EventArgs) Handles Btn_Delete.Click
    2. connectionString = String.Format("Data Source={0};Version=3;",
    3. Directory.GetCurrentDirectory() & "\" & "myadress.db")
    5. Using connect As New SQLite.SQLiteConnection(connectionString)
    6. Dim command As SQLiteCommand
    7. 'connect.Open()
    8. 'connect.Close()
    9. connect.Open()
    10. command = connect.CreateCommand
    11. command.CommandText = "DELETE FROM users WHERE user_id =@user_id" 'Die Query
    12. command.ExecuteNonQuery() ' Die Query wird ausgeführt
    13. command.Dispose()
    14. End Using
    15. End Sub

    Funktioniert das gar nicht, also kommt die gleiche Fehlermeldung oder kommt was anderes als Fehler oder was? Da Du nicht auf meinen Post eingegangen bist, sondern nochmal zusammengefasst sagst "Hilfe!", weiß ich leider nicht genau, was Du jetzt noch probiert hast und was Du als Ergebnis erhältst.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @BlueLagoonX Ich hab keine Ahnung wie du auf Oracle kommst, aber @manni4545 setzt SQLite ein.
    Wenn schon, dann poste doch bitte gleich das richtige:
    connectionstrings.com/sqlite-net-provider/

    Abgesehen davon, ist sein ConnectionString sowieso korrekt.
    btw. LMGTFY wird hier als Spam angesehen (nachzulesen in den Nutzungsbestimmungen)

    Ich habe es so gelöst und es funktioniert prima.

    Anlegen einer Datenbank

    C#-Quellcode

    1. // Datenbank und Verbindung anlegen, dann Verbindung öffnen
    2. string dataSource = "SQLiteDemo.db";
    3. SQLiteConnection connection = new SQLiteConnection
    4. {
    5. ConnectionString = "Data Source=" + dataSource
    6. };
    7. connection.Open();
    9. // neuen Befehl erstellen
    10. SQLiteCommand command = new SQLiteCommand(connection);
    12. // neue Tabelle anlegen sofern diese noch nicht existiert
    13. //command.CommandText = "CREATE TABLE IF NOT EXISTS beispiel (id INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT, name VARCHAR(100) NOT NULL);";
    14. command.CommandText = "CREATE TABLE IF NOT EXISTS messwerte (id INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT, tempaussen REAL, tempinnen REAL, feuchteaussen REAL, feuchteinnen REAL);";
    15. command.ExecuteNonQuery();
    17. command.Dispose();
    19. connection.Close();
    20. connection.Dispose();


    Eintragen in Datenbank

    C#-Quellcode

    1. ​
    2. string strtempaussen, strtempinnen, strfeuchteaussen, strfeuchteinnen;
    4. strtempaussen = tempaussen.ToString("G",CultureInfo.InvariantCulture);
    5. strtempinnen = tempinnen.ToString("G",CultureInfo.InvariantCulture);
    6. strfeuchteaussen = feuchteaussen.ToString("G",CultureInfo.InvariantCulture);
    7. strfeuchteinnen = feuchteinnen.ToString("G",CultureInfo.InvariantCulture);
    9. // Datenbank und Verbindung anlegen, dann Verbindung öffnen
    10. string dataSource = "SQLiteDemo.db";
    11. SQLiteConnection connection = new SQLiteConnection();
    13. connection.ConnectionString = "Data Source=" + dataSource;
    14. connection.Open();
    16. // neuen Befehl erstellen
    17. SQLiteCommand command = new SQLiteCommand(connection);
    19. //command.CommandText = string.Format("INSERT INTO messwerte (id, tempaussen, tempinnen, feuchteaussen, feuchteinnen) VALUES(NULL, '{0}','{1}','{2}','{3}')", strtempaussen, strtempinnen, strfeuchteaussen, strfeuchteinnen);
    20. command.CommandText = string.Format("INSERT INTO messwerte (id, tempaussen, tempinnen, feuchteaussen, feuchteinnen) VALUES(@id, @tempaussen, @tempinnen, @feuchteaussen, @feuchteinnen)");
    21. command.CommandType = CommandType.Text;
    22. command.Parameters.Add(new SQLiteParameter("@id",null));
    23. command.Parameters.Add(new SQLiteParameter("@tempaussen",strtempaussen));
    24. command.Parameters.Add(new SQLiteParameter("@tempinnen",strtempinnen));
    25. command.Parameters.Add(new SQLiteParameter("@feuchteaussen",strfeuchteaussen));
    26. command.Parameters.Add(new SQLiteParameter("@feuchteinnen",strfeuchteinnen));
    27. command.ExecuteNonQuery();
    29. command.Dispose();
    30. connection.Close();
    31. connection.Dispose();

    wobei ich malwieder anmerke, dass man sowas doch über typisiertes Dataset abwickeln sollte.
    Post#1, Listing#1 ist doch grotesk, da 250 Zeilen für son Pillepalle aufzuwenden.

    Zumindest aber den DataAdapter richtig konfigurieren (mithilfe SqlCommandBuilder) und verwenden.
    Ein DataAdapter kann nämlich beides: Daten abrufen, und geänderte Daten rückspeichern.

    gugge vlt. Dataset->Db
    (wobei das schon eine wesentlich weiter gehende Lösung ist)

    Immerhin das letzte Snippet des angegebenen Tuts zeigt, dass es - unter Einbindung des gegebenen Helper-Codes - mit ca. 30 Zeilen getan ist (und mehr sollte es auch nicht sein).

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „ErfinderDesRades“ ()

Facebook
Telefonspende