<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<HTML>
<HEAD>
<title>DataGrid with Checkboxes</title>
<% @Page Language="VB" Debug="true" %>
<% @Import Namespace="System.Data" %>
<% @Import Namespace="System.Data.OleDb" %>
<script language="vb" runat="server">
Dim Conn As OleDbConnection
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
If Not Page.IsPostBack Then
BindGrid()
End If
End Sub
Private Sub BindGrid()
Conn = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\wwwroot\aspnet\db1.mdb")
Conn.Open()
Dim SQL As string = "SELECT * FROM tb_main"
Dim Cmd As OleDbCommand = New OleDbCommand(SQL, Conn)
DG_CheckBox.datasource = cmd.ExecuteReader()
End Sub
Sub btnSelect_OnClick(ByVal sender As Object, ByVal e As EventArgs)
Dim myDataGridItem As DataGridItem
Dim chkSelected As System.Web.UI.WebControls.CheckBox
Dim strStoreName As String
Dim strStoreID As String
lblStatus.Text = "<br>You selected the Following Users:<br><br>"
For Each myDataGridItem In DG_CheckBox.Items
chkSelected = myDataGridItem.FindControl("chkSelection")
If chkSelected.Checked Then
strStoreName = CType(myDataGridItem.FindControl("lblStoreName"), Label).Text
strStoreID = CType(myDataGridItem.FindControl("hdnStoreID"), Label).Text
lblStatus.Text += "The store name is <b>" & strStoreName & "</b>"
lblStatus.Text += " and the StoreID is <b>" & strStoreID & "</b><br>"
End If
Next
End Sub
</script>
</HEAD>
<body>
<form id="Form1" method="post" runat="server">
<h2 align="center">Besucherverwaltung</h2>
<asp:datagrid id="DG_CheckBox" Runat="server" BorderColor="#FFFFFFF" ItemStyle-Font-Size="13px" ItemStyle-Font-Name="verdana" ItemStyle-BackColor="Beige" HeaderStyle-ForeColor="#ffffff" HeaderStyle-Font-Size="13px" HeaderStyle-Font-Name="Verdana" HeaderStyle-Font-Bold="True" HeaderStyle-BackColor="#ff0000" Width="99%" AutoGenerateColumns="False">
<Columns>
<asp:TemplateColumn HeaderStyle-HorizontalAlign="Center" HeaderText="X">
<ItemTemplate>
<asp:Checkbox ID="chkSelection" Runat="server" />
<asp:Label ID="hdnStoreID" Visible="true" Text='<%# DataBinder.Eval(Container.DataItem, "ID") %>' Runat=server />
</ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="Store Name">
<ItemTemplate>
<asp:Label ID="lblStoreName" Text='<%# DataBinder.Eval(Container.DataItem, "Name_Bes") %>' Runat=server />
</ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="Store Address">
<ItemTemplate>
<asp:Label ID="lblStoreAddress" Text='<%# DataBinder.Eval(Container.DataItem, "Zweck") %>' Runat=server />
</ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="City">
<ItemTemplate>
<asp:Label ID="lblCity" Text='<%# DataBinder.Eval(Container.DataItem, "Vorname_Bes") %>' Runat=server />
</ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="State">
<ItemTemplate>
<asp:Label ID="lblState" Text='<%# DataBinder.Eval(Container.DataItem, "Anleger") %>' Runat=server />
</ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="Zip">
<ItemTemplate>
<asp:Label ID="lblZip" Text='<%# DataBinder.Eval(Container.DataItem, "Anleger") %>' Runat=server />
</ItemTemplate>
</asp:TemplateColumn>
</Columns>
</asp:datagrid></form>
<asp:label id="lblStatus" Runat="server" ForeColor="#ff0000" Font-Size="12px" Font-Name="verdana"></asp:label><br>
<input id="btnSelect" type="button" value="Select my Stores" name="btnSelect" runat="server" OnServerClick="btnSelect_OnClick"><br>
<br>
<br>
<br>
</FONT>
<P></P>
</body>
</HTML>
