在数据库中建一个Img表,其中包含一个Img字段,类型为Image或Binary
'将Bytes存入数据库
Dim Stream As New IO.MemoryStream
PictureBox1.Image.Save(Stream, System.Drawing.Imaging.ImageFormat.Bmp)
Stream.Flush()
Dim Bytes As Byte() = Stream.ToArray
Dim SQL As String = "insert into Img values (@bytes) "
Dim command As New SqlClient.SqlCommand(SQL, Connection)
command.Parameters.Add("@bytes", SqlDbType.Binary).Value = Bytes
command.ExecuteNonQuery

'读取
Dim Command As New SqlClient.SqlCommand(SQL, Connection)
Dim Reader As SqlClient.SqlDataReader = Command.ExecuteReader()
Dim Bytes as Byte()=Reader.Item("Img")
Dim mStream As New IO.MemoryStream
mStream.Write(Bytes, 0, Bytes.Length)
mStream.Flush()
Dim Img As New Bitmap(mStream)
PictureBox1.Image = Img
 posted on 2007-01-20 16:52  清一  阅读(829)  评论(1编辑  收藏  举报