001.<%@ Import Namespace="System.Data"%>
002.<%@ Import Namespace="System.Data.SqlClient"%>
003.<%@ Page Language="VB" %>
004.<script runat="server">
005. Dim objConn As System.Data.SqlClient.SqlConnection
006. Dim objCmd As System.Data.SqlClient.SqlCommand
007.
008. Sub Page_Load(sender As Object, e As EventArgs)
009. Dim strConnString As String
010. strConnString = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase;Max Pool Size=400;Connect Timeout=600;"
011. objConn = New System.Data.SqlClient.SqlConnection(strConnString)
012. objConn.Open()
013.
014. BindData()
015. End Sub
016.
017. Sub BindData()
018.
019.
020.
021.
022.
023. myRepeater.DataSource = CreateDataSet.Tables(0).DefaultView
024. myRepeater.DataBind()
025.
026. End Sub
027.
028.
029. Function CreateDataTable() As DataTable
030. Dim objConn As New System.Data.SqlClient.SqlConnection
031. Dim dtAdapter As System.Data.SqlClient.SqlDataAdapter
032. Dim dt As New DataTable
033.
034.
035. Dim strConnString As String
036. strConnString = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase;Max Pool Size=400;Connect Timeout=600;"
037. objConn = New System.Data.SqlClient.SqlConnection(strConnString)
038. objConn.Open()
039.
040. Dim strSQL As String
041. strSQL = "SELECT * FROM customer"
042.
043. dtAdapter = New System.Data.SqlClient.SqlDataAdapter(strSQL, objConn)
044. dtAdapter.Fill(dt)
045.
046. dtAdapter = Nothing
047.
048. Return dt
049.
050. End Function
051.
052.
053. Function CreateDataSet() As DataSet
054. Dim objConn As New System.Data.SqlClient.SqlConnection
055. Dim objCmd As New System.Data.SqlClient.SqlCommand
056. Dim dtAdapter As New System.Data.SqlClient.SqlDataAdapter
057.
058. Dim ds As New DataSet
059. Dim strConnString,strSQL As String
060.
061. strConnString = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase;Max Pool Size=400;Connect Timeout=600;"
062. strSQL = "SELECT * FROM customer"
063.
064. objConn.ConnectionString = strConnString
065. With objCmd
066. .Connection = objConn
067. .CommandText = strSQL
068. .CommandType = CommandType.Text
069. End With
070. dtAdapter.SelectCommand = objCmd
071.
072. dtAdapter.Fill(ds)
073.
074. dtAdapter = Nothing
075.
076. Return ds
077.
078. End Function
079.
080. Sub Page_UnLoad()
081. objConn.Close()
082. objConn = Nothing
083. End Sub
084.
085.</script>
086.<html>
087.<head>
088.<title>ThaiCreate.Com ASP.NET - System.Data.SqlClient</title>
089.</head>
090.<body>
091. <form id="form1" runat="server">
092. <asp:Repeater id="myRepeater" runat="server">
093. <HeaderTemplate>
094. <table border="1">
095. <tr>
096. <th>CustomerID</th>
097. <th>Name</th>
098. <th>Email</th>
099. <th>CountryCode</th>
100. <th>Budget</th>
101. <th>Used</th>
102. </tr>
103. </HeaderTemplate>
104. <ItemTemplate>
105. <tr>
106. <td align="center"><%#Container.DataItem("CustomerID") %></td>
107. <td><%#Container.DataItem("Name") %></td>
108. <td><%#Container.DataItem("Email") %></td>
109. <td align="center"><%#Container.DataItem("CountryCode") %></td>
110. <td align="right"><%#Container.DataItem("Budget") %></td>
111. <td align="right"><%#Container.DataItem("Used") %></td>
112. </tr>
113. </ItemTemplate>
114. </asp:Repeater>
115. </form>
116.</body>
117.</html>
VB.NET || 
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
