[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