效率至少差5倍以上
pcon.ConnectionString = ConnectionString
padp.InsertCommand = New System.Data.SqlClient.SqlCommand()
With padp.InsertCommand
.Connection = pcon
.CommandText = "ins ert into A(FileID,imgFileAttachment) values (@intFileID,@img)"
If .Connection.State <> Data.ConnectionState.Open Then
.Connection.Open()
End If
Dim param As System.Data.SqlClient.SqlParameter
param = .Parameters.Add("@intFileID", System.Data.SqlDbType.Int)
param.Value = FileID
param = .Parameters.Add("@img", System.Data.SqlDbType.Image)
Dim fs As New System.IO.FileStream(SourceFileFullName, System.IO.FileMode.Open, System.IO.FileAccess.Read, System.IO.FileShare.ReadWrite) '用文件流打开图片
Dim br As New System.IO.BinaryReader(fs) '根据文件流,申明一个二进制阅读器
param.Value = br.ReadBytes(fs.Length)
.ExecuteNonQuery()
.Connection.Close()
br.Close()
fs.Close()