С помощью процедуры в MS SQL выводится информация за определенный период. Эту информацию можно увидеть и в специально созданной форме. Теперь хочу сделать так, чтобы получать информацию только за предыдущий день - для этого изменил процедуру, добавив переменную и IF...ELSE. В форму добавил CheckBox, при выборе которого и можно увидеть, что было в предыдущий день. Но никак не могу понять, как описать это в своем коде, т.е. чтобы все было взаимосвязано !
Как решаются подобный задачи, есть ли наработанные шаблоны ?
Это хранимая процедура и мой код (Visual Basic).
@obj varchar(10), @k_uch varchar(10), @tab varchar(10), @pr_withLastdate int=1
AS
begin
set dateformat dmy
if @pr_withLastdate = 1
select *
from DIR_protocol_DataImport
where left(codDB,1)=(case @obj when 'FL' then '4' when 'UR' then '3' else left(codDB,1) end)
and codDB=(case when @k_uch='' then codDB else @k_uch end)
and isnull(tab,'')=(case when @tab='' then isnull(tab,'') else @tab end)
order by codDB,tab,id
else
select *
from DIR_protocol_DataImport
where left(codDB,1)=(case @obj when 'FL' then '4' when 'UR' then '3' else left(codDB,1) end)
and codDB=(case when @k_uch='' then codDB else @k_uch end)
and isnull(tab,'')=(case when @tab='' then isnull(tab,'') else @tab end)
and eddate<convert(datetime,convert(varchar(10),getdate(),104)) --без изменений текущего дня
order by codDB,tab,id
end```
А вот мой код.
```Public Sub proc_protocol()
Try
'regim: "protocol"
Grid_report.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.None
Me.Cursor = Cursors.WaitCursor
Dim v_sql As String = ""
Dim filtr_uch As String = "", filtr_tab As String = "", n_tab As Int16 = 0, last_date As Int16 = 0
If Check_uch.CheckedItems.Count() = 1 Then
filtr_uch = Check_uch.CheckedItems.Item(0)
filtr_uch = filtr_uch.Substring(1)
filtr_uch = filtr_uch.Substring(0, filtr_uch.IndexOf(")"))
End If
If Ch_0.Checked Then
n_tab += 1
filtr_tab = "0"
End If
If Ch_1.Checked Then
n_tab += 1
filtr_tab = "1"
End If
If Ch_2.Checked Then
n_tab += 1
filtr_tab = "2"
End If
If Ch_3.Checked Then
n_tab += 1
filtr_tab = "3"
End If
If Ch_4.Checked Then
n_tab += 1
filtr_tab = "4"
End If
If Ch_5.Checked Then
n_tab += 1
filtr_tab = "5"
End If
If Ch_6.Checked Then
n_tab += 1
filtr_tab = "6"
End If
If Ch_8.Checked Then
n_tab += 1
filtr_tab = "8"
End If
If Ch_9.Checked Then
n_tab += 1
filtr_tab = "9"
End If
If Ch_del.Checked Then
n_tab += 1
filtr_tab = "del"
End If
If Ch_lastDate.Checked Then
last_date = 1
n_tab += 1
filtr_tab = "last"
Else
last_date = 0
End If
If n_tab > 1 Then filtr_tab = ""
v_sql = "exec dbo.UP_DIR_sel_protocol_DataImport " + M_convert.FM_strSTR("FL") + "," + M_convert.FM_strSTR(filtr_uch) _
+ "," + M_convert.FM_strSTR(filtr_tab) + "," + last_date.ToString()
M_qSQL.Build_DGView(Me.Grid_report, v_sql)
Grid_report.Refresh()
Me.Cursor = Cursors.Default
Grid_report.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
Dim v_str = "Строк - " + Grid_report.RowCount.ToString
ToolStripStatusLabel1.Text = v_str
Catch ex As Exception
MessageBox.Show("Oшибка в процедуре " + ex.Message, Me.Text)
End Try
End Sub```
[![Это мой черновой вариант формы][1]][1]
[1]: https://i.stack.imgur.com/it8Pq.png