منتدى قسم تكنولوجيا المعلومات في مدرسة الدوحة الثانوية المستقلة للبنين
علمت أن رزقي لن يأخذه غيري فاطمأن قلبي

قم وذق طعم الصلاة في دجى الليل الطويل

قم وجاهد في الحياة ان مثوانا قليل

منتدى قسم تكنولوجيا المعلومات في مدرسة الدوحة الثانوية المستقلة للبنين

من أفضل مدارس قطر
 
الرئيسيةمكتبة الصوربحـثالتسجيلدخولاليومية
قال الامام احمد بن حنبل: إن لنا إخوان لانراهم إلا مره كل سنه , نحن اوثق بمودتهم ممن نراهم كل يوم .أسعد الله قلوبا طاهره إن وصلناها شكرت وإن قصرنا عذرت
من العظماء من يشعر المرء فى حضرته أنه صغير ولكن العظيم بحق هو من يشعر الجميع في حضرته بأنهم عظماء
كم في المقابر من يحسدونك على هذه الأيام والليالي التي تعيشها يتمنون لو تسبيحة أو استغفار ينفعهم عند ربهم أو سجدة تنير قبورهم أو صدقة تظلهم بين يدي الملك الجبار .. فقط تذكر .. ولا تضيع الفرصة التي بين يديك

شاطر | 
 

 Update an XML file using a DataSet

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
A.Tamimi
Admin
avatar

Posts : 1593
أهمية العضو : 16
Join date : 13/11/2008
Age : 32
Location : Jordan

مُساهمةموضوع: Update an XML file using a DataSet   الأربعاء ديسمبر 03, 2008 5:21 am

Update an XML file using a DataSet



The full tutorial is as follows. This will give a clear picture of using dataset with an XML file.

GLOBAL DECLARATION

Dim ds As New DataSet ' A globally declared DataSet and a Record Pointer
Dim intPtr As Integer


IN FORM LOAD


intPtr = 0
ds.ReadXml("C:\Temp\Emps.xml") ' Load the XML File onto the DataSet and initialize the RecordPointer
FillFields() ' Call Fill Fields Procedure


FILLFIELDS - Procedure

txtEmpID.Text = ds.Tables(0).Rows(intPtr).Item("EmpID").ToString()
txtEmpName.Text = ds.Tables(0).Rows(intPtr).Item("EmpName").ToString()
txtDOB.Text = ds.Tables(0).Rows(intPtr).Item("EmpDOB").ToString
txtDept.Text = ds.Tables(0).Rows(intPtr).Item("EmpDepartment").ToString


Navigation Forward
intPtr += 1
If intPtr > ds.Tables(0).Rows.Count - 1 Then
MessageBox.Show("EOF!")
intPtr = ds.Tables(0).Rows.Count - 1
FillFields()
Else
FillFields()
End If


Navigation Backward

intPtr -= 1
If intPtr < 0 Then
MessageBox.Show("BOF!")
intPtr = 0
Else
FillFields()
End If

ADDSAVE

MessageBox.Show("Count Before Add:" & ds.Tables(0).Rows.Count.ToString)
Dim aRow As DataRow = ds.Tables(0).NewRow

aRow("EmpID") = txtEmpID.Text
aRow("EmpName") = txtEmpName.Text
aRow("EmpDOB") = txtDOB.Text
aRow("EmpDepartment") = txtDept.Text

ds.Tables(0).Rows.Add(aRow)
ds.Tables(0).AcceptChanges()

ds.WriteXml("C:\Temp\Emps.xml")
MessageBox.Show("Count After Add : " & ds.Tables(0).Rows.Count.ToString)


MODIFY SAVE

ds.Tables(0).Rows(intPtr).Item("EmpID") = txtEmpID.Text
ds.Tables(0).Rows(intPtr).Item("EmpName") = txtEmpName.Text
ds.Tables(0).Rows(intPtr).Item("EmpDOB") = txtDOB.Text
ds.Tables(0).Rows(intPtr).Item("EmpDepartment") = txtDept.Text
ds.AcceptChanges()
ds.WriteXml("C:\Temp\Emps.xml")





ليتك تحلو والحياة مريره وليتك ترضى والانام غضاب
وليت الذى بينى وبينك عامر وبينى وبين العالمين خراب
إذا صحّ منك الود فالكل هيّن وكل الذى فوق التراب تراب

اللهم ارحم موتانا وموتى جميع المسلمين
اللهم أنزل على قبورهم الضياء والنور والفسحة والسرور وجازهم بالاحسان إحسان وبالسيئات عفوا وغفرانا
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://falcons.aforumfree.com
M.ALS3OD

avatar

Posts : 854
أهمية العضو : 0
Join date : 13/09/2009
Age : 23
Location : AMMAN

مُساهمةموضوع: رد: Update an XML file using a DataSet   السبت سبتمبر 19, 2009 2:35 am

مـــشـــكـــورررررررررررر

_________________
فــي تــوقــيــع بــس ......
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
 
Update an XML file using a DataSet
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» من أروع قصائد نزار قباني في ملف بور بوينت.pps
» مباحث في علوم القرآن لمناع القطان
» الدرس الثاني : التعرف على شريط القوائم + التعرف على قائمة File
» مشروع ميثاق القسم،المراحل،الانجاز+صور
» تقرير عن الفريونات وانواعها ومقارنه بين بعض انواعها

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى قسم تكنولوجيا المعلومات في مدرسة الدوحة الثانوية المستقلة للبنين :: ----§§§§ المنتديات التقنية والبرمجية §§§§---- :: قسم الدوت نت لتطوير الويب والديسكتوب-
انتقل الى: