Default.aspx |
…… <asp:SqlDataSource ID="SqlDataSource1" runat="server"> </asp:SqlDataSource> <asp:GridView ID="GridView1" runat="server" AllowPaging="true" PagerSettings-PageButtonCount="7" AutoGenerateDeleteButton="true" EnableViewState="False"> <PagerSettings PageButtonCount="7"></PagerSettings> </asp:GridView> …… |
Default.aspx.vb |
Imports System.Data.SqlClient Partial Public Class _Default Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Read() End Sub Sub Read() Dim csBuilder As New SqlConnectionStringBuilder() csBuilder.DataSource = "." csBuilder.InitialCatalog = "Soccer" ‘Integrated Security = SSPI csBuilder.IntegratedSecurity = True Dim A As New StringBuilder A.Append("SELECT Player.Player_ID, Player.Player_Name, Team.Team_Name, League.League_Name ") A.Append("FROM Player INNER JOIN ") A.Append("dbo.Team ON Player.Team_ID = Team.Team_ID INNER JOIN ") A.Append("dbo.League ON Team.League_ID = League.League_ID ") A.Append("ORDER BY Player.Player_ID ") SqlDataSource1.ConnectionString = csBuilder.ConnectionString SqlDataSource1.SelectCommand = A.ToString GridView1.DataSourceID = SqlDataSource1.ID GridView1.DataBind() SqlDataSource1.Dispose() End Sub Protected Sub GridView1_Delete(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GridView1.RowDeleting Dim csBuilder As New SqlConnectionStringBuilder() csBuilder.DataSource = "." csBuilder.InitialCatalog = "Soccer" ‘Integrated Security = SSPI csBuilder.IntegratedSecurity = True Dim A As New StringBuilder A.Append("DELETE FROM Player WHERE Player.Player_ID = ") A.Append(GridView1.Rows(e.RowIndex).Cells(1).Text.ToString.Trim) SqlDataSource1.ConnectionString = csBuilder.ConnectionString SqlDataSource1.DeleteCommand = A.ToString GridView1.DataSourceID = SqlDataSource1.ID GridView1.DataBind() SqlDataSource1.Dispose() End Sub End Class |