存储过程为 Create Proc P_InsImg (@iInt int, @MyByte Image(16) ) as insert into MyImageTable Values(@iInt,@MyByte)如下方式调用: 1.获得二进制值 Dim FileLen As Long Dim MyString As String = "" Dim MyStream As System.IO.Stream FileLen = myfile.ContentLength Dim tmp(FileLen) As Byte MyStream = myfile.InputStream Dim ii As Long For ii = 0 To FileLen - 1 tmp(ii) = MyStream.ReadByte() Next 2、调用存储过程 Dim cmdSql As New SqlCommand() Dim ParamUser As New SqlParameter() Dim ParamBarCode As New SqlParameter() cmdSql.CommandText = "P_GetUserBarRight" '取出该用户该的存储过程 cmdSql.CommandType = CommandType.StoredProcedure cmdSql.Connection = SqlConn.appConn ParamUser = cmdSql.Parameters.Add("@iInt", SqlDbType.Int) ParamUser.Direction = ParameterDirection.Input ParamUser.Value = 1 '输入参数一 ParamBarCode = cmdSql.Parameters.Add("@MyByte ", SqlDbType.Binary,FileLen) ParamBarCode.Direction = ParameterDirection.Input ParamBarCode.Value =tmp(ii) '输入参数二 cmdSql.ExecuteNonQuery() '执行
Create Proc P_InsImg
(@iInt int,
@MyByte Image(16)
)
as
insert into MyImageTable Values(@iInt,@MyByte)如下方式调用:
1.获得二进制值
Dim FileLen As Long
Dim MyString As String = ""
Dim MyStream As System.IO.Stream
FileLen = myfile.ContentLength
Dim tmp(FileLen) As Byte
MyStream = myfile.InputStream
Dim ii As Long
For ii = 0 To FileLen - 1
tmp(ii) = MyStream.ReadByte()
Next
2、调用存储过程
Dim cmdSql As New SqlCommand()
Dim ParamUser As New SqlParameter()
Dim ParamBarCode As New SqlParameter()
cmdSql.CommandText = "P_GetUserBarRight" '取出该用户该的存储过程
cmdSql.CommandType = CommandType.StoredProcedure
cmdSql.Connection = SqlConn.appConn
ParamUser = cmdSql.Parameters.Add("@iInt", SqlDbType.Int)
ParamUser.Direction = ParameterDirection.Input
ParamUser.Value = 1 '输入参数一
ParamBarCode = cmdSql.Parameters.Add("@MyByte ", SqlDbType.Binary,FileLen)
ParamBarCode.Direction = ParameterDirection.Input
ParamBarCode.Value =tmp(ii)
'输入参数二
cmdSql.ExecuteNonQuery() '执行