edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

bugfix

Browse Source
This commit is contained in:
d.breimaier
2025-12-19 13:51:31 +01:00
parent 55624819fc
commit ca608ec141
2 changed files with 22 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
View File

@@ -993,20 +993,20 @@ Public Class SQL
Else
cmd.ExecuteNonQuery()
'If id <= 0 Then
' Dim newcmd As New SqlCommand("SELECT CONVERT(int,isnull(@@IDENTITY,0))", conn)
' id = CInt(newcmd.ExecuteScalar)
' If id = 0 Then
' Dim newcmd2 As New SqlCommand("SELECT CONVERT(int,isnull(SCOPE_IDENTITY(),0))", conn)
' id = CInt(newcmd2.ExecuteScalar)
' End If
'End If
If id <= 0 Then
Using newcmd2 As New SqlCommand("SELECT CONVERT(int, ISNULL(SCOPE_IDENTITY(),0))", conn)
id = CInt(newcmd2.ExecuteScalar())
End Using
Dim newcmd As New SqlCommand("SELECT CONVERT(int,isnull(@@IDENTITY,0))", conn)
id = CInt(newcmd.ExecuteScalar)
If id = 0 Then
Dim newcmd2 As New SqlCommand("SELECT CONVERT(int,isnull(SCOPE_IDENTITY(),0))", conn)
id = CInt(newcmd2.ExecuteScalar)
End If
End If
'If id <= 0 Then
' Using newcmd2 As New SqlCommand("SELECT CONVERT(int, ISNULL(SCOPE_IDENTITY(),0))", conn)
' id = CInt(newcmd2.ExecuteScalar())
' End Using
'End If
End If
'Return True