update ElementModel

This commit is contained in:
Jonathan Jenne 2023-09-27 09:53:52 +02:00
parent b2342b6758
commit e3a81bfdbf

View File

@ -122,7 +122,6 @@ Public Class ElementModel
,[HEIGHT]
,[REQUIRED]
,[READ_ONLY]
,[STATUS]
,[PAGE])
VALUES
(@DOCUMENT_ID
@ -134,7 +133,6 @@ Public Class ElementModel
,@HEIGHT
,@REQUIRED
,@READ_ONLY
,@STATUS
,@PAGE)"
Dim oCommand As New SqlCommand(oSql)
@ -147,7 +145,6 @@ Public Class ElementModel
oCommand.Parameters.Add("HEIGHT", SqlDbType.Float).Value = pElement.Height
oCommand.Parameters.Add("REQUIRED", SqlDbType.Bit).Value = pElement.Required
oCommand.Parameters.Add("READ_ONLY", SqlDbType.Bit).Value = pElement.ReadOnly
oCommand.Parameters.Add("STATUS", SqlDbType.NVarChar).Value = pElement.Status.ToString
oCommand.Parameters.Add("PAGE", SqlDbType.Int).Value = pElement.Page
If Database.ExecuteNonQuery(oCommand) Then