ExecuteNonQuery Problem

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Grasdackel1996.

    ExecuteNonQuery Problem

    Hi,

    ich arbeite gerade an einer Raumverwaltungssoftware. Beim Erstellen einer neuen Veranstaltung soll überprüft werden, ob der gewünschte Raum zur eingegebenen Zeit verfügbar ist. Mein Programm arbeitet im Hintergrund mit einer Access-Datenbank(.mdb), in der alle Veranstaltungen eingetragen werden. Allerdings ergibt sich bei mir folgendes Problem: Bei der Abfrage, ob an dem ausgewähltem Tag eine Veranstaltung stattfindet, ist ExecuteNonQuery fälschlicherweise 0 (siehe Bild).

    Ich poste nicht den kompletten Code, da dieser viel zu lang wäre.

    VB.NET-Quellcode

    1. Try
    2. con4.Open()
    3. cmd4.CommandText = "select * from Veranstaltungen where Datum = '" & chooseddatum & " 00:00:00'"
    5. Dim anzahl As Integer = cmd4.ExecuteNonQuery()
    6. If anzahl = 0 Then
    7. 'weiter ohne Raumüberprüfung
    8. datensatzspeichern()
    9. Exit Sub
    11. 'MsgBox("CommandText = " & cmd4.CommandText & vbCrLf & "anzahl = 0")
    12. 'Exit Sub
    13. ElseIf anzahl > 0 Then
    14. reader4 = cmd4.ExecuteReader()
    15. Do While reader4.Read()
    16. altbeginn = reader4("Beginn")
    17. altende = reader4("Ende")
    18. altraum = reader4("Raum")
    19. Loop
    20. reader4.Close()
    22. MsgBox("altbeginn = " & altbeginn & vbCrLf & "altende = " & altende)
    24. altbeginn = altbeginn.ToString().Replace(":", "")
    25. altende = altende.ToString().Replace(":", "")
    27. altbeginn = CInt(altbeginn)
    28. altende = CInt(altende)
    30. con4.Close()
    32. 'MsgBox("CommandText = " & cmd4.CommandText & vbCrLf & "anzahl > 0")
    33. 'Exit Sub
    34. End If
    35. Catch ex As Exception
    36. con4.Close()
    37. MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehlercode: 0017")
    38. Exit Sub
    39. End Try
    40. reader4.Close()
    41. con4.Close()




    Weis jemand, was ich eventuell vergessen haben könnte oder was ich anders machen muss?
    Vielen Dank für eure Hilfe!
    Bilder

    • Fehler2.JPG

      60,22 kB, 704×445, 183 mal angesehen

    ich rate dir ganz ab, da gleich mit einer DB ranzugehen. Die Verwaltungslogik schreibste viel einfacher mit DB-Programmierung ohne Datenbank
    Hier noch eine weitere Begründung: Datenbänkerei-Einstieg

    gugge auch mal [VB 2008] Personaleinsatz-Programm, da ist eine fast identische Anforderung schon sehr weitgehend durchkonzpiert gewesen.

    Deine Idee ist gut, kommt für mich leider nicht in frage, da mein Code ausgedruckt über 30 Seiten lang ist. Ich müsst also an sehr vielen Stellen etwas verändern. Mein "Kunde" hat außerdem schon ein bestehendes System mit einer Datenbank und meine Software soll sich an dieses System anpassen.

    Ist es mit deiner Variante überhaupt möglich, Einschränkungen festzulegen (wie z.B. in SQL mit der where-Klausel)?

    Grasdackel1996 schrieb:

    ...über 30 Seiten lang ist. Ich müsst also an sehr vielen Stellen etwas verändern.
    ähm - du müsstest ganz neu anfangen.
    Ich weiß jetzt nicht, wieviele der 30 Seiten sich mit Persistierung beschäftigen - das würde sich bei DatasetOnly ja ungefähr auf 30 Zeilen reduzieren.

    Zu den Einschränkungen gugge DataExpressions

    na, dann eben mit DB: "Datenbank in 10 Minuten" auf Movie-Tuts

    Der Witz am Dataset ist, dasses eiglich Bestandteil des Ado.Net - Datenzugriffskonzepts ist. gugge auch die auf der Site verlinkten Beth Massi - Videos an.

    naja - jetzt habichmal dein code angeguckt - lies mal im ObjectBrowser nach, was diese Methode zurückgibt.

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

Facebook
Telefonspende