حفظ بيانات مجموعة سجلات ADO فى ملف XML

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

حفظ بيانات مجموعة سجلات ADO فى ملف XML

مُساهمة من طرف end.sub في الثلاثاء نوفمبر 26, 2013 9:49 am

بسم الله الرحمن الرحيم 

فى هذا الدرس التعليمى سنتحدث عن كيفية حفظ البيانات والسجلات ADO فى ملف XML من خلال 6 Visual Basic بإستخدام الكائن DOMDocument وذلك على النحو التالى :

_إنشاء مشروع قياسى جديد و إضافة زر امر للنافذة و مربع نص لكتابة أسم و مسار قاعدة البيانات فيه

_فى حدث النقر لزر الامر نقوم بكتابة الاكواد التالية

1_بداية وفى حدث النقر لزر الامر نقوم بالاعلان عن الكائنات اللازمة للاتصال بقاعدة البيانات بالاضافة الى الاعلان عن الكائن DOMDocument و الذى سيستخدم لانشاء ملف xml على النحو التالى :

الرمز:
Dim db_name As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim dom_document As DOMDocument
 
    db_name = txtDatabase.Text
2_ نقوم بكتابة الاكواد اللازمة للاتصال بقاعدة البيانات وفتحها على النحو التالى :
الرمز:
Set conn = New ADODB.Connection
    conn.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Persist Security Info=False;" & _
        "Data Source=" & db_name
    conn.Open
3_ نقوم بفتح اتصال مع سجلات جدول قاعدة البيانات على النحو التالى :
الرمز:
Set rs = conn.Execute("SELECT * FROM Books ORDER BY " & _
        "Title")
4_ نقوم بعد ذلك بحفظ البيانات فى الكائن  DOMDocument ثم بعد ذلك نقوم بإغلاق كائنات الاتصال على النحو التالى :
الرمز:
Set dom_document = New DOMDocument
    rs.Save dom_document, adPersistXML

    rs.Close
    conn.Close
5_نقوم بعد ذلك بحفظ البيانات الموجودة فى الكائن DOMDocument فى ملف XML على النحو التالى :
الرمز:
db_name = Replace$(db_name, ".mdb", ".xml")
    dom_document.Save db_name
    MsgBox "Now move the XML file to a HTTP site."

و الكود النهائى يكون على النحو التالى :

الرمز:
Private Sub cmdMakeXmlFile_Click()
Dim db_name As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim dom_document As DOMDocument

   db_name = txtDatabase.Text

     Set conn = New ADODB.Connection
    conn.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Persist Security Info=False;" & _
        "Data Source=" & db_name
    conn.Open

    Set rs = conn.Execute("SELECT * FROM Books ORDER BY " & _
        "Title")

    Set dom_document = New DOMDocument
    rs.Save dom_document, adPersistXML

    rs.Close
    conn.Close

     db_name = Replace$(db_name, ".mdb", ".xml")
    dom_document.Save db_name
    MsgBox "Now move the XML file to a HTTP site."
End Sub


Smile Smile Smile Smile

end.sub
.....
.....

تاريخ التسجيل : 15/08/2013
المساهمات : 70
النقاط : 131
التقيم : 9
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى