[سعود]

الكلاس الخاص بالفورم

كود :

Imports System.Data.OleDb

Public Class Form1


    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
    Dim con As New OleDbConnection(str)
    Dim p() As Byte
    Dim ds As New DataSet


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim ofd As New OpenFileDialog
        If ofd.ShowDialog = vbOK Then
            TextBox2.Text = ofd.FileName
            p = My.Computer.FileSystem.ReadAllBytes(TextBox2.Text.Trim)


        End If
    End Sub


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


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text.Trim = "" Then
            MsgBox("اما الاسم لابد من كتابته", MsgBoxStyle.Critical, "")


            Exit Sub
        End If
        Dim cm As New OleDbCommand("", con)
        If IsNothing(p) Then
            cm.CommandText = ("insert into tb (tname) values(@tname)")
            cm.Parameters.AddWithValue("@tname", Data.DbType.String).Value = TextBox1.Text


            If con.State = ConnectionState.Closed Then
                con.Open()
            End If
            cm.ExecuteNonQuery()
            MsgBox("تم حفظ الاسم")


        Else
            cm.CommandText = "insert into tb (tname,pic) values(@tname,@pic)"
            cm.Parameters.AddWithValue("@tname", Data.DbType.String).Value = TextBox1.Text
            cm.Parameters.AddWithValue("@pic", Data.DbType.Binary).Value = p


            If con.State = ConnectionState.Closed Then
                con.Open()
            End If
            cm.ExecuteNonQuery()
            MsgBox("تم حفظ الاسم والصورة")


        End If
        getdata()


    End Sub
    Sub getdata()
        Dim da As New OleDbDataAdapter("select tname,pic from tb", con)
        ds.Clear()
        tname.DataBindings.Clear()
        pic.DataBindings.Clear()
        'pic.Image.Dispose()


        da.Fill(ds, "tb")


        tname.DataBindings.Add("text", ds, "tb.tname")
        pic.DataBindings.Add("image", ds, "tb.pic", True)
        If IsNothing(pic.Image) Then
            pic.Image = My.Resources.nopic
        End If




    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.BindingContext(ds, "tb").Position -= 1
        If IsNothing(pic.Image) Then
            pic.Image = My.Resources.nopic
        End If


    End Sub


    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.BindingContext(ds, "tb").Position += 1
        If IsNothing(pic.Image) Then
            pic.Image = My.Resources.nopic
        End If


    End Sub
End Class

وهذا المثال
http://vb4arb.com/vb/uploaded/34_01367394810.zip
اكسس 2007 و فيجوال 2010