PictureBox1.Image = Image.FromStream(stmSTAFF_PICS)
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim strConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\Users\BELLCONSULT\Documents\COUNCILS.mdb" Dim cn As OleDb.OleDbConnection = New OleDb.OleDbConnection(strConnection) cn.Open() Dim dd As New OleDb.OleDbCommand("select STAFF_PICS from STAFFPICS where F_NO =" & Val(TextBox2.Text), cn) Dim dr As OleDb.OleDbDataReader = dd.ExecuteReader() dr.Read() If dr.HasRows Then Dim byteSTAFF_PICS(dr.GetBytes(0, 0, Nothing, 0, Integer.MaxValue) - 1) As Byte dr.GetBytes(0, 0, byteSTAFF_PICS, 0, byteSTAFF_PICS.Length) Dim stmSTAFF_PICS As New IO.MemoryStream(byteSTAFF_PICS) PictureBox1.Image = Image.FromStream(stmSTAFF_PICS) End If dr.Close() End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)