01.<%@ Import Namespace="System.Data"%>
02.<%@ Import Namespace="System.Data.OleDb"%>
03.<%@ Page Language="VB" %>
04.<script runat="server">
05. Sub Page_Load(sender As Object, e As EventArgs)
06.
07.
08. Dim objFSO, objStream As Object
09. objFSO = Server.CreateObject("Scripting.FileSystemObject")
10.
11.
12. Session("mySession") = objFSO
13.
14. objStream = Session("mySession").OpenTextFile(Server.MapPath("MyFiles/thaicreate.txt"))
15.
16. Do Until objStream.AtEndOfStream
17. Me.lblText1.Text = Me.lblText1.Text & objStream.ReadLine & "<br>"
18. Loop
19. objStream.Close()
20. objStream = Nothing
21.
22.
23.
24.
25.
26. Dim objConn As OleDbConnection
27. Dim objCmd As OleDbCommand
28. Dim strConnString As String
29. strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";"
30. objConn = New OleDbConnection(strConnString)
31. objConn.Open()
32. Dim strSQL As String
33. strSQL = "SELECT * FROM customer"
34. Dim dtReader As OleDbDataReader
35. objCmd = New OleDbCommand(strSQL, objConn)
36. dtReader = objCmd.ExecuteReader()
37.
38.
39.
40. Dim myDataGrid As New DataGrid
41. Session("myControl") = myDataGrid
42.
43. Dim myCtrl As DataGrid = CType(Session("myControl"), DataGrid)
44.
45. With myCtrl
46. .AutoGenerateColumns = True
47. .DataSource = dtReader
48. .DataBind()
49. End With
50.
51.
52. Me.lblText2.Controls.Add(myCtrl)
53.
54.
55. dtReader.Close()
56. dtReader = Nothing
57. objConn.Close()
58. objConn = Nothing
59.
60. End Sub
61.</script>
62.<html>
63.<head>
64.<title>ThaiCreate.Com ASP.NET - Session Object</title>
65.</head>
66.<body>
67. <form runat="server">
68. <asp:Label id="lblText1" runat="server"></asp:Label>
69. <hr />
70. <asp:Label id="lblText2" runat="server"></asp:Label>
71. </form>
72.</body>
73.</html>
VB.NET || 
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
