(必要部份) |
Private Sub Get_Data() Dim DataTable1 As New DataTable Dim DataColumn1 As DataColumn Dim DataRow1 As DataRow DataColumn1 = New DataColumn DataColumn1.DataType = System.Type.GetType("System.String") DataColumn1.ColumnName = "Player_Name" DataTable1.Columns.Add(DataColumn1) DataColumn1 = New DataColumn DataColumn1.DataType = System.Type.GetType("System.String") DataColumn1.ColumnName = "Team_Name" DataTable1.Columns.Add(DataColumn1) Dim connectionString1 As String = "Data Source=.\SqlExpress; Initial Catalog=Soccer; Integrated Security=SSPI" Dim con1 As SqlConnection = New SqlConnection(connectionString1) con1.Open() Dim SqlString1 As String = "EXEC ChkPlayer" Dim cmd1 As SqlCommand = New SqlCommand(SqlString1, con1) Dim dr As SqlDataReader = cmd1.ExecuteReader() If dr.HasRows Then Do While dr.Read DataRow1 = DataTable1.NewRow() DataRow1("Player_Name") = dr.Item("Player_Name").ToString.Trim() DataRow1("Team_Name") = dr.Item("Team_Name").ToString.Trim() DataTable1.Rows.Add(DataRow1) Loop End If dr.Close() con1.Close() con1.Dispose() Dim DataView1 As New DataView(DataTable1) DataView1.RowFilter = "Team_Name = 'Chelsea'" DataView1.Sort = "Player_Name DESC" GridView1.DataSource = DataTable1 GridView1.DataBind() GridView2.DataSource = DataView1 GridView2.DataBind() End Sub |