เกี่ยวกับการลบข้อมูล...ตรวจสอบก่อนว่าสินค้าที่เราต้องการจะลบ มันถูกอ้างถึง table อื่นหรือไม่

    Sub myRepeater_ItemCommand(ByVal source As Object, ByVal e As RepeaterCommandEventArgs) Handles myRepeater.ItemCommand
		IF e.CommandName = "Delete" Then
			'*** CustomerID ***'
			Dim lblCustomerID As Label = CType(e.Item.FindControl("lblCustomerID"),Label)

			'*** Check Anathor Table ***'
			Dim dt As New DataTable
			strSQL = "SELECT * FROM cus_order WHERE CustomerID = '"& lblCustomerID.Text &"' "
			dtAdapter = New OleDbDataAdapter(strSQL, objConn)
			dtAdapter.Fill(dt)
			IF dt.Rows.Count > 0 Then
				Me.lblErr.Text = "Can not delete"
			Else
				strSQL = "DELETE FROM customer WHERE CustomerID = '"& lblCustomerID.Text &"' "
				objCmd = New OleDbCommand(strSQL, objConn)
				objCmd.ExecuteNonQuery()
				BindData()
			End IF

		End IF
    End Sub

<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<%@ Page Language="VB" %>
<script runat="server">

	Dim objConn As OleDbConnection
	Dim objCmd As OleDbCommand
	Dim strSQL As String
	Dim dtReader As OleDbDataReader

    Sub Page_Load(sender As Object, e As EventArgs)
		Dim strConnString As String
		strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";Jet OLEDB:Database Password=;"
		objConn = New OleDbConnection(strConnString)
		objConn.Open()
		
		IF Not Page.IsPostBack() Then
			BindData()
		End IF
    End Sub

	Sub BindData()
		
		strSQL = "SELECT * FROM customer"		
		objCmd = New OleDbCommand(strSQL, objConn)
		dtReader = objCmd.ExecuteReader()
		
		'*** BindData to Repeater ***'
		myRepeater.DataSource = dtReader
		myRepeater.DataBind()

		dtReader.Close()
		dtReader = Nothing

	End Sub

	Sub Page_UnLoad()
		objConn.Close()
		objConn = Nothing
	End Sub

    Sub myRepeater_ItemCommand(ByVal source As Object, ByVal e As RepeaterCommandEventArgs) Handles myRepeater.ItemCommand
		IF e.CommandName = "Delete" Then
			'*** CustomerID ***'
			Dim lblCustomerID As Label = CType(e.Item.FindControl("lblCustomerID"),Label)

			'*** Check Anathor Table ***'
			Dim dt As New DataTable
			strSQL = "SELECT * FROM cus_order WHERE CustomerID = '"& lblCustomerID.Text &"' "
			dtAdapter = New OleDbDataAdapter(strSQL, objConn)
			dtAdapter.Fill(dt)
			IF dt.Rows.Count > 0 Then
				Me.lblErr.Text = "Can not delete"
			Else
				strSQL = "DELETE FROM customer WHERE CustomerID = '"& lblCustomerID.Text &"' "
				objCmd = New OleDbCommand(strSQL, objConn)
				objCmd.ExecuteNonQuery()
				BindData()
			End IF

		End IF
    End Sub

    Sub myRepeater_ItemDataBound(ByVal sender As Object, ByVal e As RepeaterItemEventArgs) Handles myRepeater.ItemDataBound

			'*** CustomerID ***'
			Dim lblCustomerID As Label = CType(e.Item.FindControl("lblCustomerID"),Label)
			IF Not IsNothing(lblCustomerID) Then
				lblCustomerID.Text = e.Item.DataItem("CustomerID")
			End IF

			'*** Name ***'
			Dim lblName As Label = CType(e.Item.FindControl("lblName"),Label)
			IF Not IsNothing(lblName) Then
				lblName.Text = e.Item.DataItem("Name")
			End IF

			'*** Email ***'
			Dim lblEmail As Label = CType(e.Item.FindControl("lblEmail"),Label)
			IF Not IsNothing(lblEmail) Then
				lblEmail.Text = e.Item.DataItem("Email")
			End IF

			'*** CountryCode ***'
			Dim lblCountryCode As Label = CType(e.Item.FindControl("lblCountryCode"),Label)
			IF Not IsNothing(lblCountryCode) Then
				lblCountryCode.Text = e.Item.DataItem("CountryCode")
			End IF

			'*** Budget ***'
			Dim lblBudget As Label = CType(e.Item.FindControl("lblBudget"),Label)
			IF Not IsNothing(lblBudget) Then
				lblBudget.Text = e.Item.DataItem("Budget")
			End IF

			'*** Used ***'
			Dim lblUsed As Label = CType(e.Item.FindControl("lblUsed"),Label)
			IF Not IsNothing(lblUsed) Then
				lblUsed.Text = e.Item.DataItem("Used")
			End IF
			
			'*** Used ***'
			Dim lnkDelete As LinkButton = CType(e.Item.FindControl("lnkDelete"), LinkButton)
			If Not IsNothing(lnkDelete) Then
				lnkDelete.Attributes.Add("OnClick", "return confirm('Delete Record?');")
			End If
			
    End Sub

</script>
<html>
<head>
<title>ThaiCreate.Com ASP.NET - Microsoft Access</title>
</head>
<body>
	<form id="form1" runat="server">
    <asp:Repeater id="myRepeater" runat="server">
	<HeaderTemplate>
		<table border="1">
			<tr>
				<th>CustomerID</th>
				<th>Name</th>
				<th>Email</th>
				<th>CountryCode</th>
				<th>Budget</th>
				<th>Used</th>
				<th>Delete</th>
			</tr>
	</HeaderTemplate>
	<ItemTemplate>
		<tr>
			<td align="center"><asp:Label id="lblCustomerID" runat="server"></asp:Label></td>
			<td><asp:Label id="lblName" runat="server"></asp:Label></td>
			<td><asp:Label id="lblEmail" runat="server"></asp:Label></td>
			<td align="center"><asp:Label id="lblCountryCode" runat="server"></asp:Label></td>
			<td align="right"><asp:Label id="lblBudget" runat="server"></asp:Label></td>
			<td align="right"><asp:Label id="lblUsed" runat="server"></asp:Label></td>
			<td align="right"><asp:LinkButton id="lnkDelete" CommandName="Delete" runat="server">Delete</asp:LinkButton></td>			
		</tr>			
	</ItemTemplate>
	</asp:Repeater>
	</form>
</body>
</html>