تقييم الموضوع :
  • 1 أصوات - بمعدل 2
  • 1
  • 2
  • 3
  • 4
  • 5
تصدير السجلات من قاعدة البيانات إلى ملف XML
#1
السلام عليكم إخواني الأعزاء ورحمة الله وبركاته
يتضمن هذا المثال قاعدة بيانات من نوع أكسس تحتوي على جدول بعنوان Person يضم  4 حقول :
ID/Fname/Lname/Active

فكرة المثال :
تصدير سجلات محددة من قاعدة البيانات إلى ملف XML.

الكود :
PHP كود :
Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
        
'حفظ التغييرات قبل عملية التصدير
        Me.Validate()
        Me.PersonBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.TestXMLDataSet)

        '
فتح الإتصال مع قاعدة البيانات
        con
.Open()
 
       Dim da As New OleDbDataAdapter(sqlstrcon)
 
       Dim ds As New DataSet("Person")
 
       da.Fill(ds)

 
       'تصدير البيانات إلى ملف XML 
        ds.WriteXml("D:\ExportXml", XmlWriteMode.WriteSchema)
        con.Close()
        '
إظهار رسالة تفيد بنجاح عملية التصدير
        MsgBox
("done")

 
       'تحويل قيمة البيانات المصدرة من 1 إلى 0 
        For i = 0 To Me.PersonDataGridView.Rows.Count - 2
            Me.PersonDataGridView.Rows(i).Cells(3).Value = 0
        Next

        ' 
الحفظ بعد عملية التصدير
        Me
.Validate()
 
       Me.PersonBindingSource.EndEdit()
 
       Me.TableAdapterManager.UpdateAll(Me.TestXMLDataSet)

 
   End Sub 

PHP كود :
Private Sub PersonDataGridView_MouseMove(ByVal sender As System.ObjectByVal e As System.Windows.Forms.MouseEventArgsHandles PersonDataGridView.MouseMove
        
'تحويل قيمة الحفل Active من 0 إلى 1 عند تحديد الصف
        If Me.PersonDataGridView.CurrentRow.Cells(0).Selected = True Then

            Me.PersonDataGridView.CurrentRow.Cells(3).Value = 1
        
        End If

    End Sub 

صور :
   
   
   
   
   
   

المرفقات :
المشروع :
.rar   khodor-ExportToXML.rar (الحجم : 268.32 ك ب / التحميلات : 92)
قاعدة البيانات :
.rar   khodor-TestXML.rar (الحجم : 17.09 ك ب / التحميلات : 57)

ملاحظة : مسار قاعدة البيانات على سطح المكتب Desktop
أتمنى لكم التوفيق
الرد }}}}
تم الشكر بواسطة: أبو عمر , أبو عمر , عبد الله
#2
Smile
واللي حابب تكون القاعدة في مجلد Debug
يروح ملف
App.Config
يغير هذا السطر
Data Source=C:\Users\Ali\Desktop\TestXML.accdb"
ب
Data Source=|DataDirectory|\TestXML.accdb"
وتسلم ايديك على الموضوع
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: khodor1985 , عبد الله
#3
نعم صحيح، أخي العزيز
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] مثال لنسخ وإستعادة قاعدة البيانات ( تحديث) نسخ تلقائي للقاعدة حسب اليوم والساعة جميل علي 28 2,338 06-12-16, 09:34 PM
آخر رد: مبتدئه برمجه
  [مثال] حفظ ملفات لـ PDF و الوورد والاكسيل داخل قاعدة البيانات( تحديث جديد) جميل علي 9 1,012 02-12-16, 03:40 PM
آخر رد: thecareep
  مثال لنسخ وإستعادة قاعدة البيانات mysql صبري زينوبي 2 226 29-09-16, 05:06 PM
آخر رد: صبري زينوبي
Rainbow مثال - استيراد البيانات من Excel إلي ListView Genius Live 7 3,450 28-09-16, 01:16 AM
آخر رد: adel27
  مشروع أخذ نسخه أحتياطيه من قاعدة البيانات أتمنى يعجبكم adel27 1 728 10-09-16, 03:06 AM
آخر رد: mutaz_17
  كيف يمكن اضافة كود لشتغيل الكاميرا والتقاط صورة وحفظها في قاعدة بيانات اكسس نشوان سراي 0 247 10-08-16, 03:45 AM
آخر رد: نشوان سراي
  تصدير للاكسيل walkady 6 389 14-06-16, 06:46 AM
آخر رد: aliday03
Rainbow مثال - جلب بيانات عمود من جدول والتعديل علي جميع السجلات بشرط Genius Live 2 1,716 12-05-16, 09:26 PM
آخر رد: حلا ابوحامضة
  استيراد البيانات من إكسل khodor1985 5 858 10-04-16, 06:06 PM
آخر رد: ghaner joseph
Exclamation مشروع نسخ جدول من قاعدة بيانات أكسس إلى قاعدة بيانات أكسس أخرى boudyonline 3 630 27-03-16, 10:54 PM
آخر رد: boudyonline

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


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