vb 使用StreamWriter书写流写出数据并生成文件

sql = "Select case when date ='' then '0'else CONVERT(varchar(100), date, 101) end as date,case when ad ='' then '0'else CONVERT(varchar(100), ad, 101) end as ad,event1,type1,code from EventData where ip='" + UserIP + "' order by code,event1"



            Dim table As DataTable = gData.GetDataTable(sql, SqlConnect) '將所有的查詢結果放入臨時表中，在查詢臨時表內容

            Dim count = table.Rows.Count



            If count = 0 Then

                MessageBox.Show("no data.")

                Exit Sub

            End If



            Dim sw As StreamWriter = File.CreateText(TextBox1.Text & "\" & "Events.csv") '在桌面創建文件Events.csv



            Dim c As String = ""

            For i As Integer = 0 To count

                If i = 0 Then 'header

                    sw.WriteLine("E.CODE,E.TYPE,E.EVENT,E.AD,E.DONE") '標題

                Else 'data

                    For j As Integer = 0 To 4 '一共5列

                        If j = 0 Then

                            c = table.Rows(i - 1).Item(j)

                        Else

                            c = table.Rows(i - 1).Item(j) & "," & c '對字段進行拼接

                        End If

                    Next

                    sw.WriteLine(c)

                    c = "" '將C清空

                End If

            Next



            sw.Flush()

            sw.Close() '新建文件將原有的內容覆蓋