测试的小段代码vb.net-sql存储过程

测试的小段代码vb.net-sql存储过程

VB.Net代码测试 byte 如何使用。

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim bt() As Byte
        If bt Is Nothing Then
            MsgBox("bt is nothing")
        End If
        ReDim bt(1)
        bt(0) = CByte(0)
        bt(1) = CByte(22)
        If bt IsNot Nothing Then
            MsgBox("bt isnot nothing")
            MsgBox(bt(0).ToString & "0--22" & bt(1).ToString)
        End If
    End Sub
 

存储过程，用来更新sql server数据库 图片字段的内容。

CREATE PROCEDURE ItemImgBinarySUpdate
@ItemNo nvarchar(50),
@ImgBinary image=null,
@ImgBinary2nd image=null
AS
declare @RowC int
if  @ImgBinary is not null
Begin
Update [ItemImgTB] Set ImgBinary=@ImgBinary Where ItemNo=@ItemNo
set @RowC=@@RowCount
End
if  @ImgBinary2nd is not null
Begin
Update [ItemImgTB] Set ImgBinary2nd=@ImgBinary2nd Where ItemNo=@ItemNo
set @RowC=@RowC+@@RowCount
End
Select @RowC
GO

 
存储过程，用来删除sql server数据库 图片字段的内容。
CREATE PROCEDURE ItemImgBinarySDelete
@ItemNo nvarchar(50),
@ImgDeleteFlag smallint
--1删除第一 2删除第二个 3两个都删除
As
If @ImgDeleteFlag=1
Update [ItemImgTB] Set ImgBinary=null Where ItemNo=@ItemNo
Else If @ImgDeleteFlag=2
Update [ItemImgTB] Set ImgBinary2nd=null Where ItemNo=@ItemNo
Else If @ImgDeleteFlag=3
Update [ItemImgTB] Set ImgBinary=null,ImgBinary2nd=null Where ItemNo=@ItemNo
Select @@RowCount
GO