[سعود]

لا ادري هل هناك فرق بين اصدار 2010 و الاكسس الذي لديك لكن هذا الكلاس يعمل

PHP كود :

Imports System.IO

Public Class Form1
    Dim con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
    Dim dt As DataTable
    Dim da As OleDb.OleDbDataAdapter
    Dim cm As OleDb.OleDbCommandBuilder
    Private Sub fill_dt()
        dt = New DataTable
        da = New OleDb.OleDbDataAdapter("select * from pics", con)
        cm = New OleDb.OleDbCommandBuilder(da)
        da.Fill(dt)
    End Sub

    Private Sub gd()
        fill_dt()
        If dt.Rows.Count = 0 Then Exit Sub
        Dim b() As Byte = Nothing
        b = dt(0)(1)
        Dim ms As New MemoryStream(b)
        PictureBox1.Image = Image.FromStream(ms)
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        gd()
    End Sub



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim o As New OpenFileDialog
        If o.ShowDialog = DialogResult.OK Then
            PictureBox1.Image = Image.FromFile(o.FileName)
        End If
    End Sub

    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
        Dim dr As DataRow = dt.NewRow
        Dim ms As New MemoryStream
        PictureBox1.Image.Save(ms, Imaging.ImageFormat.Jpeg)
        dr(1) = ms.ToArray
        dt.Rows.Add(dr)
        da.Update(dt)
        gd()
    End Sub
End Class
[align=right][/align] 


ضع زرين ومربع صورة