日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

VB.NET對(duì)于數(shù)據(jù)庫(kù)的操作，大家應(yīng)該都有所了解，這些相關(guān)操作對(duì)于程序開(kāi)發(fā)都是 必不可少的。我們今天為大家介紹的是VB.NET存取數(shù)據(jù)庫(kù)圖片的相關(guān)方法，幫助大家提高程序開(kāi)發(fā)效率，進(jìn)一步掌握相關(guān)數(shù)據(jù)庫(kù)處理方法。#t#

以MS自帶的數(shù)據(jù)庫(kù)Northwnd為例,其中有個(gè)表是Categories,有四個(gè)四段,其中有一個(gè)是Image類(lèi)型的Picture字段.我們首先添加一張bmp圖片到最后一行的Picture中,然后在讀出來(lái)顯示到Image控件中.

添加一個(gè)SqlDataAdapter1,用向?qū)гO(shè)置聯(lián)接數(shù)據(jù)庫(kù)為Northwnd,SQL語(yǔ)句為SELECT [Category ID], [Category Name], Description, Picture FROM Categories.生成一個(gè)數(shù)據(jù)集為dataset1. 然后添加兩個(gè)按鈕分別表示寫(xiě)圖片到數(shù)據(jù)庫(kù)和讀數(shù)據(jù)庫(kù),還有一個(gè)Image控件用于顯示圖片.

添加以下VB.NET存取數(shù)據(jù)庫(kù)圖片代碼

 
 
 

  
  
  
Private Sub Form1_Load(ByVal 
sender As System.Object,
 ByVal e As System.EventArgs) 
Handles MyBase.Load  
  
  
  
SqlDataAdapter1.Fill(DataSet11)  
  
  
  
End Sub 
 
 
 

從數(shù)據(jù)庫(kù)讀取圖片暫時(shí)存儲(chǔ)為monkey.bmp,然后加載到image控件里面.

 
 
 

  
  
  
Private Sub Button2_Click(ByVal 
sender As System.Object, ByVal e 
As System.EventArgs) Handles 
LoadPicFromDb.Click  
  
  
  
Try  
  
  
  
Dim data As Byte() = DataSet11.
Tables(0).Rows(7).Item(3)  
  
  
  
Dim myfilestream As New System.IO.
FileStream(Application.StartupPath
 & "\monkey.bmp", IO.FileMode.Create)  
  
  
  
myfilestream.Write(data, 0, data.Length)  
  
  
  
myfilestream.Close()  
  
  
  
PictureBox1.Image = New Bitmap
(Application.StartupPath & "\monkey.bmp")  
  
  
  
Catch  
  
  
  
End Try  
  
  
  
End Sub 
 
 
 

把C:\6.bmp寫(xiě)入庫(kù)中,你可以改為自己的圖片.

 
 
 

  
  
  
Private Sub Button3_Click(ByVal 
sender As System.Object, ByVal 
e As System.EventArgs) Handles 
InsertPicToDb.Click  
  
  
  
Dim myfilestream As New System.
IO.FileStream("c:\6.bmp", 
IO.FileMode.Open)  
  
  
  
Dim data() As Byte  
  
  
  
ReDim data(myfilestream.Length - 1)  
  
  
  
myfilestream.Read(data, 0, 
myfilestream.Length)  
  
  
  
myfilestream.Close()  
  
  
  
DataSet11.Tables(0).Rows(7).
Item(3) = data  
  
  
  
SqlDataAdapter1.Update
(DataSet11.GetChanges())  
  
  
  
End Sub 
 
 
 

VB.NET存取數(shù)據(jù)庫(kù)圖片的相關(guān)操作方法就為大家介紹到這里。

當(dāng)前名稱(chēng)：VB.NET存取數(shù)據(jù)庫(kù)圖片相關(guān)方法介紹
文章位置：http://m.5511xx.com/article/cdssojo.html