تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عمل ربط للصور مع الاكسس بالمسار-2
#1
السلام عليكم الاخوة الكرام اعضاء المنتدي 

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

ولكن كانت الصور عبارة عن 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
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم