MS

GUIs.ZooFlow/frmtest.vb

@@ -81,4 +81,17 @@ Public Class frmtest
         oForm.BringToFront()
         oForm.Focus()
     End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) 
+        Dim oSQL = $"Declare @LAST_SN_ID BIGINT
+                EXEC PRIDB_NEW_DYNAMIC_FOLDER '{TextBox2.Text}','{My.Application.User.UserName}',1,@LAST_SN_ID OUTPUT
+                SELECt @LAST_SN_ID"
+
+        Dim oNodeID As Integer
+        oNodeID = My.DatabaseIDB.GetScalarValue(oSQL)
+
+        If IsNothing(oNodeID) = False Then
+
+        End If
+    End Sub
 End Class