neu

2019-09-10 13:51:31 +02:00
parent 8f8b0f4252
commit 021cce6f04
48 changed files with 6001 additions and 727 deletions
--- a/VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb
@@ -235,7 +235,7 @@ Public Class cKunde
            MsgBox("Fehler: KundenNr <= 0!")
            Return False
        End If
-        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Kunden /*WITH(updlock,serializable)*/ WHERE KundenNr=@KundenNr) " &
+        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Kunden WHERE KundenNr=@KundenNr) " &
                       " BEGIN " & getUpdateCmd() & " END " &
                       " Else " &
                       " BEGIN " & getInsertCmd() & " END " &