向SQL SERVER 中插入二进制数据.docVIP

在VB时期, 向SQL SERVER 中插入二进制数据, 是通过 ADODB.STREAM 实现, 在.NET中, 对 “流”格式的操作更加强大而简单,本篇演示向SQL SERVER 中插入数据并读出的功能.在窗体上添加一个 OPENFILEDIALOG 控件, 两个PICTUREBOX, 代码如下:--------------------------------------------------------------------------------------------??? Imports System.IOPublic Class Form1??? Inherits System.Windows.Forms.Form??? Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click??????? Me.Dispose(True)??? End Sub ??? Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click??????? If ofdPic.ShowDialog = DialogResult.OK Then??????????? pbPreview.Image = Image.FromFile(ofdPic.FileName)??????? End If??? End Sub ??? Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click??????? If pbPreview.Image Is Nothing Then??????????? MsgBox(请先选择图片, MsgBoxStyle.Exclamation)??????????? Exit Sub??????? End If??????? Dim fs As FileStream = New FileStream(ofdPic.FileName, FileMode.Open, FileAccess.Read)??????? Dim bt(fs.Length) As Byte??????? fs.Read(bt, 0, fs.Length)??????? fs.Close()??????? fs = Nothing??????? Dim sqlConn As SqlClient.SqlConnection = New SqlClient.SqlConnection(Server=(local);User Id=sa;Password=123;Database=pubs)??????? sqlConn.Open()??????? Dim sqlCmd As New SqlClient.SqlCommand(sp_InsertImage, sqlConn)??????? sqlCmd.CommandType = CommandType.StoredProcedure????????sqlCmd.Parameters.Add(@img, SqlDbType.Image).Value = bt??????? sqlCmd.ExecuteNonQuery()??????? sqlCmd = Nothing??????? sqlConn.Close()??????? sqlConn = Nothing??????? MsgBox(图片插入成功, MsgBoxStyle.Information)??? End Sub ??? Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click??????? Dim sqlConn As SqlClient.SqlConnection = New SqlClient.SqlConnection(Server=(local);User Id=sa;Password=123;Database=pubs)??????? sqlConn.Open()??????? Dim sqlCmd As New SqlClient.Sq