تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كود نقل سجلات مححدة في داتا جريد الى ملف اكسل
#1
مرحبا شباب 

انا عايزة كود عشان احدد سجلات في داتا جريد و اصدرها لملف اكسل 

واذا ممكن مع مثال و شكرا
الرد
تم الشكر بواسطة:
#2
من نفس الداتاست يمكن عمل تصدير الى ملف xml وبعد ذلك يمكن فتح هذا الملف من الاكسيل ويتم تحويله الى ملف اكسيل متكامل.
الرد
تم الشكر بواسطة: ابراهيم ايبو
#3
(01-06-20, 05:46 PM)سعود كتب : من نفس الداتاست يمكن عمل تصدير الى ملف xml وبعد ذلك يمكن فتح هذا الملف من الاكسيل ويتم تحويله الى ملف اكسيل متكامل.

انا عايزة احدد سجلات في داتا جريد و اصدره الى ملف اكسل يعني من نافذة الفورم نفسه 

وشكرا لك على الاستجابة
الرد
تم الشكر بواسطة: ابراهيم ايبو
#4
(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.AllowUserToAddRows21)
 
           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"


الملفات المرفقة
.zip   WriteToXml.zip (الحجم : 18.88 ك ب / التحميلات : 41)
الرد
تم الشكر بواسطة: ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] عاوز داتا بيز حسن الجلب 2 100 18-10-21, 08:06 PM
آخر رد: asemshahen5
  تعبئة الداتا جريد فيو عن طريق اللست بوكس او التشك بوكس ismaeel 3 147 16-10-21, 05:42 PM
آخر رد: ismaeel
  سوال عن اضافه كمبو بوكس الى الداتا جريد فيو alazhry 2 175 09-10-21, 06:45 PM
آخر رد: ahmed4
  لماذا ظهور هذا الخطا فى الداتا جريد فيو خالد كامل1 3 216 08-10-21, 07:11 PM
آخر رد: خالد كامل1
  هل يوجد كود برمجى او طريقه لعمل هذا فى الداتا جريد فيو خالد كامل1 3 216 08-10-21, 07:04 PM
آخر رد: خالد كامل1
  تعبئة داتا كرد فيو من الكمبو بوكس نيمو 2 194 03-10-21, 10:10 PM
آخر رد: نيمو
  اضافة اداة التاريخ والوقت الى داتا جريد فيو خالد20 4 302 30-09-21, 10:52 PM
آخر رد: خالد20
  سؤال عن داتا جريد فيو ابو انس 4 457 13-09-21, 12:40 AM
آخر رد: ابراهيم ايبو
  ممكن توضيح بسيط فى الداتا جريد فيو خالد كامل1 1 504 04-09-21, 07:14 PM
آخر رد: ابو انس
  [VB.NET] مشكله في قسمه عددين في الداتا جريد فيو mohammed_abdu 1 265 03-09-21, 06:02 PM
آخر رد: Anas Mahmoud

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


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