在数据库中建一个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,Bytes.Length)
mStream.Flush()
Dim Img As New Bitmap(mStream)
PictureBox1.Image = Img