Nach zweiten Insert alle Daten gleich !!!!

  • VB.NET

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

    Nach zweiten Insert alle Daten gleich !!!!

    Hallo zusammen,

    ich habe da einen Fehler in meinen kleine Programm entdeckt, für den ich im Moment keine Lösung finde !
    Ich öffne ein neues Form mache meine Eingaben und Speichere das alles in einer Access DB danach wird das Form wieder geschlossen und die Daten stehen auch in der Datenbank.
    Wenn ich aber sofort danach noch einen Eintrag machen will, hat der zweite Eintrag die Werte des ersten Eintrags usw.
    Das kann ich fortführen bis zur Unendlichkeit die neu eingegeben Daten werden nicht in die DB geschrieben immer nur die des ersten Eintrags.
    Logisch wenn ich das Programm schließe, klappt es wieder mit dem ersten Eintrag.

    Ich habe mal unten den Code gepostet, evtl. hat jemand einen Tipp was das Falsch läuft.

    Danke schon einmal für eure Antworten.

    Gruß Mario

    VB.NET-Quellcode

    1. ...
    2. ...
    3. Public Sub DBOpen()
    5. 'Datenbank bekant machen und DataGrid beim Form1_Load mit Daten Füllen
    6. HauptForm.con.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;" & "Data Source=" & My.Application.Info.DirectoryPath & "\Datenbank\Fangbuch.mdb"
    7. HauptForm.cmd.Connection = HauptForm.con
    8. End Sub
    10. Public Sub InsertDB()
    11. ' Bilder wenn ausgewählt Kopieren und Pfad in die Datenbank schreiben.
    13. Dim Bildpfad As String = ""
    14. If OpenFileDialog1.FileName <> "" Then
    15. Dim fileinfo As New IO.FileInfo(OpenFileDialog1.FileName)
    16. Bildpfad = My.Application.Info.DirectoryPath & "\Bilder\" & DateAndTime.Now.ToString("ddMMyyyyHHmmsstt-") & fileinfo.Name
    17. If My.Computer.FileSystem.DirectoryExists(My.Application.Info.DirectoryPath & "\Bilder") = True Then
    18. My.Computer.FileSystem.CopyFile(fileinfo.FullName, Bildpfad)
    19. End If
    20. End If
    22. 'Daten vorbereiten für den Eintrag in die Datenbank.
    23. Dim datum, Zeit As Date
    24. Dim Angler, laenge, gewicht, distanz, tiefe, lufttemp, luftdruck, wassertemp As Integer
    25. Dim methode, koedername, Fischart, koederart, gewaesser, ort, wasserstand, wassertruebung, wetter, windrichtung, windstaerke, bild As String
    26. Dim zurueck, nichtsgef As Boolean
    28. 'Interger Variabeln
    29. datum = DateTimePickerDatum.Value.ToShortDateString
    30. Zeit = DateTimePickerZeit.Value.ToShortTimeString
    31. laenge = CUInt(TextBoxFischlaenge.Text)
    32. gewicht = CUInt(TextBoxGewicht.Text)
    33. distanz = CUInt(TextBoxDistanz.Text)
    34. tiefe = CUInt(TextBoxTiefe.Text)
    35. lufttemp = CUInt(TextBoxLufttemp.Text)
    36. luftdruck = CUInt(TextBoxLuftdruck.Text)
    37. wassertemp = CUInt(TextBoxWasserTemp.Text)
    39. 'String Variabeln
    40. Fischart = ComboBoxFischart.Text
    41. methode = ComboBoxMethode.Text
    42. koedername = TextBoxName.Text
    43. koederart = ComboBoxKoederArt.Text
    44. gewaesser = TextBoxGewaesser.Text
    45. ort = TextBoxOrt.Text
    46. wasserstand = ComboBoxWasserstand.Text
    47. wassertruebung = ComboBoxwassertruebung.Text
    48. wetter = ComboBoxWetter.Text
    49. windrichtung = ComboBoxWindrichtung.Text
    50. windstaerke = ComboBoxWindstaerke.Text
    51. bild = Bildpfad
    53. 'Boolean Variabel
    54. zurueck = CheckBoxCatchandRelase.Checked
    55. nichtsgef = CheckBoxNichtsGefangen.Checked
    57. 'Nicht ausgewählte Felder Löschen um ein "" in die DB zu schreiben.
    58. If RichTextBox1.Text = "Kommentarfeld" Then RichTextBox1.Clear()
    59. If methode = "- Bitte Auswählen -" Then methode = ""
    60. If koedername = "- Bitte Auswählen -" Then koedername = ""
    61. If koederart = "- Bitte Auswählen -" Then koederart = ""
    62. If wasserstand = "- Bitte Auswählen -" Then wasserstand = ""
    63. If wassertruebung = "- Bitte Auswählen -" Then wassertruebung = ""
    64. If wetter = "- Bitte Auswählen -" Then wetter = ""
    65. If windrichtung = "- Bitte Auswählen -" Then windrichtung = ""
    66. If windstaerke = "- Bitte Auswählen -" Then windstaerke = ""
    68. 'Den ausgewählten Angler eine ID zuweisen aus der Tabelle Fänger.
    69. Try
    70. HauptForm.con.Open()
    71. HauptForm.cmd.CommandText = "SELECT FID FROM Faenger WHERE FName LIKE '%" & ComboBoxUser.SelectedItem.ToString & "'"
    72. HauptForm.Reader = HauptForm.cmd.ExecuteReader()
    73. Do While HauptForm.Reader.Read
    74. Angler = HauptForm.Reader("FID")
    75. Loop
    76. HauptForm.Reader.Close()
    77. Catch ex As Exception
    78. MsgBox(ex.Message)
    79. End Try
    80. HauptForm.con.Close()
    82. 'Daten in die Datenbank schreiben.
    84. Try
    85. HauptForm.con.Open()
    86. HauptForm.cmd.CommandText = "INSERT INTO Fangdaten (Datum, Zeit, Faenger ,Fischart, Laenge, Gewicht, Fangmethode, Distanz, Tiefe, Koedername, Koederart, Gewaesser, Ort, Wasserstand, Wassertruebung, Wetter, LuftTemp, Luftdruck, WasserTemp, Windrichtung, Windstaerke, Kommentar, Bild, Catch, NichtsGefangen) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
    87. Dim pDatum As New OleDbParameter With {.Value = datum}
    88. Dim pZeit As New OleDbParameter With {.Value = Zeit.ToLongTimeString}
    89. Dim pFaenger As New OleDbParameter With {.Value = Angler}
    90. Dim pFischart As New OleDbParameter With {.Value = Fischart}
    91. Dim pLaenge As New OleDbParameter With {.Value = laenge}
    92. Dim pGewicht As New OleDbParameter With {.Value = gewicht}
    93. Dim pFangmethode As New OleDbParameter With {.Value = methode}
    94. Dim pDistanz As New OleDbParameter With {.Value = distanz}
    95. Dim pTiefe As New OleDbParameter With {.Value = tiefe}
    96. Dim pKoedername As New OleDbParameter With {.Value = koedername}
    97. Dim pKoederart As New OleDbParameter With {.Value = koederart}
    98. Dim pGewaesser As New OleDbParameter With {.Value = gewaesser}
    99. Dim pOrt As New OleDbParameter With {.Value = ort}
    100. Dim pWasserstand As New OleDbParameter With {.Value = wasserstand}
    101. Dim pWassertruebung As New OleDbParameter With {.Value = wassertruebung}
    102. Dim pWetter As New OleDbParameter With {.Value = wetter}
    103. Dim pLuftTemp As New OleDbParameter With {.Value = lufttemp}
    104. Dim pLuftdruck As New OleDbParameter With {.Value = luftdruck}
    105. Dim pWasserTemp As New OleDbParameter With {.Value = wassertemp}
    106. Dim pWindrichtung As New OleDbParameter With {.Value = windrichtung}
    107. Dim pWindstaerke As New OleDbParameter With {.Value = windstaerke}
    108. Dim pKommentar As New OleDbParameter With {.Value = RichTextBox1.Text}
    109. Dim pBild As New OleDbParameter With {.Value = bild}
    110. Dim pCatch As New OleDbParameter With {.Value = zurueck}
    111. Dim pNichtgef As New OleDbParameter With {.Value = nichtsgef}
    113. HauptForm.cmd.Parameters.Add(pDatum)
    114. HauptForm.cmd.Parameters.Add(pZeit)
    115. HauptForm.cmd.Parameters.Add(pFaenger)
    116. HauptForm.cmd.Parameters.Add(pFischart)
    117. HauptForm.cmd.Parameters.Add(pLaenge)
    118. HauptForm.cmd.Parameters.Add(pGewicht)
    119. HauptForm.cmd.Parameters.Add(pFangmethode)
    120. HauptForm.cmd.Parameters.Add(pDistanz)
    121. HauptForm.cmd.Parameters.Add(pTiefe)
    122. HauptForm.cmd.Parameters.Add(pKoedername)
    123. HauptForm.cmd.Parameters.Add(pKoederart)
    124. HauptForm.cmd.Parameters.Add(pGewaesser)
    125. HauptForm.cmd.Parameters.Add(pOrt)
    126. HauptForm.cmd.Parameters.Add(pWasserstand)
    127. HauptForm.cmd.Parameters.Add(pWassertruebung)
    128. HauptForm.cmd.Parameters.Add(pWetter)
    129. HauptForm.cmd.Parameters.Add(pLuftTemp)
    130. HauptForm.cmd.Parameters.Add(pLuftdruck)
    131. HauptForm.cmd.Parameters.Add(pWasserTemp)
    132. HauptForm.cmd.Parameters.Add(pWindrichtung)
    133. HauptForm.cmd.Parameters.Add(pWindstaerke)
    134. HauptForm.cmd.Parameters.Add(pKommentar)
    135. HauptForm.cmd.Parameters.Add(pBild)
    136. HauptForm.cmd.Parameters.Add(pCatch)
    137. HauptForm.cmd.Parameters.Add(pNichtgef)
    139. HauptForm.cmd.ExecuteNonQuery()
    140. Catch ex As Exception
    141. MsgBox(ex.Message)
    142. End Try
    143. HauptForm.con.Close()
    144. HauptForm.DataGridLoad()
    145. Close()
    146. End Sub
    148. Public Sub UserLoad()
    149. 'Benutzer aus der Datenbank in die CoboBoxUser Laden
    150. Try
    151. HauptForm.con.Open()
    152. HauptForm.cmd.CommandText = "SELECT * FROM Faenger"
    153. HauptForm.Reader = HauptForm.cmd.ExecuteReader()
    154. ComboBoxUser.Items.Clear()
    155. ComboBoxUser.Items.Add("- Bitte Auswählen -")
    156. Do While HauptForm.Reader.Read
    157. ComboBoxUser.Items.Add(HauptForm.Reader("FName"))
    158. Loop
    159. HauptForm.Reader.Close()
    160. Catch ex As Exception
    161. MsgBox(ex.Message)
    162. End Try
    163. HauptForm.con.Close()
    164. 'Prüfen ob es einen User in der Datenbank gibt.
    165. If ComboBoxUser.Items.Count <> 0 Then
    166. ComboBoxUser.Text = ComboBoxUser.Items.Item(0)
    167. Else
    168. MsgBox("Es gibt keine User in der Datenbank.", MsgBoxStyle.Information)
    169. Close()
    170. End If
    171. ' CheckBoxen auf ersten Eintrag setzen !
    172. CheckBoxNichtsGefangen.Checked = False
    173. CheckBoxCatchandRelase.Checked = False
    174. ComboBoxFischart.Text = ComboBoxFischart.Items.Item(0)
    175. ComboBoxKoederArt.Text = ComboBoxKoederArt.Items.Item(0)
    176. ComboBoxWasserstand.Text = ComboBoxWasserstand.Items.Item(0)
    177. ComboBoxwassertruebung.Text = ComboBoxwassertruebung.Items.Item(0)
    178. ComboBoxWetter.Text = ComboBoxWetter.Items.Item(0)
    179. ComboBoxWindrichtung.Text = ComboBoxWindrichtung.Items.Item(0)
    180. ComboBoxWindstaerke.Text = ComboBoxWindstaerke.Items.Item(0)
    181. ComboBoxMethode.Text = ComboBoxMethode.Items.Item(0)
    182. TextBoxFischlaenge.Text = 0
    183. TextBoxGewicht.Text = 0
    184. TextBoxDistanz.Text = 0
    185. TextBoxTiefe.Text = 0
    186. TextBoxName.Clear()
    187. TextBoxGewaesser.Clear()
    188. TextBoxOrt.Clear()
    189. TextBoxLufttemp.Text = 0
    190. TextBoxWasserTemp.Text = 0
    191. TextBoxLuftdruck.Text = 0
    192. RichTextBox1.Text = "Kommentarfeld"
    193. PictureBox1.Image = New Bitmap(Fangbuch.My.Resources.Resources.NoImage)
    194. End Sub
    196. ....
    197. ....

    Einfacher wohl schon und auch viel weniger Code aber trotzdem sollte es bei mir auch klappen ohne DataSet ect.
    Es scheint ja nur irgendwo der Wurm im Code zu sein warum die Werte beim zweiten Eintrag vom ersten Eintrag stammen.

    na, und du glaubst, jemand im Forum wird dir nun deine 200 Zeilen Code debuggen? dass das ühaupt möglich sei, ohne deine gesammte Anwendung mal in eine IDE laden zu können? und nur, um dich in einem Ansatz zu unterstützen, den du vermutlich in nächster Zeit eh komplett verwerfen wirst?

    Ich will nicht das ich hier eine komplette Lösung Präsentiert bekomme nur ohne Code würde meine Frage auch nichts bringen denn ich glaube nicht das hier jemand eine Glaskugel hat.

    Will ja nur wissen ob jemand eine Tipp hat weil manchmal sucht man an den Falschen stellen überhaupt wenn man noch am Anfang steht.

    ErfinderDesRades schrieb:

    Und meinen Tipp habichja bereits abgegeben.

    Stimmt den habe ich auch berücksichtigt.
    Es ist ja nicht so das ich nicht für andere Möglichkeiten offen bin.

    Nur möchte ich nicht wegen einen Fehler alles umschreiben ohne zu wissen wo der Fehler lag.
    Aber um auf den Fehler zurück zu kommen, ich schätze mal das ich bei den Variablen gucken muss, obwohl meiner Meinung nach die ja bei jeden Aufruf Neu Initialisiert werden.

Facebook
Telefonspende