.net中使用SQL Server的Image字段类型储存图片

有时候，我们需要将图片直接储存到数据中。

这样做，会导至I/O开销大。但是可以方便数据库的迁移。

比方说，一个人事系统。原来放在主机A上面使用。现在要转移到主机B。

这时，只要将数据库分离。将数据库文件拷贝到主机B，并且导入到主机B的SQL Server里面即可。

还有更方便的方法就是：直接在主机B上创建同样的数据库结构，然后同步主机A的数据即可。

不必使用移动设备来拷贝图片。

以下是一个小例子,贴出完整代码和运行效果图：

运行效果图如下：

完整代码如下：Imports System.IO Imports System.Drawing Imports System.Data.SqlClient Public Class Form1 ReadOnly connstr As String = "server=.;user=sa;password=;database=pubs;" Dim con As New SqlConnection(connstr) Dim adp As SqlDataAdapter Dim buffers() As Byte '选择图片 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim dialog As New OpenFileDialog() If dialog.ShowDialog() = Windows.Forms.DialogResult.OK Then If dialog.FileName <> "" Then Dim tream As Stream = New FileStream(dialog.FileName, FileMode.Open) '根据文件流长度，重新声明数组 buffers = Nothing ReDim buffers(tream.Length) tream.Read(buffers, 0, tream.Length - 1) tream.Close() Me.PictureBox1.Image = Image.FromFile(dialog.FileName) End If End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub '储存图片 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Try If buffers Is Nothing OrElse buffers.Length = 0 Then Throw New Exception("没有可储存的图片") End If adp = New SqlDataAdapter() adp.InsertCommand = New SqlCommand() adp.InsertCommand.Connection = Me.con adp.InsertCommand.CommandText = "insert into images(img) values (@img)" If adp.InsertCommand.Connection.State <> ConnectionState.Open Then adp.InsertCommand.Connection.Open() End If Dim param As SqlParameter = adp.InsertCommand.Parameters.Add("@img", SqlDbType.Image) param.Value = buffers adp.InsertCommand.ExecuteNonQuery() adp.InsertCommand.Connection.Close() Me.PictureBox1.Image = Nothing MsgBox("储存成功") Catch ex As Exception MsgBox(ex.Message) End Try End Sub '查找数据 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Try adp = New SqlDataAdapter("select * from images order by id desc", con) Dim table As DataTable = New DataTable() adp.Fill(table) Me.DataGridView1.DataSource = table.DefaultView Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub DataGridView1_DataError(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles DataGridView1.DataError End Sub '单击DataGridView1选中行，并将图片字段绑定到PictrueBox1 Private Sub DataGridView1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGridView1.Click Try If Me.DataGridView1.SelectedRows.Count > 0 Then Dim gridrow As DataGridViewRow = Me.DataGridView1.SelectedRows(0) Dim arr() As Byte = gridrow.Cells("img").Value Dim tream As New MemoryStream(arr) Me.PictureBox1.Image = Image.FromStream(tream) tream.Close() End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub End Class