關於圖片保存到SQL數據庫及從數據庫讀出顯示在PictureBox中.

        方法還在完善更新中,請高手們跟帖補充,謝謝.

把本地圖片存入數據庫:MSSQL ,數據類型是Image,

        Dim obj As New ClaOptDatabase     ''自定義的數據庫操作類,沒有什麼特別的.就是SQLClIEnt
        Dim bit1() As Byte                 ''定義一個二進制數組,用來存放圖片
        Dim nLen As Long                ''定義長度,用來得到圖片大小
        Dim tStream As New FileIO.FileSystem       ''定義文件系統,用來讀取圖片
        Dim tiOStream As New IO.FileStream("C:/RS-Dessert.gif", IO.FileMode.Open, IO.FileAccess.Read) ''讀取圖片,圖片名為:C:/RS-Dessert.gif
        Dim tIoBReader As New IO.BinaryReader(tiOStream)    ''把圖片數據讀取成二進制.
        Dim tIoFileInfo As New IO.FileInfo("C:/RS-Dessert.gif")  ''得到圖片文件信息,如大小等.
        nLen = tIoFileInfo.Length
        ReDim bit1(nLen)
        tIoBReader.Read(bit1, 0, nLen)    ''把圖片二進制數據讀取到Bit1

        Dim sql As String               
        sql = "select * from  tb_test where id=15"

        ''以下是利用Ds更新數據庫

        Try
            Dim ds As New DataSet
            obj.SelectDs(sql, ds, "TestPic")
            If ds.Tables("TestPic").Rows.Count > 0 Then
&