AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

jj: fix dataset query

Browse Source
This commit is contained in:
Jonathan Jenne 2018-06-13 14:18:54 +02:00
parent 31fc4d5a70
commit fb2dd26013
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb generated
View File

@ -20727,16 +20727,18 @@ Namespace DD_DMSLiteDataSetTableAdapters
" WHERE (SHORT_NAME = 'PM'))) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"AND (T.GROUP_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " WHERE (SHORT_NAME = 'PM'))) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"AND (T.GROUP_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" (SELECT GROUP_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM "& _ " (SELECT GROUP_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM "& _
" TBPM_PROFILE_GROUP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (PROFIL_ID"& _ " TBPM_PROFILE_GROUP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (PROFIL_ID"& _
" = 2)))" " = @PROFILE_ID)))"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text 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, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
Public Overloads Overridable Function FillByProfileId_NotAssigned(ByVal dataTable As DD_DMSLiteDataSet.TBDD_GROUPSDataTable) As Integer Public Overloads Overridable Function FillByProfileId_NotAssigned(ByVal dataTable As DD_DMSLiteDataSet.TBDD_GROUPSDataTable, ByVal PROFILE_ID As Integer) As Integer
Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand = Me.CommandCollection(0)
Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer)
If (Me.ClearBeforeFill = true) Then If (Me.ClearBeforeFill = true) Then
dataTable.Clear dataTable.Clear
End If End If
@ -20748,8 +20750,9 @@ Namespace DD_DMSLiteDataSetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
Public Overloads Overridable Function GetDataByProfileId_NotAssigned() As DD_DMSLiteDataSet.TBDD_GROUPSDataTable Public Overloads Overridable Function GetDataByProfileId_NotAssigned(ByVal PROFILE_ID As Integer) As DD_DMSLiteDataSet.TBDD_GROUPSDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand = Me.CommandCollection(0)
Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer)
Dim dataTable As DD_DMSLiteDataSet.TBDD_GROUPSDataTable = New DD_DMSLiteDataSet.TBDD_GROUPSDataTable() Dim dataTable As DD_DMSLiteDataSet.TBDD_GROUPSDataTable = New DD_DMSLiteDataSet.TBDD_GROUPSDataTable()
Me.Adapter.Fill(dataTable) Me.Adapter.Fill(dataTable)
Return dataTable Return dataTable

6
app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd
View File

@ -1923,8 +1923,10 @@ WHERE (T.MODULE_ID =
AND (T.GROUP_ID NOT IN AND (T.GROUP_ID NOT IN
(SELECT GROUP_ID (SELECT GROUP_ID
FROM TBPM_PROFILE_GROUP FROM TBPM_PROFILE_GROUP
WHERE (PROFIL_ID = 2)))</CommandText> WHERE (PROFIL_ID = @PROFILE_ID)))</CommandText>
<Parameters /> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="PROFILE_ID" ColumnName="" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROFILE_ID" Precision="0" Scale="0" Size="4" SourceColumn="" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand> </DbCommand>
</SelectCommand> </SelectCommand>
</DbSource> </DbSource>