+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] معرف الخطأ في التصدير بيانات الى ملف نوع CSV (/showthread.php?tid=41141)
معرف الخطأ في التصدير بيانات الى ملف نوع CSV - محمد بوقزاحة - 01-04-22
السلام عليكم
ارجوو المساعدة في معرفة الخطأ في الكود المرفق
المصدر من يوتيوب
الرابط الفيديو
https://youtu.be/LMyOWX8bL_A
المكتبات المستخدمة
Imports System.IO
Imports System.Data
Imports system.Management
Imports system.Data.SqlClient
Imports system.Text
Imports system.Security.Cryptography
===================
Private Sub Button2_Click_1(ByVal sender As system.Object, ByVal e As system.EventArgs) Handles Button2.Click
Dim sfd As New SaveFileDialog
sfd.FileName = "export-csv"
sfd.Filter = "CSV file |*.csv"
If sfd.ShowDialog() = DialogResult.OK Then
Using sw As StreamWriter = File.CreateText(sfd.FileName)
Dim dgvcolumnNames As List(Of String) = DataGridView1.Columns.
Cast(Of DataGridViewColumn).ToList().
Select(Function© c.Name).ToList()
sw.WriteLine(String.Join(",", dgvcolumnNames))
For Each row As DataGridViewRow In DGV.Rows
Dim rowData As New List(Of String)
For Each column As DataGridViewColumn In DataGridView1.Columns
rowData.Add(Convert.ToString(row.Cells(column.Name).Value))
Next
sw.WriteLine(String.Join(",", rowData))
Next
Process.Start(sfd.FileName)
End Using
End If
End Sub
=================================================