Private SubExportDatasetToCsv (ByVal MyDataSet als Dataset)
Schemerige dt als DataTable
Schemerig Dr. als DataRow
Schemerige MyString als Koord
Schemerige bFirstRecord zoals Van Boole = Waar
Schemerige myWriter als Nieuwe System.IO.StreamWriter („C:\MyTestCSV.csv“)
MyString = ""
Probeer
Voor Elke dt in MyDataSet.Tables ()
Voor Elk Dr. in dt. Rijen
bFirstRecord = Waar
Voor Elk gebied als Voorwerp in dr.ItemArray
Als niet bFirstRecord toen
MyString.AppendText („,“)
Eind als
MyString.AppendText (field.ToString)
bFirstRecord = Vals
Daarna
'Nieuwe Lijn om volgende rij te onderscheiden
MyString.AppendText (Environment.NewLine)
Daarna
Daarna
Vangst ex als Uitzondering
Ex MsgBox (. Bericht)
Het eind probeert
'Schrijf het Koord aan het Dossier Csv
myWriter.WriteLine (MyString)
'Maak schoon
myWriter.Close ()
Beëindig Sub |