Sql server 使用WindowsForm在Visual Basic中创建过程和复选框

Sql server 使用WindowsForm在Visual Basic中创建过程和复选框,sql-server,vb.net,stored-procedures,Sql Server,Vb.net,Stored Procedures,问题。 如何在创建过程中使用VB中的更改请求复选框? 例如。: 这是我的sql代码和Visual Basic代码。 提供一定时间内数据和前一天数据的过程。Windows窗体中显示的数据。 如果选中复选框-前一天的数据, 如果不检查-在一定时间内提供数据 ALTER PROCEDURE [dbo].[UP_DIR_sel_protocol_DataImport] @obj varchar(10), @k_uch varchar(10), @tab varchar(10), @pr_wi

问题。 如何在创建过程中使用VB中的更改请求复选框? 例如。: 这是我的sql代码和Visual Basic代码。 提供一定时间内数据和前一天数据的过程。Windows窗体中显示的数据。 如果选中复选框-前一天的数据, 如果不检查-在一定时间内提供数据

ALTER PROCEDURE [dbo].[UP_DIR_sel_protocol_DataImport]  
    @obj varchar(10), @k_uch varchar(10), @tab varchar(10), @pr_withLastdate int
AS
begin

set dateformat dmy

if (@pr_withLastdate = 0)
begin
    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
end
if (@pr_withLastdate = 1)
begin
    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

end

所以,我知道如何在VB中使用复选框来创建过程中的更改请求^^

我应该加上,。。。在我的VB代码中:D 非常感谢你的帮助

公共子过程协议() 尝试 雷吉姆:“协议” 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,最后日期为整数 '... '... '... 如果Chu lastDate.Checked则 最后日期=1 n_tab+=1 过滤器选项卡=“最后一个” 其他的 最后日期=0 如果结束 如果n_tab>1,则filter_tab=“” **v_sql=“exec dbo.UP\u DIR\u sel\u protocol\u DataImport”_ +“@obj=“+M_convert.FM_strSTR(“FL”)_ +“,@k_uch=“+M_convert.FM_strSTR(filter_uch)_ +“,@tab=“+M_convert.FM_strSTR(过滤器选项卡)_ +“,@pr_withLastdate=“+last_date.ToString()`这是创建过程中的@pr_withLastdate更改请求** M_qSQL.Build_DGView(Me.Grid_报告,v_sql) '... '... '... 结束尝试 端接头
您的问题到底是什么?您做了什么,什么工作不正常,出现了什么样的错误等?我不明白如何从过程中通过Windows窗体中的Visual Basic上一个数据中的复选框。请将3个反勾放在各自的行上。在一个同时标有
[sql server]
[vb.net]
的问题中,将
lang vb
放在vb代码块的前3个反勾旁边,以防止它被语法突出显示为SQLServer您使用的
last_date(“”
last_date.ToString()
令人困惑。请发布解释它们的代码(这是一个重载方法吗?)