qry = "" qry = "SELECT Image FROM T_ImageStore" Dim adp As New OleDbDataAdapter adp.SelectCommand = New OleDbCommand(qry, conn) Dim ds As New DataSet() adp.Fill(ds, "BLOBTest") Dim c As Integer = ds.Tables("BLOBTest").Rows.Count Dim bytBLOBData() As Byte = _ dt.Rows(c - 1)("Image") PictureBox1.Image = convertbyteArrayToImage(bytBLOBData) Private Function convertbyteArrayToImage(ByVal byteArrayIn As Byte()) As Image Dim ms As MemoryStream = New MemoryStream(byteArrayIn) Dim returnImage As Image = Image.FromStream(ms) Return returnImage End Function
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)