Auf vorhandenen gleichen Eintrag prüfen bevor gespeichert wird

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

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von Typhoon.

    Auf vorhandenen gleichen Eintrag prüfen bevor gespeichert wird

    Hallo liebes Forum

    Ich möchte bevor ich ein INSERT mache prüfen, ob in der Tabelle/Spalte schon ein Eintrag mit einem gleiche Wert vorhanden ist.

    Beispiel:

    In der Tabelle 'Test1' ist eine Spalte 'Nummer' mit dem Eintrag ' M BD 147 '

    Jetzt mache ich einen neuen INSERT in die Tabelle 'Test1' und trage für 'Nummer' ' M BD 147' ein.
    Spätesten jetzt sollte eine Meldung erscheinen "Eintrag schon vorhanden"

    Leider bin ich mit Suchen nicht weiter gekommen.

    Vielleicht kann mir einer von euch Profis ein Beispiel oder ein Link zukommen lassen.

    Gruß und Danke

    Gebhard

    Wie wäre es, vor dem Insert eine Abfrage (Select) zu machen die das prüft?
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    Hallo mrMo

    Es gibt im Netz sehr viele 'Select' beispiele. Aber welches trifft auf mich zu?

    Hier ist mein INSERT Code:

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports MySql.Data.MySqlClient
    3. Public Class FormAuswahlAuto
    5. Dim IMG_FileNameInput As String
    6. Dim StatusInput As String = "Save"
    8. Private Sub ClearInputUpdateData()
    10. TextBoxFormAuswahlAutoMarke.Text = ""
    11. TextBoxFormAuswahlAutoModell.Text = ""
    12. TextBoxFormAuswahlAutoKennzeichen.Text = ""
    13. TextBoxFormAuswahlAutokmgesamt.Text = ""
    14. ComboBoxAuswahlAutoEneregie.Text = ""
    15. DateTimePickerBaujahr.Text = Now
    16. TextBoxFormAuswahlAutoPS.Text = ""
    18. End Sub
    20. Private Sub ButtonFormAuswahlAutoHinzufügen_Click(sender As Object, e As EventArgs) Handles ButtonFormAuswahlAutoHinzufügen.Click
    22. Dim mstream As New System.IO.MemoryStream()
    23. Dim arrImage() As Byte
    25. If TextBoxFormAuswahlAutoMarke.Text = "" Then
    26. MessageBox.Show("Es muss eine Marke eingegeben werden", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Error)
    27. Return
    28. End If
    30. If TextBoxFormAuswahlAutoModell.Text = "" Then
    31. MessageBox.Show("Es muss ein Modell eingegeben werden", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Error)
    32. Return
    33. End If
    35. If TextBoxFormAuswahlAutoKennzeichen.Text = "" Then
    36. MessageBox.Show("Es muss ein Kennzeichen eingegeben werden", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Error)
    37. Return
    38. End If
    40. If TextBoxFormAuswahlAutokmgesamt.Text = "" Then
    41. MessageBox.Show("Es muss der Gesamt Kilometerstand eingegeben werden", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Error)
    42. Return
    43. End If
    45. If ComboBoxAuswahlAutoEneregie.Text = "" Then
    46. MessageBox.Show("Es muss die Energie eingegeben werden", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Error)
    47. Return
    48. End If
    50. If TextBoxFormAuswahlAutoPS.Text = "" Then
    51. MessageBox.Show("Es muss die Eingetragene PS eingegeben werden", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Error)
    52. Return
    53. End If
    55. If StatusInput = "Save" Then
    56. If IMG_FileNameInput <> "" Then
    57. PictureBoxImageAuto.Image.Save(mstream, System.Drawing.Imaging.ImageFormat.Jpeg)
    58. arrImage = mstream.GetBuffer()
    59. Else
    60. MessageBox.Show("Es wurde kein Bild ausgewählt !!!", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Error)
    61. Return
    62. End If
    63. End If
    65. Try
    67. Schreibekfz(TextBoxFormAuswahlAutoMarke.Text, TextBoxFormAuswahlAutoModell.Text, TextBoxFormAuswahlAutoKennzeichen.Text, TextBoxFormAuswahlAutokmgesamt.Text, ComboBoxAuswahlAutoEneregie.Text, DateTimePickerBaujahr.Text, TextBoxFormAuswahlAutoPS.Text, arrImage)
    69. Catch myerror As MySql.Data.MySqlClient.MySqlException
    71. 'Fehler Meldung und Fehlercode anzeigen
    72. MessageBox.Show("Es ist ein Fehler aufgetreten" & vbCrLf & myerror.Message & vbCrLf & "Errorcode: " & myerror.Number, "MySQL Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    74. End Try
    76. MsgBox("Das Auto wurde erfolgreich angelegt", MsgBoxStyle.Information, "Information")
    77. IMG_FileNameInput = ""
    79. ClearInputUpdateData()
    81. End Sub
    83. Private Sub FormAuswahlAuto_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    85. Try
    87. 'prüfen ob connect funktion fehlerarray zurückgibt
    89. Dim myConnectArray = ConnectDatabase()
    91. If IsArray(myConnectArray) Then
    93. 'wenn ja, dann fehlermeldung anzeigen
    94. MessageBox.Show("Verbindung zum Server konnte nicht geöffnet werden:" & vbCrLf & myConnectArray(0) & vbCrLf & "Errorcode: " & myConnectArray(1), "MySQL Server Verbindung", MessageBoxButtons.OK, MessageBoxIcon.Error)
    96. ElseIf myConnectArray = vbBoolean And myConnectArray = True Then
    98. 'wenn nein und rückgabe = wahr
    100. 'erfolg anzeigen
    101. If myDebug = True Then MessageBox.Show("Verbindung offen", "MySQL Server Verbindung", MessageBoxButtons.OK, MessageBoxIcon.Information)
    103. 'connectState auf wahr setzen
    104. connectState = True
    106. Else
    108. 'wenn nein und rückgabe = falsch
    110. 'bereits bestehende Verbindung melden
    111. If myDebug = True Then MessageBox.Show("Verbindung besteht bereits", "MySQL Server Verbindung", MessageBoxButtons.OK, MessageBoxIcon.Information)
    113. 'connectState auf wahr setzen
    114. connectState = True
    116. End If
    118. Catch myerror As MySql.Data.MySqlClient.MySqlException
    120. 'Fehler abfangen
    122. 'fehler meldung und fehlercode anzeigen
    123. MessageBox.Show("Es ist ein Fehler aufgetreten" & vbCrLf & myerror.Message & vbCrLf & "Fehlercode: " & myerror.Number, "MySQL Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    125. End Try
    127. End Sub
    129. Private Sub Populate_Datagridview_From_MySQL_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    131. Dim table As New DataTable("table")
    132. Dim adapter As New MySqlDataAdapter("SELECT * FROM carmanager2.tbl_kfz", con)
    134. adapter.Fill(table)
    136. DataGridViewFormAuswahlAuto.DataSource = table
    138. 'Hintergrundfarbe anpassen
    139. DataGridViewFormAuswahlAuto.DefaultCellStyle.BackColor = Color.AliceBlue
    141. 'Überschrift anpassen
    142. DataGridViewFormAuswahlAuto.Columns("id").HeaderText = "ID"
    143. DataGridViewFormAuswahlAuto.Columns("marke").HeaderText = "Marke"
    144. DataGridViewFormAuswahlAuto.Columns("modell").HeaderText = "Modell"
    145. DataGridViewFormAuswahlAuto.Columns("kennzeichen").HeaderText = "Kennzeichen"
    146. DataGridViewFormAuswahlAuto.Columns("kmgesamt").HeaderText = "Aktueller Kilometerstand"
    147. DataGridViewFormAuswahlAuto.Columns("energie").HeaderText = "Energie"
    148. DataGridViewFormAuswahlAuto.Columns("bj").HeaderText = "Baujahr"
    149. DataGridViewFormAuswahlAuto.Columns("ps").HeaderText = "Eingetragene PS"
    150. DataGridViewFormAuswahlAuto.Columns("image").HeaderText = "Bild Auto"
    152. 'alle spalten auf nur lesen setzen
    153. DataGridViewFormAuswahlAuto.Columns("marke").ReadOnly = True
    154. DataGridViewFormAuswahlAuto.Columns("modell").ReadOnly = True
    155. DataGridViewFormAuswahlAuto.Columns("kennzeichen").ReadOnly = True
    156. DataGridViewFormAuswahlAuto.Columns("kmgesamt").ReadOnly = True
    157. DataGridViewFormAuswahlAuto.Columns("energie").ReadOnly = True
    158. DataGridViewFormAuswahlAuto.Columns("bj").ReadOnly = True
    159. DataGridViewFormAuswahlAuto.Columns("ps").ReadOnly = True
    160. DataGridViewFormAuswahlAuto.Columns("image").ReadOnly = True
    162. 'Spalte ID und PS verstecken
    163. DataGridViewFormAuswahlAuto.Columns(0).Visible = False
    164. DataGridViewFormAuswahlAuto.Columns(7).Visible = False
    165. DataGridViewFormAuswahlAuto.Columns(8).Visible = False
    167. End Sub
    169. Private Sub DataGridViewFormAuswahlAuto_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridViewFormAuswahlAuto.CellContentClick
    171. If e.RowIndex >= 0 Then
    173. Dim row As DataGridViewRow
    175. row = Me.DataGridViewFormAuswahlAuto.Rows(e.RowIndex)
    177. TextBoxFormAuswahlAutoMarke.Text = row.Cells("marke").Value.ToString
    178. TextBoxFormAuswahlAutoModell.Text = row.Cells("modell").Value.ToString
    179. TextBoxFormAuswahlAutoKennzeichen.Text = row.Cells("kennzeichen").Value.ToString
    180. TextBoxFormAuswahlAutokmgesamt.Text = row.Cells("kmgesamt").Value.ToString
    181. ComboBoxAuswahlAutoEneregie.Text = row.Cells("energie").Value.ToString
    182. DateTimePickerBaujahr.Text = row.Cells("bj").Value.ToString
    183. TextBoxFormAuswahlAutoPS.Text = row.Cells("ps").Value.ToString
    185. Dim bytes As [Byte]() = row.Cells("image").Value
    186. Dim ms As New MemoryStream(bytes)
    188. PictureBoxImageAuto.Image = Image.FromStream(ms)
    190. End If
    192. End Sub
    194. Private Sub ButtonFormAuswahlAutoFelderLöschen_Click(sender As Object, e As EventArgs) Handles ButtonFormAuswahlAutoFelderLöschen.Click
    196. ClearInputUpdateData()
    198. End Sub
    200. Private Sub ButtonFormAuswahlAutoBearbeiten_Click(sender As Object, e As EventArgs) Handles ButtonFormAuswahlAutoBearbeiten.Click
    202. FormMain.TextBoxMarke.Text = TextBoxFormAuswahlAutoMarke.Text
    203. FormMain.TextBoxKennzeichen.Text = TextBoxFormAuswahlAutoKennzeichen.Text
    205. FormMain.Show()
    207. End Sub
    209. Private Sub ButtonFormAuswahlAutoBeenden_Click(sender As Object, e As EventArgs) Handles ButtonFormAuswahlAutoBeenden.Click
    211. Me.Close()
    213. End Sub
    215. Private Sub PictureBoxImageAuto_Click(sender As Object, e As EventArgs) Handles PictureBoxImageAuto.Click
    217. OpenFileDialog1.FileName = ""
    218. OpenFileDialog1.Filter = "JPEG (*.jpeg;*.jpg)|*.jpeg;*.jpg"
    220. If (OpenFileDialog1.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
    221. IMG_FileNameInput = OpenFileDialog1.FileName
    222. PictureBoxImageAuto.ImageLocation = IMG_FileNameInput
    223. End If
    225. End Sub
    227. End Class


    Wo Deiner Meinung nach sollte die 'SELECT' abfrage eingefügt werden?

    Ein Beispiel wo ich gefunden habe mir aber nicht ganz sicher bin ob das Funktioniert:

    VB.NET-Quellcode

    1. (SELECT COUNT(*) FROM Bla WHERE ID = Blubb) und wenn Count = 0 ist, dann INSERT sonst UPDATE


    Gruß Gebhard

    Ein Beispiel wo ich gefunden habe mir aber nicht ganz sicher bin ob das Funktioniert:


    einfach probieren.

    die Überprüfung könnte so aussehen

    VB.NET-Quellcode

    1. '......
    2. Dim sSql As String = "select count(*) from Test" & _
    3. " Where Nummer = @Nummer"
    6. Using cmd As New OleDbCommand(sSql, Cn)
    7. cmd.Parameters.AddWithValue("@Nummer", TextBox1.Text)
    9. Dim Result As String = CStr(cmd.ExecuteScalar)
    11. If CDbl(Result) = 0 Then
    12. 'nicht in Datenbank Tabelle , also dein Insert
    14. End If
    15. Cn.Close()
    16. End Using
    18. Else
    20. MessageBox.Show ( deine Meldung das Nummer xxxx bereits vorhanden ist

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

    ohne Code kann ich dir nicht sagen was falsch ist.


    versuche es so

    VB.NET-Quellcode

    1. Private Function KFZExists(fNum As String) As Boolean
    2. Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;data source=E:\Adressen.mdb")
    3. con.Open()
    4. Dim cmd As OleDbCommand = con.CreateCommand
    5. cmd.CommandText = "Select Count(*) From Test1 Where Nummer = @xNummer"
    6. cmd.Parameters.AddWithValue("@xNummer", TextBox1.Text)
    7. KFZExists = Convert.ToInt32(cmd.ExecuteScalar()) > 0
    8. MessageBox.Show(CStr(IIf(KFZExists, "KFZ-Nummer vorhanden", "KFZ noch nicht angelegt")))
    9. con.Close()
    10. End Function
    12. 'ich habe jetzt einfach TextBox1_LostFocus genommen, wo und wann du Prüfen willst ??
    13. Private Sub TextBox1_LostFocus(sender As Object, e As System.EventArgs) Handles TextBox1.LostFocus
    14. KFZExists(TextBox1.Text)
    15. End Sub

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

    @Kasi

    Hier ist mein INSERT-Code:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub FormAddCarButtonAddCar_Click(sender As Object, e As EventArgs) Handles FormAddCarButtonAddCar.Click
    3. Dim mstream As New System.IO.MemoryStream()
    4. Dim arrImage() As Byte
    6. If FormAddCarTextBoxBrand.Text = "" Then
    7. MessageBox.Show("Es muss eine Marke eingegeben werden", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Error)
    8. Return
    9. End If
    11. If FormAddCarTextBoxModel.Text = "" Then
    12. MessageBox.Show("Es muss ein Modell eingegeben werden", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Error)
    13. Return
    14. End If
    16. If FormAddCarTextBoxLicenseplateboard.Text = "" Then
    17. MessageBox.Show("Es muss ein Kennzeichen eingegeben werden", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Error)
    18. Return
    19. End If
    21. If FormAddCarTextBoxEnergy.Text = "" Then
    22. MessageBox.Show("Es muss die Energie eingegeben werden", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Error)
    23. Return
    24. End If
    26. If FormAddCarTextBoxPower.Text = "" Then
    27. MessageBox.Show("Es muss die Eingetragene PS eingegeben werden", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Error)
    28. Return
    29. End If
    31. If FormAddCarTextBoxInsurance.Text = "" Then
    32. MessageBox.Show("Es muss die Monatlicher Versicherung eingegeben werden", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Error)
    33. Return
    35. End If
    37. If StatusInput = "Save" Then
    38. If IMG_FileNameInput <> "" Then
    39. FormAddCarPictureBoxmycar.Image.Save(mstream, System.Drawing.Imaging.ImageFormat.Jpeg)
    40. arrImage = mstream.GetBuffer()
    41. Else
    42. MessageBox.Show("Es wurde kein Bild ausgewählt !!!", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Error)
    43. Return
    44. End If
    46. End If
    48. Try
    50. Schreibekfz(FormAddCarTextBoxBrand.Text, FormAddCarTextBoxModel.Text, FormAddCarTextBoxLicenseplateboard.Text, FormAddCardatetimepickerSettingsConstructionYear.Value, FormAddCarTextBoxEnergy.Text, FormAddCarTextBoxPower.Text, FormAddCarTextBoxInsurance.Text, arrImage)
    52. Catch myerror As MySql.Data.MySqlClient.MySqlException
    54. 'Fehler Meldung und Fehlercode anzeigen
    55. MessageBox.Show("Es ist ein Fehler aufgetreten" & vbCrLf & myerror.Message & vbCrLf & "Errorcode: " & myerror.Number, "MySQL Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    57. End Try
    59. MsgBox("Das Auto wurde erfolgreich in der Datenbank angelegt", MsgBoxStyle.Information, "Information")
    60. IMG_FileNameInput = ""
    62. ClearInputUpdateData()
    64. End Sub


    Und das ist Schreibekfz

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports MySql.Data.MySqlClient
    3. Module Writekfz
    5. Public Function Schreibekfz(myMarke, mymodell, mykennzeichen, mycardateofconstruction, myenergie, myps, myversicherung, myImage)
    7. Dim MySQLCMD = New MySqlCommand
    8. With MySQLCMD
    9. .CommandText = "INSERT INTO `carmanager`.`tbl_kfz` (`marke`, `modell`, `kennzeichen`, `car_date_of_construction`, `energie`, `ps`, `versicherung`, `image`) VALUES (@marke, @modell, @kennzeichen, @car_date_of_construction, @energie, @ps, @versicherung, @image);"
    10. .Connection = con
    11. .Parameters.AddWithValue("@marke", myMarke)
    12. .Parameters.AddWithValue("@modell", mymodell)
    13. .Parameters.AddWithValue("@kennzeichen", mykennzeichen)
    14. .Parameters.AddWithValue("@car_date_of_construction", mycardateofconstruction)
    15. .Parameters.AddWithValue("@energie", myenergie)
    16. .Parameters.AddWithValue("@ps", myps)
    17. .Parameters.AddWithValue("@versicherung", myversicherung)
    18. .Parameters.AddWithValue("@image", myImage)
    19. .ExecuteNonQuery()
    21. End With
    23. Return False
    25. End Function
    27. End Module


    Die Datenbank ist phpmyadmin.

    Ich frage mich wo ich die Abfrage mache damit nicht das gleiche 'Kennzeichen' eingetragen werden kann.

    Gruß Gebhard

    Typhoon schrieb:


    Ich frage mich wo ich die Abfrage mache damit nicht das gleiche 'Kennzeichen' eingetragen werden kann.


    Vor dem Aufruf von der Methode Schreibekfz
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    OK. Ich habe etwas herumprobiert.
    Mit folgendem Code wird jetzt zwar die Meldung "KFZ-Nummer voranden" angezeigt aber trotzdem mach das Programm den Eintrag.

    VB.NET-Quellcode

    1. End If
    3. End If
    5. '### hier wird auf vorhandenen eintrag geprüft
    6. Dim kfzExists As String
    8. Dim cmd As MySqlCommand = con.CreateCommand
    10. cmd.CommandText = "Select Count(*) From carmanager.tbl_kfz Where kennzeichen = @kennzeichen"
    12. cmd.Parameters.AddWithValue("@kennzeichen", FormAddCarTextBoxLicenseplateboard.Text)
    14. kfzExists = Convert.ToInt32(cmd.ExecuteScalar()) > 0
    16. MessageBox.Show(CStr(IIf(kfzExists, "KFZ-Nummer vorhanden", "KFZ noch nicht angelegt")))
    18. Try
    20. Schreibekfz(FormAddCarTextBoxBrand.Text, FormAddCarTextBoxModel.Text, FormAddCarTextBoxLicenseplateboard.Text, FormAddCardatetimepickerSettingsConstructionYear.Value, FormAddCarTextBoxEnergy.Text, FormAddCarTextBoxPower.Text, FormAddCarTextBoxInsurance.Text, arrImage)
    22. Catch myerror As MySql.Data.MySqlClient.MySqlException
    24. 'Fehler Meldung und Fehlercode anzeigen
    25. MessageBox.Show("Es ist ein Fehler aufgetreten" & vbCrLf & myerror.Message & vbCrLf & "Errorcode: " & myerror.Number, "MySQL Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    27. End Try
    29. MsgBox("Das Auto wurde erfolgreich in der Datenbank angelegt", MsgBoxStyle.Information, "Information")
    30. IMG_FileNameInput = ""
    32. ClearInputUpdateData()
    34. End Sub
    Bilder

    • Bild1.jpg

      312,1 kB, 990×1.026, 47 mal angesehen

    • Bild2.jpg

      307,16 kB, 984×1.026, 45 mal angesehen

    • Bild3.jpg

      327,43 kB, 990×1.020, 36 mal angesehen

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

    In Zeile 14 prüfst du korrekt - wie du ja schon selbst festgestellt hast - ob ein entsprechendes Kfz angelegt ist. Was jetzt noch fehlt ist eine Fallunterscheidung, die diesen Wert berücksichtigt und je nach Ergebnis die entsprechende Aktion (Fehlermeldung / anlegen) triggert.

    VB.NET-Quellcode

    1. If Convert.ToInt32(cmd.ExecuteScalar()) > 0 then
    2. 'Kfz existiert schon -> Fehlermeldung
    3. Else
    4. 'Kfz existiert noch nicht -> anlegen
    5. End If

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

    @Kasi

    Hab´s hinbekommen. :D

    @ChristianT.

    Besten Dank!! Jetz klappt´s.

    Für alle hier der Codeausschnitt:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. '### hier wird auf vorhandenen eintrag geprüft
    2. Dim cmd As MySqlCommand = con.CreateCommand
    4. cmd.CommandText = "Select Count(*) From carmanager.tbl_kfz Where kennzeichen = @kennzeichen"
    6. cmd.Parameters.AddWithValue("@kennzeichen", FormAddCarTextBoxLicenseplateboard.Text)
    8. If Convert.ToInt32(cmd.ExecuteScalar()) > 0 Then
    10. MsgBox("Kennzeichen " & FormAddCarTextBoxLicenseplateboard.Text & " exestiert bereits", MsgBoxStyle.Information, "Hinweis")
    12. Else
    14. Try
    16. Schreibekfz(FormAddCarTextBoxBrand.Text, FormAddCarTextBoxModel.Text, FormAddCarTextBoxLicenseplateboard.Text, FormAddCardatetimepickerSettingsConstructionYear.Value, FormAddCarTextBoxEnergy.Text, FormAddCarTextBoxPower.Text, FormAddCarTextBoxInsurance.Text, arrImage)
    18. Catch myerror As MySql.Data.MySqlClient.MySqlException
    20. 'Fehler Meldung und Fehlercode anzeigen
    21. MessageBox.Show("Es ist ein Fehler aufgetreten" & vbCrLf & myerror.Message & vbCrLf & "Errorcode: " & myerror.Number, "MySQL Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    23. End Try
    25. MsgBox("Das Auto wurde erfolgreich in der Datenbank angelegt", MsgBoxStyle.Information, "Information")
    26. IMG_FileNameInput = ""
    28. ClearInputUpdateData()
    30. End If


    Gruß und Danke

    Gebhard

Facebook
Telefonspende