[aftfm]

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

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

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

 

كود :

  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

[ابراهيم ايبو]

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