01.<%@ Import Namespace="System.Data"%>
02.<%@ Import Namespace="System.Data.OleDb"%>
03.<%@ Import Namespace="System.IO"%>
04.<%@ Page Language="VB" %>
05.<script runat="server">
06. Sub Page_Load(sender As Object, e As EventArgs)
07. Dim dt As DataTable
08.
09. dt = CreateDataTable
10.
11.
12. ExportToCSV(dt)
13. End Sub
14.
15.
16. Function CreateDataTable() As DataTable
17. Dim objConn As New OleDbConnection
18. Dim dtAdapter As OleDbDataAdapter
19. Dim dt As New DataTable
20.
21.
22. Dim strConnString As String
23. strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";"
24.
25. objConn = New OleDbConnection(strConnString)
26. objConn.Open()
27.
28. Dim strSQL As String
29. strSQL = "SELECT * FROM customer "
30.
31. dtAdapter = New OleDbDataAdapter(strSQL, objConn)
32. dtAdapter.Fill(dt)
33.
34. dtAdapter = Nothing
35.
36. objConn.Close()
37. objConn = Nothing
38.
39. Return dt
40.
41. End Function
42.
43. Function ExportToCSV(ByVal dt)
44.
45. Dim objConn As System.Data.OleDb.OleDbConnection
46. Dim objCmd As System.Data.OleDb.OleDbCommand
47. Dim strConnString,strSQL As String
48. Dim i As Integer
49. Dim strPath As String = "csv/"
50. Dim strFileName As String = "customer.csv"
51.
52.
53. Dim StrWer As StreamWriter
54. StrWer = File.CreateText(Server.MapPath(strPath) & strFileName)
55. StrWer.Write("CustomerID,Name,Email,CountryCode,Budget,Used")
56. StrWer.Close()
57.
58.
59. strConnString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath(strPath) & _
60. ";Extended Properties='TEXT;HDR=Yes;FMT=Delimited;Format=Delimited(,)'"
61. objConn = New System.Data.OleDb.OleDbConnection(strConnString)
62. objConn.Open()
63.
64.
65. For i = 0 To dt.Rows.Count - 1
66.
67. strSQL = "INSERT INTO " & strFileName & " (CustomerID,Name,Email,CountryCode,Budget,Used) " & _
68. "VALUES ('"&dt.Rows(i)("CustomerID")&"','"&dt.Rows(i)("Name")&"','"&dt.Rows(i)("Email")&"'" & _
69. " ,'"&dt.Rows(i)("CountryCode")&"','"&FormatNumber(dt.Rows(i)("Budget"),2)&"' " & _
70. ",'"&FormatNumber(dt.Rows(i)("Used"),2)&"')"
71. objCmd = New System.Data.OleDb.OleDbCommand()
72. With objCmd
73. .Connection = objConn
74. .CommandType = CommandType.Text
75. .CommandText = strSQL
76. End With
77. objCmd.ExecuteNonQuery()
78. Next
79.
80. Me.lblText.Text = "Export Successfully <a href=" & strPath & strFileName & ">Click here</a> "
81. objCmd = Nothing
82. objConn.Close()
83. objConn = Nothing
84.
85. End Function
86.
87.</script>
88.<html>
89.<head>
90.<title>ThaiCreate.Com ASP.NET - CSV</title>
91.</head>
92.<body>
93. <form id="form1" runat="server">
94. <asp:Label id="lblText" runat="server"></asp:Label>
95. </form>
96.</body>
97.</html>
VB.NET || 
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
