منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته

آمل التعديل على كود الحفظ بحيث يقبل حفظ الصورة في قاعدة البيانات

في المديول وضعت الكود التالي

كود :
  Public UserDT As New DataTable

    Public UserDA As New OleDbDataAdapter

    Public mynewIDUsers As Integer

    Public Sub Load_Users()

        UserDT.Clear()

        UserDA = New OleDbDataAdapter("Select * From tblUsers", Con)

        UserDA.Fill(UserDT)

    End Sub

    Public Sub Code_Users()

        Dim dt As New DataTable

        Dim da As New OleDbDataAdapter("Select MAX(ID) FROM tblUsers", Con)

        da.Fill(dt)

        If IsDBNull(dt(0)(0)) = True Then

            mynewIDUsers = 1

        Else

            mynewIDUsers = dt(0)(0) + 1

        End If

    End Sub

وكود الحفظ

كود :
UserDT.Rows.Add()

            Dim Last As Integer = NationalityDT.Rows.Count - 1

            UserDT.Rows(Last).Item("ID") = Me.txtID.Text

            UserDT.Rows(Last).Item("UserName") = Me.UserName.Text

            Dim Save As New OleDbCommandBuilder(UserDA)

            UserDA.Update(UserDT )

            UserDT.AcceptChanges()

            MsgBox("تم الحفظ بنجاح", MsgBoxStyle.Information, "حفظ")

            Call Load_Users()

والتعديل

كود :
Dim pos As Integer = BindingContext(UserDT).Position

            UserDT.Rows(Last).Item("ID") = Me.txtID.Text

            UserDT.Rows(Last).Item("UserName") = Me.UserName.Text

            Dim Save As New OleDbCommandBuilder(UserDA)

            UserDA.Update(UserDT)

            UserDT.AcceptChanges()

            MsgBox("تم التعديل بنجاح", MsgBoxStyle.Information, "تعديل")

            Call Load_Users()

المطلوب التعديل على الكود باضافة حفظ صورة موضوعة على اداة PictureBox

السلام عليكم ورحمة الله وبركاته
اخي الكريم
اليك هذا المثال بطريقة الوضع المنفصل كما تريد تماما
بالنسبة للصورة يمكنك اضافتها وحفظها مع السجل او تركها فارغة
وعند عرض لبسجلات ان لم توجد صورة للسجل سيظهر لايبل عدم وجود صورة

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

aftfm

ابراهيم ايبو