Default.aspx.vb |
Protected Sub InsertPanel2() Dim csBuilder As New SqlConnectionStringBuilder() csBuilder.DataSource = "." csBuilder.InitialCatalog = "Soccer" ‘Integrated Security = SSPI csBuilder.IntegratedSecurity = True Dim A As New StringBuilder A.Append("SELECT * FROM Team ") SqlDataSource2.ConnectionString = csBuilder.ConnectionString SqlDataSource2.SelectCommand = A.ToString DR1.DataSourceID = SqlDataSource2.ID DR1.DataTextField = "Team_Name" DR1.DataValueField = "Team_ID" SqlDataSource1.Dispose() End Sub |