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.
Weis jemand, was ich eventuell vergessen haben könnte oder was ich anders machen muss?
Vielen Dank für eure Hilfe!
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
- Try
- con4.Open()
- cmd4.CommandText = "select * from Veranstaltungen where Datum = '" & chooseddatum & " 00:00:00'"
- Dim anzahl As Integer = cmd4.ExecuteNonQuery()
- If anzahl = 0 Then
- 'weiter ohne Raumüberprüfung
- datensatzspeichern()
- Exit Sub
- 'MsgBox("CommandText = " & cmd4.CommandText & vbCrLf & "anzahl = 0")
- 'Exit Sub
- ElseIf anzahl > 0 Then
- reader4 = cmd4.ExecuteReader()
- Do While reader4.Read()
- altbeginn = reader4("Beginn")
- altende = reader4("Ende")
- altraum = reader4("Raum")
- Loop
- reader4.Close()
- MsgBox("altbeginn = " & altbeginn & vbCrLf & "altende = " & altende)
- altbeginn = altbeginn.ToString().Replace(":", "")
- altende = altende.ToString().Replace(":", "")
- altbeginn = CInt(altbeginn)
- altende = CInt(altende)
- con4.Close()
- 'MsgBox("CommandText = " & cmd4.CommandText & vbCrLf & "anzahl > 0")
- 'Exit Sub
- End If
- Catch ex As Exception
- con4.Close()
- MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehlercode: 0017")
- Exit Sub
- End Try
- reader4.Close()
- con4.Close()
Weis jemand, was ich eventuell vergessen haben könnte oder was ich anders machen muss?
Vielen Dank für eure Hilfe!