01.<%@ Page Language="VB" %>
02.<%@ Import Namespace="System.Data"%>
03.<%@ Import Namespace="System.Data.OleDb"%>
04.<script runat="server">
05. Sub Page_Load(sender As Object, e As EventArgs)
06.
07. Dim objConn As New OleDbConnection
08. Dim objCmd As New OleDbCommand
09. Dim dtAdapter As New OleDbDataAdapter
10.
11. Dim ds As New DataSet
12. Dim strConnString,strSQL As String
13.
14. strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";"
15. strSQL = "SELECT * FROM customer"
16.
17. objConn.ConnectionString = strConnString
18. With objCmd
19. .Connection = objConn
20. .CommandText = strSQL
21. .CommandType = CommandType.Text
22. End With
23. dtAdapter.SelectCommand = objCmd
24.
25. dtAdapter.Fill(ds)
26.
27. dtAdapter = Nothing
28. objConn.Close()
29. objConn = Nothing
30.
31.
32. ds.Tables(0).WriteXML(Server.MapPath("XML/myXml.xml"))
33.
34. ds = Nothing
35.
36. Me.lblText.Text = "XML Created <a href=XML/myXml.xml>click here</a> to view"
37. End Sub
38.</script>
39.<html>
40.<head>
41. <title>ThaiCreate.Com ASP.NET - XML</title>
42.</head>
43.<body>
44. <form id="form1" runat="server">
45. <asp:Label id="lblText" runat="server"></asp:Label>
46. </form>
47.</body>
48.</html>
