Operation muss eine aktualisierbare Abfrage verwenden ??????

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von Black_Ice.

    Operation muss eine aktualisierbare Abfrage verwenden ??????

    Hallo, ich habe ein Problem mit meinem Datenbankprogrämmchen !

    Ich habe mir zum besseren Verständnis mal ein kleines Programm erstellt mit dem man auf eine Access DB zugreifen kann. Die dort vorhandenen Einträge kann man anzeigen, ändern, löschen, suchen und neue Einträge hinzufügen. Den Quellcode habe ich mir aus den Gallileo openBooks zusammengesucht.

    Bei mir installiert ist Office 2007 und Windows 7 Beta. Dort klappt auch alles problemlos !!

    Wenn ich das Programm aber auf einem XP Rechner laufen lasse kommt beim schreiben, ändern und löschen nur eine Msgbox in der "fehlt" steht.
    Das gleiche Spiel bei einem Vista Rechner, nur daß dort "Operation muss eine aktualisierbare Abfrage verwenden" in der Msgbox steht.
    Ich bin bei allen drei Rechnern als Admin angemeldet.

    Ich suche schon tagelang und finde nichts ?(

    Ich hoffe jemand kann mir helfen.

    Ich hab den Source und die DB mal angehängt. Beim ausführen muß die DB in C:\ liegen

    Grüße Black_Ice


    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim con As New OleDb.OleDbConnection
    3. Dim cmd As New OleDb.OleDbCommand
    4. Dim reader As OleDb.OleDbDataReader
    5. Dim pnummer As New ArrayList
    7. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    8. con.ConnectionString = _
    9. "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    10. "Data Source=C:\firma.mdb"
    11. cmd.Connection = con
    12. End Sub
    14. Private Sub cmdsehen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsehen.Click
    15. AlleSehen()
    16. End Sub
    17. Sub AlleSehen()
    18. Try
    19. con.Open()
    20. cmd.CommandText = "select * from personen"
    21. Ausgabe()
    22. Catch ex As Exception
    23. MsgBox(ex.Message)
    24. End Try
    25. con.Close()
    27. txtNachname.Text = ""
    28. txtVorname.Text = ""
    29. txtPersonalnummer.Text = ""
    30. txtGehalt.Text = ""
    31. txtGeburtstag.Text = ""
    32. End Sub
    34. Sub Ausgabe()
    35. reader = cmd.ExecuteReader()
    36. lstTab.Items.Clear()
    37. pnummer.Clear()
    38. Do While reader.Read()
    39. lstTab.Items.Add(reader("nachname") & " # " _
    40. & reader("vorname") & " # " _
    41. & reader("personalnummer") & " # " _
    42. & reader("gehalt") & " # " _
    43. & reader("geburtsdatum"))
    44. pnummer.Add(reader("personalnummer"))
    45. Loop
    46. reader.Close()
    47. End Sub
    50. Private Sub cmdEinfügen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEinfügen.Click
    51. Dim anzahl As Integer
    52. If txtPersonalnummer.Text = "" Then
    53. MsgBox("Bitte mindestens eine " _
    54. & "Personalnummer eintragen")
    55. Exit Sub
    56. End If
    58. Try
    59. con.Open()
    60. cmd.CommandText = _
    61. "insert into personen " & _
    62. "(nachname, vorname, personalnummer, " & _
    63. "gehalt, geburtsdatum) " & _
    64. "values ('" & _
    65. txtNachname.Text & "', '" & _
    66. txtVorname.Text & "', " & _
    67. txtPersonalnummer.Text & ", " & _
    68. Val(txtGehalt.Text) & ", '" & _
    69. CDate(txtGeburtstag.Text) & "')"
    71. 'MsgBox(cmd.CommandText)
    72. anzahl = cmd.ExecuteNonQuery()
    73. If anzahl > 0 Then
    74. MsgBox("Es wurde ein Datensatz eingefügt")
    75. End If
    76. Catch ex As Exception
    77. MsgBox(ex.Message)
    78. End Try
    80. con.Close()
    81. AlleSehen()
    83. End Sub
    85. Private Sub lstTab_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstTab.SelectedIndexChanged
    86. Try
    87. con.Open()
    88. cmd.CommandText = _
    89. "select * from personen " _
    90. & "where personalnummer = " _
    91. & pnummer(lstTab.SelectedIndex)
    93. reader = cmd.ExecuteReader()
    94. reader.Read()
    96. txtNachname.Text = reader("Nachname")
    97. txtVorname.Text = reader("vorname")
    98. txtPersonalnummer.Text = reader("personalnummer")
    99. txtGehalt.Text = reader("gehalt")
    100. txtGeburtstag.Text = reader("geburtsdatum")
    101. reader.Close()
    102. Catch ex As Exception
    103. MsgBox(ex.Message)
    104. End Try
    105. con.Close()
    107. End Sub
    109. Private Sub cmdÄndern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdÄndern.Click
    110. Dim anzahl As Integer
    111. If txtPersonalnummer.Text = "" Then
    112. MsgBox("Bitte einen Datensatz auswählen " _
    113. & "und mindestens eine Personalnummer " _
    114. & "eintragen")
    115. Exit Sub
    116. End If
    118. Try
    119. con.Open()
    120. cmd.CommandText = _
    121. "update personen set " & _
    122. "Nachname = '" & txtNachname.Text & "', " & _
    123. "vorname = '" & txtVorname.Text & "', " & _
    124. "personalnummer = " _
    125. & txtPersonalnummer.Text & ", " & _
    126. "gehalt = " _
    127. & Val(txtGehalt.Text) & ", " & _
    128. "geburtsdatum = '" _
    129. & CDate(txtGeburtstag.Text) & "' " & _
    130. "where personalnummer = " _
    131. & pnummer(lstTab.SelectedIndex)
    133. 'MsgBox(cmd.CommandText)
    134. anzahl = cmd.ExecuteNonQuery()
    135. If anzahl > 0 Then
    136. MsgBox("Es wurde ein Datensatz geändert")
    137. End If
    138. Catch ex As Exception
    139. MsgBox(ex.Message)
    140. End Try
    141. con.Close()
    143. AlleSehen()
    145. End Sub
    148. Private Sub cmdLöschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLöschen.Click
    149. Dim anzahl As Integer
    150. If txtPersonalnummer.Text = "" Then
    151. MsgBox("Bitte einen Datensatz auswählen")
    152. Exit Sub
    153. End If
    155. If MsgBox("Wollen Sie den ausgewählten " _
    156. & "Datensatz wirklich löschen?", _
    157. MsgBoxStyle.YesNo) = MsgBoxResult.No Then
    158. Exit Sub
    159. End If
    161. Try
    162. con.Open()
    163. cmd.CommandText = _
    164. "delete from personen " & _
    165. "where personalnummer = " & _
    166. pnummer(lstTab.SelectedIndex)
    167. 'MsgBox(cmd.CommandText)
    168. anzahl = cmd.ExecuteNonQuery()
    169. If anzahl > 0 Then
    170. MsgBox("Es wurde ein Datensatz gelöscht")
    171. End If
    172. Catch ex As Exception
    173. MsgBox(ex.Message)
    174. End Try
    175. con.Close()
    177. AlleSehen()
    179. End Sub
    181. Private Sub cmdSuchen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSuchen.Click
    182. If txtNachname.Text = "" Then
    183. MsgBox("Bitte einen Such-Namen eintragen")
    184. Exit Sub
    185. End If
    187. Try
    188. con.Open()
    189. cmd.CommandText = _
    190. "select * from personen where Nachname like '%" _
    191. & txtNachname.Text & "%'"
    192. 'MsgBox(cmd.CommandText)
    193. Ausgabe()
    194. Catch ex As Exception
    195. MsgBox(ex.Message)
    196. End Try
    197. con.Close()
    198. End Sub
    199. End Class
    Dateien

    • Black_Ice.rar

      (84,26 kB, 185 mal heruntergeladen, zuletzt: )

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

    Ich habe es unter Vista und XP getestet. Bei beiden funktioniert das hinzufügen, bearbeiten und löschen ohne Probleme.

    Nur so nebenbei, wieso nutzt du anstelle der ListBox keine ListView, das sieht besser aus mit der Trennung durch die SubItems als durch die # ...
    wintoolz.de
    • wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passwörten
    • wintoolz.CodeGallery - Datenbank für Codebeispiele veschiedener Programmiersprachen
    • wintoolz.Haushaltsbuch - Dient zum Auflisten der Aktivitäten ihrer Bankkonten

    Benutze auch du Ecosia

    Nur so nebenbei, wieso nutzt du anstelle der ListBox keine ListView, das sieht besser aus mit der Trennung durch die SubItems als durch die # ...

    Wie gesagt, es soll ja nur zum verständnis dienen da ich noch totaler Anfänger bin.

    Allerdings verstehe ich nicht warum es bei dir läuft !?!? Welches Access hast du denn ? 2003 oder 2007 ? Kann es sein das mir irgendwelche Berechtigungen fehlen ? Und wenn ja wie stelle ich sie um ?

    Grüße Black_Ice

    Auf Vista habe ich Office 2007 auf XP garkein Office.
    Mich wundert nur, das die Nachricht einfach nur "fehlt" ist. Kann mir kaum vorstellen, das der Try Catch-Block bei einem Fehler nur "fehlt" ausgibt.
    Hast schon mal nach "Operation muss eine aktualisierbare Abfrage verwenden" gesucht?
    wintoolz.de
    • wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passwörten
    • wintoolz.CodeGallery - Datenbank für Codebeispiele veschiedener Programmiersprachen
    • wintoolz.Haushaltsbuch - Dient zum Auflisten der Aktivitäten ihrer Bankkonten

    Benutze auch du Ecosia

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

    Hast schon mal nach "Operation muss eine aktualisierbare Abfrage verwenden" gesucht?

    Ja schon mehr als 2 Tage :thumbdown: kommt irgendwie nix bei rum !

    Auf jeden Fall weis ich jetzt schonmal das es nicht am Code liegt.

    Zumindest mal ein Anfang :D

    P.s. jetzt wo klar ist das es "eigentlich" funktioniert kann es gerne zu den Tutorials verschoben/hinzugefügt werden. Gibt ja noch mehrere die damit Probleme haben.

    Grüße Black_Ice

    Hast du mal Versucht, die Datenbank auf ein anderes Laufwerk als C:\ gelegt und getestet?
    wintoolz.de
    • wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passwörten
    • wintoolz.CodeGallery - Datenbank für Codebeispiele veschiedener Programmiersprachen
    • wintoolz.Haushaltsbuch - Dient zum Auflisten der Aktivitäten ihrer Bankkonten

    Benutze auch du Ecosia

    Ja. Ich hab sie schon umbennant, neu angelegt, anderst strukturiert, Laufwerk gewechselt usw.

    Edit: Ich hab jetzt mal Office deinstalliert. Alles wie gehabt, ansehen und suchen funktioniert.

    einfügen, ändern, löschen --> "Operation muß eine aktualisierbare Abfrage verwenden" :cursing:

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

    Es funktioniert !!

    Wenn ich die Datenbank auf einem USB stick ablege funktioniert alles wunderbar ! Aus irgendeinem unersichtlichen Grund fehlen mir anscheinend Schreibrechte ?!?

    Ich hab diese schon im Explorer in den Eigenschaften geändert. Allerdings tritt keine Besserung ein.

    Jemand vieleicht noch ne Idee ?

    Ich nutze für meine Datenbanken immer Anwendungsdaten-Ordner von Windows

    VB.NET-Quellcode

    1. Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)

    Da erstelle ich einen Ordner mit dem Namen meiner Anwendung

    VB.NET-Quellcode

    1. Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\" & Application.ProductName


    Der Pfad ist unter Vista: (Versteckt)
    "System-Partiton:\Users\USER\AppData\Roaming"
    Unter XP: (Versteckt)
    "System-Partiton:\Dokumente und Einstellungen\USER\Anwendungsdaten"

    Dort solltest du eigentlich immer Schreibrechte haben, da der Ordner für solche Daten gedacht ist.
    Wie hattest du es denn bis jetzt vor die Datenbankdatei mitzuliefern? Beim Programmstart zu erzeugen, in einem Zip-Verzeichnis, einem Setup?
    Beim erzeugen (beim Setup kommt es auch darauf an welches du hast) kannst du die Datenbankdatei in dem oben genannten Pfad erzeugen bzw kopieren lassen. Beim Entpacken wird das etwas umständlich, da du dem User das ganze erklären musst. Auserdem ist es ziemlich unprofessionel den User Daten von Hand irgendwohin kopieren zu lassen...
    wintoolz.de
    • wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passwörten
    • wintoolz.CodeGallery - Datenbank für Codebeispiele veschiedener Programmiersprachen
    • wintoolz.Haushaltsbuch - Dient zum Auflisten der Aktivitäten ihrer Bankkonten

    Benutze auch du Ecosia

Facebook
Telefonspende