+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كود نقل سجلات مححدة في داتا جريد الى ملف اكسل (/showthread.php?tid=35071)
كود نقل سجلات مححدة في داتا جريد الى ملف اكسل - بنت الشام - 01-06-20
مرحبا شباب
انا عايزة كود عشان احدد سجلات في داتا جريد و اصدرها لملف اكسل
واذا ممكن مع مثال و شكرا
RE: كود نقل سجلات مححدة في داتا جريد الى ملف اكسل - سعود - 01-06-20
من نفس الداتاست يمكن عمل تصدير الى ملف xml وبعد ذلك يمكن فتح هذا الملف من الاكسيل ويتم تحويله الى ملف اكسيل متكامل.
RE: كود نقل سجلات مححدة في داتا جريد الى ملف اكسل - بنت الشام - 01-06-20
(01-06-20, 05:46 PM)سعود كتب : من نفس الداتاست يمكن عمل تصدير الى ملف xml وبعد ذلك يمكن فتح هذا الملف من الاكسيل ويتم تحويله الى ملف اكسيل متكامل.
انا عايزة احدد سجلات في داتا جريد و اصدره الى ملف اكسل يعني من نافذة الفورم نفسه
وشكرا لك على الاستجابة
RE: كود نقل سجلات مححدة في داتا جريد الى ملف اكسل - سعود - 01-06-20
(01-06-20, 05:50 PM)بنت الشام كتب :(01-06-20, 05:46 PM)سعود كتب : من نفس الداتاست يمكن عمل تصدير الى ملف xml وبعد ذلك يمكن فتح هذا الملف من الاكسيل ويتم تحويله الى ملف اكسيل متكامل.
انا عايزة احدد سجلات في داتا جريد و اصدره الى ملف اكسل يعني من نافذة الفورم نفسه
وشكرا لك على الاستجابة
فاهم لكن اقصد ان نستعين بتقنية جاهزة افضل من سرد اسطر متعددة لاتمام الامر.
الفكرة باختصار (لننسى الان الربط بمصدر بيانات)
نعمل داتا تيبل وقت التشغيل وايضا داتاست نعبيء الداتاتيبل من شبيكة البيانات ثم نجعل الداتاست تشمل الداتاتيبل وبعد ذلك نعمل wriitetoxml ونكتب مسار ملف xml
اذا لم تتضح الفكرة بعد ممكن اعمل مثال على السريع.
لكن الافضل لو تقوم برفع مالديك من مثال حتى نكتب اكواد مناسبة لطريقتك في البرمجة.
لقد نسيت تصدير المحدد لكن ساعدل عليه ان شاء الله لان الامر بسيط
كود تصدير المحدد
PHP كود :
Dim ds As New DataSet
Dim dt As New DataTable
dt.Columns.Add("Tid", GetType(Integer))
dt.Columns.Add("Tday", GetType(String))
Dim i As Integer
For i = 0 To d.Rows.Count - IIf(d.AllowUserToAddRows, 2, 1)
If d.Rows(i).Selected Then
Dim row As DataRow = dt.NewRow
row(0) = d.Rows(i).Cells(0).Value
row(1) = d.Rows(i).Cells(1).Value
dt.Rows.Add(row)
End If
Next
ds.Tables.Add(dt)
ds.WriteXml(CurDir() & "\a.xml")
RE: كود نقل سجلات مححدة في داتا جريد الى ملف اكسل - نسيم الشباطي - 19-03-22
طيب لو العكس ياغالي اريد اضافة بيانات لقاعده البيانات من ملف اكسل