This commit is contained in:
Digital Data - Marlon Schreiber
2019-03-26 16:47:02 +01:00
parent 0a4720c931
commit 5daf8617ed
18 changed files with 1850 additions and 801 deletions

View File

@@ -406,10 +406,10 @@ Public Class frmEntities
Private Sub btnCreateEntityTable_Click(sender As Object, e As EventArgs) Handles btnCreateEntityTable.Click
Dim CurrentID = GetCurrentGUID()
EXECUTE_STATEMENT = String.Format("DECLARE @return_value int " & vbNewLine &
"EXEC @return_value = dbo.PRPMO_CREATE_ENTITY_TABLE {0}" & vbNewLine &
"EXEC @return_value = dbo.PRPMO_CREATE_ENTITY_TABLE {0}" & vbNewLine &
"IF @return_value = 0 EXEC @return_value = [dbo].[PRPMO_CREATE_ENTITY_TABLE_VIEW] {0}" & vbNewLine &
"SELECT 'Return Value' = @return_value", CurrentID)
ProgressPanel1.Description = "Creating the Entity-table....."
ProgressPanel1.Description = "Creating the Entity-table..."
ProgressPanel1.Visible = True
btncancel.Visible = True
'.. und starten