تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل على كود الحفظ
#1
السلام عليكم ورحمة الله وبركاته

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

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

 
كود :
  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
الرد }}
تم الشكر بواسطة: ابراهيم ايبو
#2
السلام عليكم ورحمة الله وبركاته
اخي الكريم 
اليك هذا المثال بطريقة الوضع المنفصل كما تريد تماما
بالنسبة للصورة يمكنك اضافتها وحفظها مع السجل او تركها فارغة
وعند عرض لبسجلات ان لم توجد صورة للسجل سيظهر لايبل عدم وجود صورة


الملفات المرفقة
.zip   Aftfm.zip (الحجم : 125.36 ك ب / التحميلات : 25)
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}
تم الشكر بواسطة: aftfm



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


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