Imports System.Data.OleDb
Imports System.Data
Imports System.Data.SqlClient
Public Class Form5
Dim objCurrencyMgr As CurrencyManager
Public Sub Showdata()
Dim dts As DataTable = connectAcc("select * from product").Tables(0)
DataGridView1.DataSource = dts
'rec_num.Text=
objCurrencyMgr = Me.BindingContext(dts, "")
End Sub
Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox1.DataBindings.Clear()
strSQL = "Select * from place"
DataGridView1.DataSource = connectAcc(strSQL).Tables(0)
Dim dtTable As DataTable = DataGridView1.DataSource
If Not dtTable.Rows(0)("picture") Is DBNull.Value Then
Dim bytePicData() As Byte = dtTable.Rows(0)("picture")
Dim PicMemStream As New System.IO.MemoryStream(bytePicData)
PictureBox1.Image = Image.FromStream(PicMemStream)
Else
PictureBox1.Image = Nothing End If
