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

Final fixes before vacation \o/

Browse Source
This commit is contained in:
Jonathan Jenne
2019-08-08 16:24:31 +02:00
parent aa84e977b9
commit eeb38b5849
21 changed files with 1180 additions and 777 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
app/DD_Clipboard_Searcher/MyDataset.Designer.vb generated
View File

@@ -12032,16 +12032,28 @@ Namespace MyDatasetTableAdapters
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 TBCW_PROF_REL_CONTROL.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_PROF_REL_CONTROL"
Me._commandCollection(0).CommandText = "SELECT TBCW_PROF_REL_CONTROL.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_PROF_REL_CONTROL WHER"& _
"E PROCESS_NAME = @PROCESS_NAME AND WINDOW_ID = @WINDOW_ID AND PROFILE_ID = @PROF"& _
"ILE_ID"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_NAME", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
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, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_PROF_REL_CONTROLDataTable) As Integer
Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_PROF_REL_CONTROLDataTable, ByVal PROCESS_NAME As String, ByVal WINDOW_ID As Integer, ByVal PROFILE_ID As Integer) As Integer
Me.Adapter.SelectCommand = Me.CommandCollection(0)
If (PROCESS_NAME Is Nothing) Then
Throw New Global.System.ArgumentNullException("PROCESS_NAME")
Else
Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROCESS_NAME,String)
End If
Me.Adapter.SelectCommand.Parameters(1).Value = CType(WINDOW_ID,Integer)
Me.Adapter.SelectCommand.Parameters(2).Value = CType(PROFILE_ID,Integer)
If (Me.ClearBeforeFill = true) Then
dataTable.Clear
End If
@@ -12053,8 +12065,15 @@ Namespace MyDatasetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
Public Overloads Overridable Function GetData() As MyDataset.TBCW_PROF_REL_CONTROLDataTable
Public Overloads Overridable Function GetData(ByVal PROCESS_NAME As String, ByVal WINDOW_ID As Integer, ByVal PROFILE_ID As Integer) As MyDataset.TBCW_PROF_REL_CONTROLDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
If (PROCESS_NAME Is Nothing) Then
Throw New Global.System.ArgumentNullException("PROCESS_NAME")
Else
Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROCESS_NAME,String)
End If
Me.Adapter.SelectCommand.Parameters(1).Value = CType(WINDOW_ID,Integer)
Me.Adapter.SelectCommand.Parameters(2).Value = CType(PROFILE_ID,Integer)
Dim dataTable As MyDataset.TBCW_PROF_REL_CONTROLDataTable = New MyDataset.TBCW_PROF_REL_CONTROLDataTable()
Me.Adapter.Fill(dataTable)
Return dataTable