1.圖片文件寫入
            Dim tmpImg As image                    
            Dim r As DataRow                         
            Dim ms As New MemoryStream    
            Dim data() As Byte                         

            r = myDataSet.Tables(myTableName).NewRow
            tmpImg = Image.FromFile("c:/xxx.jpg")
            tmpImg.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
            tmpImg.Dispose()
            ReDim data(ms.Length)
            ms.Position = 0
            ms.Read(data, 0, System.Convert.ToInt32(ms.Length))

            ...
            ...          
            r("pic") = data
            myDataSet.Tables(myTableName).Rows.Add(r)
            ...

2.圖片數(shù)據(jù)的讀出
            Dim tmpImg As image                    
            Dim r As DataRow                         
            Dim ms As New MemoryStream    
            Dim data() As Byte                         
            Dim r As Integer

            data=myDataSet.Tables(myTableName).Rows(r).Item("pic")
            ms = New MemoryStream
            ms.Write(data(0), 0, data(0).GetUpperBound(0))
           
            '在窗體中顯示
            Me.pic0.Image = Image.FromStream(msImg(0))
           
            '存入到文件
            If  FileI.Exists("c:/xxx.jpg") Then
                  File.Delete("c:/xxx.jpg")
            End If
            fs = File.Create("c:/xxx.jpg")
            fs.Write(data, 0, data.GetUpperBound(0))
            fs.Close()