Hilfe bei Access

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von picoflop.

    Hilfe bei Access

    hallo,
    ich befinde mich gerade in einer zwickmühle, wenn man das so sagen darf.
    den code habe ich nur habe noch ein paar fehler dadrin.

    kann mir vielleicht jemand helfen über z.b. skype oder teamviewer?
    würde mich sehr über hilfe freuen.

    lg rene

    - Poste den Code und es wird dir wahrscheindlich nicht nur 1 helfen sondern mehrere.
    - Falls es eine Lösung geben sollte, kann die Nachwelt eventuell anhand dieser Lösung sein eigenes Problem eventuell auch beheben.

    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    ok hieri st der code...:

    VB.NET-Quellcode

    1. Imports System.Data.OleDb
    3. Class neuevok
    4. Dim con As New OleDbConnection
    5. Dim cmd As New OleDbCommand
    6. Dim reader As OleDbDataReader
    7. Dim pnummer As New ArrayList
    9. Private Sub neuevok_Load(
    10. ByVal sender As System.Object,
    11. ByVal e As System.EventArgs
    12. ) Handles MyBase.Load
    13. con.ConnectionString =
    14. "Provider=Microsoft.Jet.OLEDB.4.0;" &
    15. "Data Source= lernen.mdb"
    16. cmd.Connection = con
    17. End Sub
    19. Private Sub cmdAlleSehen_Click(
    20. ByVal sender As System.Object,
    21. ByVal e As System.EventArgs
    22. ) Handles cmdAlleSehen.Click
    23. AlleSehen()
    24. End Sub
    26. Private Sub cmdNameSuchen_Click(
    27. ByVal sender As System.Object,
    28. ByVal e As System.EventArgs
    29. ) Handles cmdNameSuchen.Click
    30. Try
    31. con.Open()
    32. cmd.CommandText =
    33. "select * from personen where" &
    34. " name like '%" & txtDeutsch.Text & "%'"
    35. MessageBox.Show(cmd.CommandText)
    36. Ausgabe()
    37. Catch ex As Exception
    38. MessageBox.Show(ex.Message)
    39. End Try
    40. con.Close()
    41. End Sub
    43. Private Sub cmdEinfügen_Click(
    44. ByVal sender As System.Object,
    45. ByVal e As System.EventArgs
    46. ) Handles cmdEinfügen.Click
    47. Dim anzahl As Integer
    49. Try
    50. con.Open()
    51. cmd.CommandText =
    52. "insert into vokabeln " &
    53. "(englisch, deutsch) values ('" &
    54. txtDeutsch.Text & "', '" &
    55. txtEnglisch.Text & "', "
    57. MessageBox.Show(cmd.CommandText)
    59. anzahl = cmd.ExecuteNonQuery()
    60. If anzahl > 0 Then
    61. MessageBox.Show(
    62. "Ein Datensatz eingefügt")
    63. End If
    64. Catch ex As Exception
    65. MessageBox.Show(ex.Message)
    66. MessageBox.Show("Bitte mindestens einen" &
    67. " Namen, eine eindeutige Personal" &
    68. "nummer und ein gültiges Geburts" &
    69. "datum eintragen")
    70. End Try
    71. con.Close()
    73. AlleSehen()
    74. End Sub
    76. Private Sub cmdÄndern_Click(
    77. ByVal sender As System.Object,
    78. ByVal e As System.EventArgs
    79. ) Handles cmdÄndern.Click
    80. Dim anzahl As Integer
    82. Try
    83. con.Open()
    84. cmd.CommandText =
    85. "Deutsch = '" & txtDeutsch.Text & "', " &
    86. "Englisch = '" & txtEnglisch.Text
    88. MessageBox.Show(cmd.CommandText)
    90. anzahl = cmd.ExecuteNonQuery()
    91. If anzahl > 0 Then
    92. MessageBox.Show("Datensatz geändert")
    93. End If
    94. Catch ex As Exception
    95. MessageBox.Show(ex.Message)
    96. MessageBox.Show("Bitte einen Datensatz" &
    97. " auswählen und mindestens einen" &
    98. " Namen, eine eindeutige Personal" &
    99. "nummer und ein gültiges Geburts" &
    100. "datum eintragen")
    101. End Try
    102. con.Close()
    104. AlleSehen()
    105. End Sub
    107. Private Sub cmdLöschen_Click(
    108. ByVal sender As System.Object,
    109. ByVal e As System.EventArgs
    110. ) Handles cmdLöschen.Click
    111. Dim anzahl As Integer
    113. If MessageBox.Show("Wollen Sie den ausge" &
    114. "wählten Datensatz wirklich löschen?",
    115. "Löschen", MessageBoxButtons.YesNo) =
    116. DialogResult.No Then
    117. Exit Sub
    118. End If
    120. Try
    121. con.Open()
    122. cmd.CommandText = "delete from vokabeln " &
    123. "where personalnummer = " &
    124. pnummer(lstTab.SelectedIndex)
    125. MessageBox.Show(cmd.CommandText)
    127. anzahl = cmd.ExecuteNonQuery()
    128. If anzahl > 0 Then
    129. MessageBox.Show("Datensatz gelöscht")
    130. End If
    131. Catch ex As Exception
    132. MessageBox.Show(ex.Message)
    133. End Try
    134. con.Close()
    136. AlleSehen()
    137. End Sub
    139. Private Sub AlleSehen()
    140. Try
    141. con.Open()
    142. cmd.CommandText = "select * from vokabel"
    143. Ausgabe()
    144. Catch ex As Exception
    145. MessageBox.Show(ex.Message)
    146. End Try
    147. con.Close()
    149. txtDeutsch.Text = ""
    150. txtEnglisch.Text = ""
    152. End Sub
    154. Private Sub Ausgabe()
    155. reader = cmd.ExecuteReader()
    156. lstTab.Items.Clear()
    157. pnummer.Clear()
    158. Do While reader.Read()
    159. lstTab.Items.Add(reader("Deutsch") & " # " &
    160. reader("Englisch"))
    162. Loop
    163. reader.Close()
    164. End Sub
    166. Private Sub lstTab_SelectedIndexChanged(
    167. ByVal sender As System.Object,
    168. ByVal e As System.EventArgs
    169. ) Handles lstTab.SelectedIndexChanged
    170. Try
    171. con.Open()
    172. cmd.CommandText = "select * from vokabel" &
    173. " where personalnummer = " &
    174. pnummer(lstTab.SelectedIndex)
    176. reader = cmd.ExecuteReader()
    177. reader.Read()
    179. txtDeutsch.Text = reader("Deutsch")
    180. txtEnglisch.Text = reader("Englisch")
    182. reader.Close()
    183. Catch ex As Exception
    184. MessageBox.Show(ex.Message)
    185. End Try
    186. con.Close()
    187. End Sub
    189. End Class


    also diesen code haeb ich aus meinen schlauen buch genommen.... eigendlich soll nur passieren, das man die acces datenbank bearbeiten kann... also einmal ändern dann einfügen und eben löschen ... nur leider zeigt er mir viele fehler an. das sind schon zuviele, das ich hier die alle aufsagen kann, deswegen meinte ich ja mit teamviewer

    Das Problem das Du hast liegt in dem Namen der Spalte "Name". "Name" ist bei dem extrenen Zugriff auf Access-DB ein reserviertes Wort und verursacht immer wieder Ärger.

    Lösung: In Access den Spaltennamen ändern, sql anpassen und schon funktionierts.

    @fichz: Hast Du schon einmal bei Access mit den DB-Paramteren sinnvoll arbeiten können? Da sieht man, dass Access keine vollwertige DB ist sondern ein schönes Frontend-Werkzeug.
    NB. Es ist doch schön, wenn man lesbare Namen vergibt. Siehe auch [VB.NET] Beispiele für guten und schlechten Code (Stil).

Facebook
Telefonspende