UPDATE-Anweisung ohne Auswirkung auf MS-Access Datenbank

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

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von aeleks.

    UPDATE-Anweisung ohne Auswirkung auf MS-Access Datenbank

    Hallo zusammen,
    ich zerbreche mir schon eine Weile den Kopf über folgendes Problem. Ich habe eine kleine Windows-Forms Anwendung, über welche ich Einträge in einer MS-Access Datenbank erstellen, verändern und löschen möchte. Die INSERT INTO und DELETE-Anweisungen funktionieren problemlos - nur die UPDATE-Anweisung bereitet Kopfschmerzen. Ich kann den von mir geschriebenen Code ausführen, ohne das Fehler auftreten. Allerdings erfolgt keine Änderung des Datensatzes. Ich hoffe einer von euch kann mir an dieser Stelle helfen oder kann mich auf Ungereimtheiten in meinem Code hinweisen.
    Viele Grüße

    edit: hier noch ein Bild vom Aufbau meiner Access DB


    VB.NET-Quellcode

    1. Public Class frmAnzeige
    3. Dim cnnDatenbank As New OleDb.OleDbConnection
    4. 'hier steht eigentlich der volle Pfad
    5. Dim pfadDatenbank As String = "*****_datenbank\bestelllisteDB.accdb"
    7. Dim tabDatenbank As String = "listeBestellung"
    9. Private Sub frmAnzeige_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    10. Me.datagridAnzeige.ReadOnly = True
    12. cnnDatenbank = New OleDb.OleDbConnection
    14. cnnDatenbank.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & pfadDatenbank
    16. refreshDatagrid()
    17. End Sub
    19. Public Sub refreshDatagrid()
    20. Dim sqlQry_cmd As String
    22. Call clsDatabase.datenbankOeffnen(cnnDatenbank)
    24. sqlQry_cmd = "SELECT ID, teileBeschreibung, teileHersteller, teileBestellnummer, teileAnzahl, teileStatus, datumEintrag, datumBestellung FROM " & tabDatenbank & " ORDER BY ID DESC"
    26. Dim cmdDatenbank As New OleDb.OleDbDataAdapter(sqlQry_cmd, cnnDatenbank)
    27. Dim dtTemporaer As New DataTable
    29. cmdDatenbank.Fill(dtTemporaer)
    30. Me.datagridAnzeige.DataSource = dtTemporaer
    31. cmdDatenbank.Dispose()
    33. Call clsDatabase.datenbankSchliessen(cnnDatenbank)
    34. End Sub
    36. Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
    37. frmBearbeiten.Show()
    38. clsDatabase.statusBearbeitung = False
    39. End Sub
    41. Private Sub datagridAnzeige_RowHeaderMouseDoubleClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles datagridAnzeige.RowHeaderMouseDoubleClick
    42. clsDatabase.statusBearbeitung = True
    43. clsDatabase.idBearbeitung = Me.datagridAnzeige.CurrentRow.Cells(0).Value
    45. frmBearbeiten.Show()
    46. End Sub
    48. End Class
    50. Public Class frmBearbeiten
    52. Dim cnnDatenbank As New OleDb.OleDbConnection
    53. 'hier steht eigentlich der volle Pfad
    54. Dim pfadDatenbank As String = "*****_datenbank\bestelllisteDB.accdb"
    56. Dim tabDatenbank As String = "listeBestellung"
    58. Private Sub btnSpeichern_Click(sender As Object, e As EventArgs) Handles btnSpeichern.Click
    59. Dim sqlQry_cmd As String
    61. Call clsDatabase.datenbankOeffnen(cnnDatenbank)
    63. If clsDatabase.statusBearbeitung = False Then
    64. sqlQry_cmd = _
    65. "INSERT INTO " & tabDatenbank & _
    66. " (teileBeschreibung, teileHersteller, teileBestellnummer, teileAnzahl, datumEintrag) " & _
    67. "VALUES (@teileBeschreibung, @teileHersteller, @teileBestellnummer, @teileAnzahl, @datumEintrag)"
    69. Dim cmdDatenbank As New OleDb.OleDbCommand(sqlQry_cmd, cnnDatenbank)
    71. cmdDatenbank.Parameters.AddWithValue("@teileBeschreibung", Me.txtBeschreibung.Text)
    72. cmdDatenbank.Parameters.AddWithValue("@teileHersteller", Me.txtHersteller.Text)
    73. cmdDatenbank.Parameters.AddWithValue("@teileBestellnummer", Me.txtBestellnummer.Text)
    74. cmdDatenbank.Parameters.AddWithValue("@teileAnzahl", Me.txtAnzahl.Text)
    75. cmdDatenbank.Parameters.AddWithValue("@datumEintrag", CStr(Date.Today))
    77. cmdDatenbank.ExecuteNonQuery()
    78. cmdDatenbank.Dispose()
    80. ElseIf clsDatabase.statusBearbeitung = True Then
    81. sqlQry_cmd = _
    82. "UPDATE " & tabDatenbank & _
    83. " SET teileBeschreibung = @teileBeschreibung, " & _
    84. "teileHersteller = @teileHersteller, " & _
    85. "teileBestellnummer = @teileBestellnummer, " & _
    86. "teileAnzahl = @teileAnzahl, " & _
    87. "teileStatus = @teileStatus, " & _
    88. "datumEintrag = @datumEintrag, " & _
    89. "datumBestellung = @datumBestellung " & _
    90. "WHERE ID = @id"
    92. Dim cmdDatenbank As New OleDb.OleDbCommand(sqlQry_cmd, cnnDatenbank)
    94. cmdDatenbank.Parameters.AddWithValue("@id", clsDatabase.idBearbeitung)
    95. cmdDatenbank.Parameters.AddWithValue("@teileBeschreibung", Me.txtBeschreibung.Text)
    96. cmdDatenbank.Parameters.AddWithValue("@teileHersteller", Me.txtHersteller.Text)
    97. cmdDatenbank.Parameters.AddWithValue("@teileBestellnummer", Me.txtBestellnummer.Text)
    98. cmdDatenbank.Parameters.AddWithValue("@teileAnzahl", Me.txtAnzahl.Text)
    99. If Me.chckBestellt.Checked = True Then
    100. cmdDatenbank.Parameters.AddWithValue("@teileStatus", "Ja")
    101. ElseIf Me.chckBestellt.Checked = False Then
    102. cmdDatenbank.Parameters.AddWithValue("@teileStatus", "Nein")
    103. End If
    104. cmdDatenbank.Parameters.AddWithValue("@datumEintrag", Me.txtDatumEintrag.Text)
    105. cmdDatenbank.Parameters.AddWithValue("@datumBestellung", Me.txtDatumBestellung.Text)
    107. cmdDatenbank.ExecuteNonQuery()
    108. cmdDatenbank.Dispose()
    109. End If
    111. Call clsDatabase.datenbankSchliessen(cnnDatenbank)
    113. frmAnzeige.refreshDatagrid()
    114. Me.Close()
    115. End Sub
    117. Private Sub frmBearbeiten_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    119. cnnDatenbank = New OleDb.OleDbConnection
    121. cnnDatenbank.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & pfadDatenbank
    123. If clsDatabase.statusBearbeitung = False Then
    124. With Me
    125. .chckBestellt.Checked = False
    126. .chckBestellt.Enabled = False
    127. .btnLoeschen.Enabled = False
    128. End With
    130. ElseIf clsDatabase.statusBearbeitung = True Then
    131. Dim sqlQry_cmd As String
    133. With Me
    134. .chckBestellt.Checked = False
    135. .chckBestellt.Enabled = True
    136. .btnLoeschen.Enabled = True
    137. End With
    139. Call clsDatabase.datenbankOeffnen(cnnDatenbank)
    141. sqlQry_cmd = "SELECT teileBeschreibung, teileHersteller, teileBestellnummer, teileAnzahl, teileStatus, datumEintrag, datumBestellung FROM " & tabDatenbank & _
    142. " WHERE ID = @id"
    144. Dim cmdDatenbank As New OleDb.OleDbCommand(sqlQry_cmd, cnnDatenbank)
    146. cmdDatenbank.Parameters.AddWithValue("@id", clsDatabase.idBearbeitung)
    148. Dim dtTemporaer As New DataTable
    149. dtTemporaer.Load(cmdDatenbank.ExecuteReader)
    151. With Me
    152. .txtBeschreibung.Text = dtTemporaer.Rows(0)("teileBeschreibung")
    153. .txtHersteller.Text = dtTemporaer.Rows(0)("teileHersteller")
    154. .txtBestellnummer.Text = dtTemporaer.Rows(0)("teileBestellnummer")
    155. .txtAnzahl.Text = dtTemporaer.Rows(0)("teileAnzahl")
    156. .txtDatumEintrag.Text = CStr(dtTemporaer.Rows(0)("datumEintrag"))
    157. .txtDatumBestellung.Text = CStr(dtTemporaer.Rows(0)("datumBestellung"))
    158. If dtTemporaer.Rows(0)("teileStatus") = "Ja" Then
    159. .chckBestellt.Checked = True
    160. End If
    161. End With
    163. cmdDatenbank.Dispose()
    164. clsDatabase.datenbankSchliessen(cnnDatenbank)
    165. End If
    166. End Sub
    168. Private Sub btnLoeschen_Click(sender As Object, e As EventArgs) Handles btnLoeschen.Click
    169. Dim sqlQry_cmd As String
    171. Call clsDatabase.datenbankOeffnen(cnnDatenbank)
    173. sqlQry_cmd = _
    174. "DELETE FROM " & tabDatenbank & _
    175. " WHERE ID = @id"
    177. Dim cmdDatenbank As New OleDb.OleDbCommand(sqlQry_cmd, cnnDatenbank)
    179. cmdDatenbank.Parameters.AddWithValue("@id", clsDatabase.idBearbeitung)
    181. cmdDatenbank.ExecuteNonQuery()
    182. cmdDatenbank.Dispose()
    184. Call clsDatabase.datenbankSchliessen(cnnDatenbank)
    186. frmAnzeige.refreshDatagrid()
    187. Me.Close()
    188. End Sub
    189. End Class
    191. Public Class clsDatabase
    192. Public Shared statusBearbeitung As Boolean
    193. Public Shared idBearbeitung As Long
    195. Public Shared Sub datenbankOeffnen(ByRef verbindungDb As OleDb.OleDbConnection)
    196. Try
    197. If Not verbindungDb.State = ConnectionState.Open Then
    198. verbindungDb.Open()
    199. End If
    200. Catch
    201. MsgBox("Erkannter Fehler: Verbindung zur Datenbank fehlgeschlagen.", MsgBoxStyle.Critical, "Fehlermeldung")
    202. End Try
    203. End Sub
    205. Public Shared Sub datenbankSchliessen(ByRef verbindungDb As OleDb.OleDbConnection)
    206. Try
    207. If verbindungDb.State = ConnectionState.Open Then
    208. verbindungDb.Close()
    209. End If
    210. Catch
    211. MsgBox("Erkannter Fehler: Verbindung zur Datenbank konnte nicht getrennt werden.", MsgBoxStyle.Critical, "Fehlermeldung")
    212. End Try
    213. End Sub
    215. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „aeleks“ ()

    Das Problem hat sich erledigt, lag an zwei Details:

    Zum Einen war wie laut petaod die Reihenfolge der Parameter relevant.

    Zum Anderen kam es nach der Ordnung zu einem Parameterfehler, ausgelöst durch das leere Textfeld, in welchem eigentlich ein Datum stehen musste (laut Access-Vorgabe).

    Vielen Dank für Eure Antworten.

Facebook
Telefonspende