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



عندي داتاتابل محملة بالبيانات واريد تصدير البيانات من الداتاتابل الي ملف نصي csv

حيث عند تجميع أسماء الطلاب STU_NAMES عمل جروب واستبعاد المكرر ، سيكون عدد الأعمدة التي تظهر في ملف csv كأرقام من 0 إلى اخر قيمة لعدد الصفوف المجمعة .
عند تجميع الاختبارات  STU_TEST عمل جروب واستبعاد المكرر ، تكون الصفوف في ملف csv
تظهر البيانات أفقيًا لكل طالب وفقًا لقيمة ورقم في العمود


شكل البيانات من القاعدة وبعد نسخها للداتاتابل 

   


الشكل المطلوب بعد عكس الصفوف الخاصة بالاسماء بعد عمل جروب لها 

   


فكرة التصدير 

   

الطريقة التي استخدمها للتصدير 

كود :
Public Sub csvexportd(ByVal dT As DataTable, ByVal filpath As String)
Dim thecsvfile As String = String.Empty

     Dim nameHeader0 = dT.Columns(1).ColumnName.ToString
    Dim nameHeader1 = dT.Columns(2).ColumnName.ToString
    Dim nameHeader2 = dT.Columns(3).ColumnName.ToString
     
    thecsvfile &= String.Join(",", {nameHeader0, nameHeader1, nameHeader2}) & vbNewLine
    Dim I As Single = 0
    For I = 0 To dT.Rows.Count - 1
        If dT Is Nothing Then
            Exit For : Exit Sub
        End If
        '//
        Dim nameValue0 = ""
        Dim nameValue1 = ""
        Dim nameValue2 = ""
         
         
        '//
         
            nameValue0 = dT.Rows(I).Item(0).ToString()
            nameValue1 = dT.Rows(I).Item(1).ToString()
            nameValue2 = dT.Rows(I).Item(2).ToString()
           
            thecsvfile &= String.Join(",", {nameValue0, nameValue1, nameValue2}) & vbNewLine
        End If
    Next
    thecsvfile = thecsvfile.Trim
    My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Excel\" & filpath & now & ".csv", thecsvfile, False)
     
End Sub
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته
هذا الكود يصدر محتويات داتا جريد فيو اسمه dgv_end الى ملف اكسل اعرف ان هذا ليس طلبك بشكل دقيق ولكن ارجو ان اكون ساعدت
كود :
 Dim oldCI As System.Globalization.CultureInfo = _
   System.Threading.Thread.CurrentThread.CurrentCulture
               System.Threading.Thread.CurrentThread.CurrentCulture = _
                   New System.Globalization.CultureInfo("en-US")

               Dim ExcelApp1 As Object, ExcelBook As Object
               Dim ExcelSheet As Object
             
               ExcelApp1 = CreateObject("Excel.Application")
               ExcelBook = ExcelApp1.WorkBooks.Add
               System.Threading.Thread.CurrentThread.CurrentCulture = oldCI
               ExcelSheet = ExcelBook.WorkSheets(1)

               With ExcelSheet

                   For i = 1 To Me.DGV_END.RowCount
                       .cells(i + 1, 1) = Me.DGV_END.Rows(i - 1).Cells(0).Value

                       For j = 0 To DGV_END.Columns.Count - 1
                           .cells(j + 1) = DGV_END.Columns(j).HeaderText
                           .cells(i + 1, j + 1) = DGV_END.Rows(i - 1).Cells(j).Value

                       Next

                   Next

               End With

               ExcelApp1.Visible = True
               '
               ExcelSheet = Nothing
               ExcelBook = Nothing
               ExcelApp1 = Nothing
سورس كود برنامج محاسبة ومبيعات احترافي  -  سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام   Abo_anas_kahwaji@
واتساب 00963951283515
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عمل نسخه احتياطيه والاستعاده لملف قاعدة بيانات Backup/Restore Localdb MDF file Owz 1 373 25-09-23, 11:52 AM
آخر رد: devpos
  سؤال عن تصدير فورم الى ملف pdf ابو انس 0 305 21-09-23, 10:28 PM
آخر رد: ابو انس
  نسخ احتياطي لملف قاعدة بيانات sql عبدالكريم برشدان 1 384 04-01-23, 12:29 PM
آخر رد: Jounior_P
  [VB.NET] عند تصدير البيانات من DataGridView1 لملف Excel MOHAMMED ALZWI 2 488 22-12-22, 10:58 AM
آخر رد: MOHAMMED ALZWI
  تصدير البيانات الى PDF باستخدام ITextSharp لايدعم اللغة العربية فاطمة غ 10 5,827 20-12-22, 10:21 PM
آخر رد: احمد السعدنى
  كيف يمكن إدخال بيانات ( اسم المستخدم وكلمة المرور ) لملف مشاركة برمجياً. عبد الله 8 4,209 10-12-22, 04:00 PM
آخر رد: Calvinarins
  [سؤال] محتاج بعد انهاء المشروع اقوم بتحويله لملف تنفيذي يصعب الوصول للكود والفورم mony.tornado 6 642 08-12-22, 09:22 AM
آخر رد: مصمم هاوي
Rainbow [كود] رساله خطاء لملف اكسس مرتبط بفيجوال دوت نت. محمد مسافر 5 674 23-11-22, 12:16 PM
آخر رد: Jounior_P
  [سؤال] كيفية تصدير اعمدة محددة من الداتا قريد الي الاكسل عبدالكريم برشدان 3 1,961 10-10-22, 09:29 AM
آخر رد: أبووسم
  [VB.NET] تصدير بيانات من datagridviwe الي ملف نوع CSV محمد بوقزاحة 3 1,387 09-05-22, 09:54 PM
آخر رد: ابراهيم ايبو

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


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