Code in Select Case wird nicht bei betätigung des Buttons ausgeführt

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

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von fabimaurice.

    Code in Select Case wird nicht bei betätigung des Buttons ausgeführt

    Hey ich bins mal wieder :),

    Mein Problem ist folgendes:
    Ich lege sobald sich die Form als Dialog öffnet den sogenannten FormMode fest, dieser wäre einmal FrmMode.Add und einmal FrmMode.Delete.
    Ausführen tut er jedoch nur den oberen der beiden Codes in dem Fall jetzt also Add der andere Code wird im anderen FrmMode Fall nicht ausgeführt bei betätigung des Buttons.

    VB.NET-Quellcode

    1. Private Sub BtnAddUserpcAdd_Click(sender As Object, e As EventArgs) Handles BtnOk.Click
    2. Dim con As New OleDbConnection()
    3. Dim cmd As New OleDbCommand
    5. Select Case ActiveFrmMode
    7. Case FrmMode.Add
    9. con.ConnectionString = Conn
    10. cmd.Connection = con
    12. cmd.Parameters.Clear()
    13. cmd.CommandText = "Insert into UserPc (pc_id, u_id) Values (@pcid, @uid)"
    14. cmd.Parameters.AddWithValue("@pcid", DgvUserPc.CurrentRow.Cells(0).Value)
    15. cmd.Parameters.AddWithValue("@uid", UserId)
    17. con.Open()
    18. cmd.ExecuteNonQuery()
    19. con.Close()
    20. MessageBox.Show("Sucess")
    21. Close()
    22. Case FrmMode.Delete
    24. con.ConnectionString = Conn
    25. cmd.Connection = con
    27. cmd.Parameters.Clear()
    28. cmd.CommandText = "Delete From UserPc where pc_id = @pcid and u_id = @uid"
    29. cmd.Parameters.AddWithValue("@pcid", DgvUserPc.CurrentRow.Cells(0).Value)
    30. cmd.Parameters.AddWithValue("@uid", UserId)
    32. con.Open()
    33. cmd.ExecuteNonQuery()
    34. con.Close()
    35. MessageBox.Show("Sucess")
    36. Close()
    37. End Select
    38. End Sub


    Hab überprüft ob der richtige FrmMode drinne ist da stimmt alles der Code selbst funktioniert auch prima sobald er jedoch in einem Select Case an unterer Stelle steht gehts nichtmehr.

    Falls euch was einfällt wäre mir Hilfe gelegen ^^.

    MfG
    Fabian

    *Topic verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    @fabimaurice Schon mal mit Debuggen probiert?
    Debuggen, Fehler finden und beseitigen
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    RodFromGermany schrieb:

    @fabimaurice Schon mal mit Debuggen probiert?

    Habs gerade eben gelöst, hatte es mit Debuggen probiert der Fehler ist aber schon beim Dialogaufruf auf anderer Form entstanden :whistling: .

    Aber durch dich bin ich tatsächlich nochmal alles durchgegangen was damit zusammenhängt um sicher zu gehen. Hast mir also trotzdem geholfen :) Danke.

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

    Nur so nebenbei, diesen Select Case Block kann man halbieren:

    VB.NET-Quellcode

    1. con.ConnectionString = Conn
    3. cmd.Connection = con
    4. cmd.Parameters.Clear()
    6. Select Case ActiveFrmMode
    7. Case FrmMode.Add
    8. cmd.CommandText = "Insert into UserPc (pc_id, u_id) Values (@pcid, @uid)"
    9. Case FrmMode.Delete
    10. cmd.CommandText = "Delete From UserPc where pc_id = @pcid and u_id = @uid"
    11. End Select
    13. cmd.Parameters.AddWithValue("@pcid", DgvUserPc.CurrentRow.Cells(0).Value)
    14. cmd.Parameters.AddWithValue("@uid", UserId)
    16. con.Open()
    18. cmd.ExecuteNonQuery()
    20. con.Close()
    22. MessageBox.Show("Sucess")
    23. Close()


    Das macht es in meinen Augen wesentlich lesbarer. (Manche würden noch die 7 Leerzeilen entfernen, aber das ist nun wirklich reine Geschmackssache)

    EaranMaleasi schrieb:

    Nur so nebenbei, diesen Select Case Block kann man halbieren:


    Danke :) dann werd ich das mal so übernehmen macht ja auch mehr Sinn als alles Doppelt zu verwenden wenn ich nach dem Command eh z.B cmd.ExecuteNonQuery ausführe reicht es auch wenn ich das nur einmal mache:S.

    Mfg
    Fabian