Private Sub BtnAvaStk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTransData.Click Using cmd As New SqlCeCommand("SELECT * FROM ItemMaster") Using sda As New SqlCeDataAdapter() cmd.Connection = con sda.SelectCommand = cmd Using dt As New DataTable() sda.Fill(dt) 'Build the CSV file data as a Comma separated string. Dim csv As String = String.Empty For Each column As DataColumn In dt.Columns 'Add the Header row for CSV file. csv += column.ColumnName + ","c Next 'Add new line. csv += vbCr & vbLf For Each row As DataRow In dt.Rows For Each column As DataColumn In dt.Columns 'Add the Data rows. csv += row(column.ColumnName).ToString().Replace(",", ";") + ","c Next 'Add new line. csv += vbCr & vbLf Next Dim folderPath As String = "F:\CSV\DataGridViewExport.csv" File.WriteAllText(folderPath, csv) '' File.OpenWrite(folderPath, csv) End Using End Using End Using ''End Using End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)