Er spreichert den datensatz nicht

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Lightsource.

    Er spreichert den datensatz nicht

    Hallo zusammen, ich habe ein form .. wenn ich button1 - übernehmen klicke speichert er mmir den datensatz nicht ab,
    warum nicht ? Die überpruefung klappt... wenn ich was weg lasse meckert er artig.

    hier mal den code...

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. 'Felder und werte überpruefen
    3. If ComboBox2.Text = "" Or Nothing Then
    4. MsgBox(" Bitte erst eine Anrede auswählen !", MsgBoxStyle.Exclamation, "Achtung, Problem mit Inhalt im Eingabefeld Anrede !")
    5. ComboBox2.Focus()
    6. ElseIf ComboBox3.Text = "" Or Nothing Then
    7. MsgBox(" Bitte erst eine Briefanrede auswählen !", MsgBoxStyle.Exclamation, "Achtung, Problem mit Inhalt im Eingabefeld Briefanrede")
    8. ComboBox3.Focus()
    9. ElseIf ComboBox4.Text = "" Or Nothing Then
    10. MsgBox(" Bitte erst ein Land auswählen !", MsgBoxStyle.Exclamation, "Achtung, Problem mit Inhalt im Eingabefeld Land")
    11. ComboBox3.Focus()
    12. ElseIf TextBox3.Text = "" Or Nothing Then
    13. MsgBox(" Bitte erst einen Familiennamen eingben !", MsgBoxStyle.Exclamation, "Achtung, Problem mit Inhalt im Eingabefeld Briefanrede")
    14. TextBox3.Focus()
    15. ElseIf TextBox4.Text = "" Or Nothing Then
    16. MsgBox(" Bitte erst einen Straßenamen eingben !", MsgBoxStyle.Exclamation, "Achtung, Problem mit Inhalt im Eingabefeld Straßenamen")
    17. TextBox4.Focus()
    18. ElseIf ComboBox5.Text = "" Or Nothing Then
    19. MsgBox(" Bitte erst ein Bundesland auswählen !", MsgBoxStyle.Exclamation, "Achtung, Problem mit Inhalt im Eingabefeld Bundesland")
    20. ComboBox5.Focus()
    21. ElseIf TextBox5.Text = "" Or Nothing Then
    22. MsgBox(" Bitte erst eine Hausnummer eingben !", MsgBoxStyle.Exclamation, "Achtung, Problem mit Inhalt im Eingabefeld Hausnummer")
    23. TextBox5.Focus()
    24. ElseIf TextBox6.Text = "" Or Nothing Then
    25. MsgBox(" Bitte erst eine Postleitzahl eingben !", MsgBoxStyle.Exclamation, "Achtung, Problem mit Inhalt im Eingabefeld Postleitzahl")
    26. TextBox6.Focus()
    27. ElseIf TextBox7.Text = "" Or Nothing Then
    28. MsgBox(" Bitte erst einen Ortsnamen eingben !", MsgBoxStyle.Exclamation, "Achtung, Problem mit Inhalt im Eingabefeld Ortsnamen")
    29. TextBox7.Focus()
    30. ElseIf TextBox8.Text = "" Or Nothing Then
    31. MsgBox(" Bitte erst eine Telefon Vorwahl eingben !", MsgBoxStyle.Exclamation, "Achtung, Problem mit Inhalt im Eingabefeld Telefon Vorwahl")
    32. TextBox8.Focus()
    33. ElseIf TextBox9.Text = "" Or Nothing Then
    34. MsgBox(" Bitte erst eine Telefon Nummer eingben !", MsgBoxStyle.Exclamation, "Achtung, Problem mit Inhalt im Eingabefeld Telefon Nummer")
    35. TextBox9.Focus()
    36. ElseIf TextBox1.Text <> "" Then
    37. Dim tl1 As Integer = TextBox1.Text.Length
    38. If tl1 < 3 Then
    39. MsgBox(" Firmenname ist zu Kurz !", MsgBoxStyle.Exclamation, "Achtung, Problem mit Inhalt im Eingabefeld Firma")
    40. TextBox1.Focus()
    41. End If
    42. ElseIf TextBox2.Text <> "" Then
    43. Dim tl2 As Integer = TextBox2.Text.Length
    44. If tl2 < 3 Then
    45. MsgBox(" Vorname ist zu kurz !", MsgBoxStyle.Exclamation, "Achtung, Problem mit Inhalt im Eingabefeld Vorname")
    46. TextBox2.Focus()
    47. End If
    48. ElseIf TextBox3.Text <> "" Then
    49. Dim tl3 As Integer = TextBox3.Text.Length
    50. If tl3 < 3 Then
    51. MsgBox(" Zuname ist zu kurz !", MsgBoxStyle.Exclamation, "Achtung, Problem mit Inhalt im Eingabefeld Zuname")
    52. TextBox3.Focus()
    53. End If
    54. ElseIf TextBox4.Text <> "" Then
    55. Dim tl4 As Integer = TextBox4.Text.Length
    56. If tl4 < 3 Then
    57. MsgBox(" Straßenname ist zu kurz !", MsgBoxStyle.Exclamation, "Achtung, Problem mit Inhalt im Eingabefeld Straßennname")
    58. TextBox4.Focus()
    59. End If
    60. ElseIf TextBox6.Text <> "" Then
    61. Dim tl6 As Integer = TextBox6.Text.Length
    62. If tl6 < 4 Then
    63. MsgBox(" PLZ ist zu kurz !", MsgBoxStyle.Exclamation, "Achtung, Problem mit Inhalt im Eingabefeld PLZ")
    64. TextBox6.Focus()
    65. ElseIf tl6 > 5 Then
    66. MsgBox(" PLZ ist zu lang !", MsgBoxStyle.Exclamation, "Achtung, Problem mit Inhalt im Eingabefeld PLZ")
    67. TextBox6.Focus()
    68. End If
    69. ElseIf TextBox7.Text <> "" Then
    70. Dim tl7 As Integer = TextBox4.Text.Length
    71. If tl7 < 3 Then
    72. MsgBox(" Ortsname ist zu kurz !", MsgBoxStyle.Exclamation, "Achtung, Problem mit Inhalt im Eingabefeld Ortsname")
    73. TextBox7.Focus()
    74. End If
    75. ElseIf TextBox8.Text <> "" Then
    76. Dim tl8 As Integer = TextBox4.Text.Length
    77. If tl8 < 3 Then
    78. MsgBox(" Vorwahl ist zu kurz !", MsgBoxStyle.Exclamation, "Achtung, Problem mit Inhalt im Eingabefeld Vorwahl")
    79. TextBox8.Focus()
    80. End If
    82. ElseIf TextBox9.Text <> "" Then
    83. Dim tl9 As Integer = TextBox4.Text.Length
    84. If tl9 < 4 Then
    85. MsgBox(" Telefonnr ist zu kurz !", MsgBoxStyle.Exclamation, "Achtung, Problem mit Inhalt im Eingabefeld Telefonnummer")
    86. TextBox9.Focus()
    87. End If
    88. If RadioButton3.Checked = False And RadioButton4.Checked = False And RadioButton5.Checked = False And RadioButton6.Checked = False Then
    89. MsgBox("Bitte Art der Telefonnummer auswählen !", MsgBoxStyle.Exclamation, "Achtung, Problem mit Auswahl der Telefonnummern Artr")
    90. End If
    92. ElseIf TextBox10.Text <> "" Then
    93. Dim tl10 As Integer = TextBox10.Text.Length
    94. If tl10 < 10 Then
    95. MsgBox(" Emailadresse ist zu kurz !", MsgBoxStyle.Exclamation, "Achtung, Problem mit Inhalt im Eingabefeld E-Mailadresse")
    96. TextBox10.Focus()
    97. End If
    99. If TextBox10.Text.Contains("@") Then
    100. MsgBox(" Emailadresse hat kein @ Zeichen !", MsgBoxStyle.Exclamation, "Achtung, Problem mit Inhalt im Eingabefeld E-Mailadresse")
    101. TextBox10.Focus()
    102. End If
    104. Dim tvax As String = TextBox10.Text
    105. Dim tva0() = Split(tvax, "@")
    106. Dim tval As String = tva0(0).Length
    107. Dim tnal As String = tva0(1).Length
    108. Dim tld0() = Split(tvax, ".")
    109. Dim tldlwert As Integer = tld0.Count - 1
    110. Dim tld As String = tld0(tldlwert).Length
    111. If tval < 3 Then
    112. MsgBox(" Emailadresse ist vorm @ zeichen zu kurz !", MsgBoxStyle.Exclamation, "Achtung, Problem mit Inhalt im Eingabefeld E-Mailadresse")
    113. TextBox10.Focus()
    114. ElseIf tnal < 3 Then
    115. MsgBox(" Emailadresse ist nach @ zeichen zu kurz !", MsgBoxStyle.Exclamation, "Achtung, Problem mit Inhalt im Eingabefeld E-Mailadresse")
    116. TextBox10.Focus()
    117. End If
    119. If tld < 2 Then
    120. MsgBox(" die TLD-Kennung der Emailadresse ist zu kurz !", MsgBoxStyle.Exclamation, "Achtung, Problem mit Inhalt im Eingabefeld E-Mailadresse")
    121. TextBox10.Focus()
    122. End If
    123. MsgBox(" überpruefen problem ")
    124. Else
    125. MsgBox(" überpruefen abgeschlossen ") ' Die hier geht schon nicht.. grrr...
    126. 'Kundendaten Speichern
    128. 'lnr holen
    129. Dim lnr0 As Integer = 0
    130. Dim sql1 As String = "select lnr from users order by lnr desc "
    131. Dim con1 As New MySqlConnection
    132. Dim cmd1 As New MySqlCommand(sql1, con1)
    133. Dim myAdapter1 As New MySqlDataAdapter
    134. con1.ConnectionString = "server='" & dbh & "';" _
    135. & "uid='" & dbu & "';" _
    136. & "pwd='" & dbp & "';" _
    137. & "database='" & dbd & "';"
    138. Try
    139. con1.Open() ' Verbindung öffnen
    140. Catch myerror As MySqlException
    141. MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString) ' Falls Fehler : Fehler anzeigen
    142. End Try
    143. Try
    144. lnr0 = cmd1.ExecuteScalar
    145. con1.Close()
    146. Catch ex As Exception
    147. MsgBox(ex.Message & " Problem neuer anlage kdnr")
    148. Finally
    149. End Try
    152. 'Anrede und geschlecht auswerten
    153. Dim selectedIndexA As Integer
    154. selectedIndexA = ComboBox1.SelectedIndex
    155. Dim selectedItemA As Object
    156. selectedItemA = ComboBox1.SelectedItem.Split("/").GetValue(0)
    157. Dim selectedItemG As Object
    158. selectedItemG = ComboBox1.SelectedItem.Split("/").GetValue(1)
    159. Dim wertA As String
    160. wertA = selectedItemA
    161. Dim wertG1 As String
    162. Dim wertG As String
    163. wertG1 = selectedItemG
    164. wertG = Replace(wertG1, " ", "")
    166. 'briefanrede auswerten
    167. Dim selectedIndexB As Integer
    168. selectedIndexB = ComboBox2.SelectedIndex
    169. Dim selectedItemB As Object
    170. selectedItemB = ComboBox2.SelectedItem.Split("/").GetValue(0)
    171. Dim wertB As String
    172. wertB = selectedItemB
    174. Dim spart As String = ""
    175. Dim felder As String = ""
    176. Dim werte As String = ""
    177. Dim insert As String = ""
    179. Dim con As New MySqlConnection
    180. Dim myAdapter As New MySqlDataAdapter
    181. con.ConnectionString = "server='" & dbh & "';" _
    182. & "uid='" & dbu & "';" _
    183. & "pwd='" & dbp & "';" _
    184. & "database='" & dbd & "';"
    185. Try
    186. con.Open() ' Verbindung öffnen
    187. con.Close()
    188. Catch myerror As MySqlException
    189. MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString) ' Falls Fehler : Fehler anzeigen
    190. End Try
    191. Dim ath As String = "NULL"
    192. Dim n0 As String = "0"
    193. Dim n1 As String = ""
    194. Dim statu = "active"
    195. Dim tipe As String = "sing"
    196. Dim hkd As String = "t"
    197. Dim kart As String = "Lieferung"
    198. Dim art As String = "ku"
    199. Dim telfp As String = ""
    200. Dim telmp As String = ""
    201. Dim telff As String = ""
    202. Dim telmf As String = ""
    203. Dim emailp As String = ""
    204. Dim emailg As String = ""
    205. Dim lnr1 As String = lnr0 + 1
    206. Dim lnr As String = lnr1.ToString
    207. If tart = "fp" Then
    208. telfp = Label23.Text
    209. telmp = n1
    210. telff = n1
    211. telmf = n1
    212. emailp = TextBox10.Text
    213. emailg = n1
    214. ElseIf tart = "mp" Then
    215. telfp = n1
    216. telmp = Label23.Text
    217. telff = n1
    218. telmf = n1
    219. emailp = TextBox10.Text
    220. emailg = n1
    221. ElseIf tart = "ff" Then
    222. telfp = n1
    223. telmp = n1
    224. telff = Label23.Text
    225. telmf = n1
    226. emailp = n1
    227. emailg = TextBox10.Text
    228. ElseIf tart = "ff" Then
    229. telfp = n1
    230. telmp = n1
    231. telff = n1
    232. telmf = Label23.Text
    233. emailp = n1
    234. emailg = TextBox10.Text
    235. End If
    236. spart = "INSERT INTO users"
    237. felder = "(id,uid,auth,pwd,email,fname,lname,addr,city,state,country,zipcode,phone,datesignup,status,type,Anrede,hkd,art,kdnr,hnr,gphone,mobile,gmobile,fax,gfax,gemail,vkart,lnr,banrede,firma,geb)"
    238. ' id, uid, auth, pwd, email, fname, lname, addr, city, state, country, zipcode, phone, datesignup, status, type, Anrede, hkd, art, kdnr, hnr, gphone, mobile, gmobile, fax, gfax, gemail, vkart, lnr, banrede, firma, geb
    239. werte = "('" & Label13.Text & "','" & n0 & "'," & ath & ",'" & n0 & "','" & emailp & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox7.Text & "','" & Label22.Text & "','" & Label21.Text & "','" & TextBox6.Text & "','" & telfp & "','" & Label15.Text & "','" & statu & "','" & tipe & "','" & wertG & "','" & hkd & "','" & art & "','" & Label3.Text & "','" & TextBox5.Text & "','" & telff & "','" & telmf & "','" & telmf & "','" & n1 & "','" & n1 & "','" & emailg & "','" & kart & "','" & lnr & "','" & wertB & "','" & TextBox1.Text & "','" & n1 & "')"
    241. Dim sqls As String = "" & spart & felder & "values" & werte & ""
    242. Dim cmds As New MySqlCommand(sqls, con)
    243. Dim anzahls As Integer '= 0
    245. Try
    246. con.Open()
    247. anzahls = cmds.ExecuteNonQuery()
    248. con.Close()
    249. SP0 = "ja"
    250. MsgBox(SP0)
    251. Catch myerror As MySqlException
    252. MsgBox("Fehler bei speichern" & myerror.Message.ToString) ' Falls Fehler : Fehler anzeigen
    253. End Try
    256. End If
    257. If SP0 = "ja" Then
    258. MsgBox(" Adresse ist gespeichert ")
    259. Me.Close()
    261. End If
    264. End Sub


    thx schon mal ronaldl

    Hast du schon mal den Begriff gehört:

    Teile und herrsche!

    Das trifft jedenfalls nicht auf deinen Code zu.
    Das ist mir jetzt doch etwas mühsam, mich durch diesen Code zu quälen.
    Es wäre viel übersichtlicher, wenn du verschiedene Teile in einzelne Funktionen packen würdest.
    Dann wäre es auch für dich leichter Fehler zu finden. Setze dir ein Limit von sagen wir mal 10
    Zeilen Code für jede Funktion.
    Wenn möglich trenne die Eventhandler wie z.B. Buttonclick von den Datenbankfunktionen.
    Schreibe dir meinetwegen eine Klasse, die nur für die Datenbanksachen zuständig ist.
    Dann eine Klasse, die Eingabefehler checkt etc.