[khaled12345]

السلام عليكم الاخوة الكرام اعضاء المنتدي 

عملت مشروع وحاولت ربط الاكسس مع الفيجوال بيسك وعرض الصور ونجح في العرض 

ولكن كانت الصور عبارة عن OLE Object  مما جعل المشروع ثقيل جدا حيث عندي داتا كبيرة جدا 

وللامانه الاستاذ عبد الله رد عليا في موضوع مشابة ولكن للاسف لم اتمكن من عكس الكود علي المشروع تبعي 

فبرجاء المساعدة في تعديل الكود حتي اتمكن من عرض وتخزين الصور عن طريق المسار 

وهذا هو الكود المستخدم 

=====================================================================================

Imports System.Data.OleDb

Imports System.IO

Public Class Form1

    Dim imgName As String

    Dim daImage As OleDbDataAdapter

    Dim dsImage As DataSet

    Private Sub ALU_2GBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Me.Validate()

        Me.ALU_2GBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.PhotoDataSet)

    End Sub

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

        'TODO: This line of code loads data into the 'PhotoDataSet.ALU_2G' table. You can move, or remove it, as needed.

        Me.ALU_2GTableAdapter.Fill(Me.PhotoDataSet.ALU_2G)

    End Sub

    ' مفتاح استعراض الصورة 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Try

            Dim dlgImage As FileDialog = New OpenFileDialog()

            dlgImage.Filter = "Image File (*.jpg;*.bmp;*.gif)|*.jpg;*.bmp;*.gif"

            If dlgImage.ShowDialog() = DialogResult.OK Then

                imgName = dlgImage.FileName

                Dim newimg As New Bitmap(imgName)

                ImagePictureBox.SizeMode = PictureBoxSizeMode.StretchImage

                ImagePictureBox.Image = DirectCast(newimg, Image)

            End If

            dlgImage = Nothing

        Catch ae As System.ArgumentException

            imgName = " "

            MessageBox.Show(ae.Message.ToString())

        Catch ex As Exception

            MessageBox.Show(ex.Message.ToString())

        End Try

    End Sub

    ' مفتاح تخزين الصورة

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.Validate()

        Me.ALU_2GBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.PhotoDataSet)

    End Sub

    ' مفتاح اضافة صورة

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Me.ALU_2GBindingSource.AddNew()

    End Sub

End Class