001.<%@ Import Namespace="System.Data"%>
002.<%@ Import Namespace="System.Data.OleDb"%>
003.<%@ Page Language="VB" %>
004.<script runat="server">
005.
006. Dim objConn As OleDbConnection
007. Dim objCmd As OleDbCommand
008. Dim strSQL As String
009. Dim dtReader As OleDbDataReader
010.
011. Sub Page_Load(sender As Object, e As EventArgs)
012. Dim strConnString As String
013. strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";Jet OLEDB:Database Password=;"
014. objConn = New OleDbConnection(strConnString)
015. objConn.Open()
016.
017. IF Not Page.IsPostBack() Then
018. BindData()
019. End IF
020. End Sub
021.
022. Sub BindData()
023.
024. strSQL = "SELECT * FROM customer"
025. objCmd = New OleDbCommand(strSQL, objConn)
026. dtReader = objCmd.ExecuteReader()
027.
028.
029. myRepeater.DataSource = dtReader
030. myRepeater.DataBind()
031.
032. dtReader.Close()
033. dtReader = Nothing
034.
035. End Sub
036.
037. Sub Page_UnLoad()
038. objConn.Close()
039. objConn = Nothing
040. End Sub
041.
042. Sub myRepeater_ItemCommand(ByVal source As Object, ByVal e As RepeaterCommandEventArgs) Handles myRepeater.ItemCommand
043. IF e.CommandName = "Delete" Then
044.
045. Dim lblCustomerID As Label = CType(e.Item.FindControl("lblCustomerID"),Label)
046.
047.
048. Dim dt As New DataTable
049. strSQL = "SELECT * FROM cus_order WHERE CustomerID = '"& lblCustomerID.Text &"' "
050. dtAdapter = New OleDbDataAdapter(strSQL, objConn)
051. dtAdapter.Fill(dt)
052. IF dt.Rows.Count > 0 Then
053. Me.lblErr.Text = "Can not delete"
054. Else
055. strSQL = "DELETE FROM customer WHERE CustomerID = '"& lblCustomerID.Text &"' "
056. objCmd = New OleDbCommand(strSQL, objConn)
057. objCmd.ExecuteNonQuery()
058. BindData()
059. End IF
060.
061. End IF
062. End Sub
063.
064. Sub myRepeater_ItemDataBound(ByVal sender As Object, ByVal e As RepeaterItemEventArgs) Handles myRepeater.ItemDataBound
065.
066.
067. Dim lblCustomerID As Label = CType(e.Item.FindControl("lblCustomerID"),Label)
068. IF Not IsNothing(lblCustomerID) Then
069. lblCustomerID.Text = e.Item.DataItem("CustomerID")
070. End IF
071.
072.
073. Dim lblName As Label = CType(e.Item.FindControl("lblName"),Label)
074. IF Not IsNothing(lblName) Then
075. lblName.Text = e.Item.DataItem("Name")
076. End IF
077.
078.
079. Dim lblEmail As Label = CType(e.Item.FindControl("lblEmail"),Label)
080. IF Not IsNothing(lblEmail) Then
081. lblEmail.Text = e.Item.DataItem("Email")
082. End IF
083.
084.
085. Dim lblCountryCode As Label = CType(e.Item.FindControl("lblCountryCode"),Label)
086. IF Not IsNothing(lblCountryCode) Then
087. lblCountryCode.Text = e.Item.DataItem("CountryCode")
088. End IF
089.
090.
091. Dim lblBudget As Label = CType(e.Item.FindControl("lblBudget"),Label)
092. IF Not IsNothing(lblBudget) Then
093. lblBudget.Text = e.Item.DataItem("Budget")
094. End IF
095.
096.
097. Dim lblUsed As Label = CType(e.Item.FindControl("lblUsed"),Label)
098. IF Not IsNothing(lblUsed) Then
099. lblUsed.Text = e.Item.DataItem("Used")
100. End IF
101.
102.
103. Dim lnkDelete As LinkButton = CType(e.Item.FindControl("lnkDelete"), LinkButton)
104. If Not IsNothing(lnkDelete) Then
105. lnkDelete.Attributes.Add("OnClick", "return confirm('Delete Record?');")
106. End If
107.
108. End Sub
109.
110.</script>
111.<html>
112.<head>
113.<title>ThaiCreate.Com ASP.NET - Microsoft Access</title>
114.</head>
115.<body>
116. <form id="form1" runat="server">
117. <asp:Repeater id="myRepeater" runat="server">
118. <HeaderTemplate>
119. <table border="1">
120. <tr>
121. <th>CustomerID</th>
122. <th>Name</th>
123. <th>Email</th>
124. <th>CountryCode</th>
125. <th>Budget</th>
126. <th>Used</th>
127. <th>Delete</th>
128. </tr>
129. </HeaderTemplate>
130. <ItemTemplate>
131. <tr>
132. <td align="center"><asp:Label id="lblCustomerID" runat="server"></asp:Label></td>
133. <td><asp:Label id="lblName" runat="server"></asp:Label></td>
134. <td><asp:Label id="lblEmail" runat="server"></asp:Label></td>
135. <td align="center"><asp:Label id="lblCountryCode" runat="server"></asp:Label></td>
136. <td align="right"><asp:Label id="lblBudget" runat="server"></asp:Label></td>
137. <td align="right"><asp:Label id="lblUsed" runat="server"></asp:Label></td>
138. <td align="right"><asp:LinkButton id="lnkDelete" CommandName="Delete" runat="server">Delete</asp:LinkButton></td>
139. </tr>
140. </ItemTemplate>
141. </asp:Repeater>
142. </form>
143.</body>
144.</html>
