تقييم الموضوع :
  • 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 ك ب / التحميلات : 16)
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في تعديل كود ميدو الفنان 1 92 20-09-21, 10:57 PM
آخر رد: ميدو الفنان
  [VB.NET] مشكلة في الحفظ علي بوبكر ابراهيم 2 287 04-09-21, 02:40 PM
آخر رد: علي بوبكر ابراهيم
  مشكلة الحفظ التلقائى اسلام الكبابى 3 214 30-08-21, 09:39 PM
آخر رد: asemshahen5
  جلب البيانات من جدول مع اجراء عمليات حسابية - تعديل الكود momani33 7 352 14-08-21, 09:34 AM
آخر رد: ابو انس
  ماهو سبب ظهور الجملة عند الحفظ من الداتاقريدفيو جيولوجي مبتدئ 2 175 12-08-21, 02:52 PM
آخر رد: جيولوجي مبتدئ
Star [كود] طلب تعديل كود إليسار 3 325 30-07-21, 02:31 PM
آخر رد: إليسار
  تعديل على كود ابو انس 3 389 19-07-21, 10:55 PM
آخر رد: ابراهيم ايبو
  تعديل على كود لتحويل النصوص الى QR nabil.1710 0 219 14-07-21, 08:39 PM
آخر رد: nabil.1710
  يتم الحفظ ولكن دون الترتيب بالرقم - كيف اجبره على الحفظ بالترتب ؟ a.amin 9 2,389 10-07-21, 12:54 PM
آخر رد: Lathe1
  اريد زر الحفظ هو نفس زر التعديل سمير جمال 6 1,619 06-07-21, 09:39 AM
آخر رد: strongriseman

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


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