龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 软件开发 > VB开发 >

怎样在vb.net中将图片存入SQL Server 2000并能读出来使用?

时间:2009-12-30 15:42来源:未知 作者:admin 点击:
分享到:
在数据库中建一个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

  在数据库中建一个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

精彩图集

赞助商链接