MS WindreamPathNewVersion

This commit is contained in:
Digital Data - Marlon Schreiber
2018-12-19 17:51:23 +01:00
parent 4967b0ee36
commit 33c867325c
7 changed files with 31 additions and 26 deletions

View File

@@ -21956,9 +21956,9 @@ Namespace DD_DMSLiteDataSetTableAdapters
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT SequentialOrder, USER_ID, USER_NAME, USER_PRENAME, USER_SURNAME, USER_"& _
"SHORTNAME, USER_EMAIL, USER_LANGUAGE, USER_COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM dbo.FNPM_GET_FRE"& _
"E_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE_USER_FOR_PROFILE_1"
Me._commandCollection(0).CommandText = "SELECT SequentialOrder, USER_ID, USER_NAME, USER_PRENAME, USER_SURNAME, US"& _
"ER_SHORTNAME, USER_EMAIL, USER_LANGUAGE, USER_COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM dbo.FNPM_"& _
"GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE_USER_FOR_PROFILE_1"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
End Sub