DataAdapter + DropDownList 使用方法 (必要部分) |
Private Sub DataAdapter_DropDownList() Dim connectionString1 As String = "Data Source=.\SqlExpress; Initial Catalog=book; Integrated Security=SSPI" Dim con1 As SqlConnection = New SqlConnection(connectionString1) con1.Open() Dim sb As New StringBuilder sb.Append("SELECT * FROM dbo.Category;") Dim Adapter As New SqlDataAdapter(sb.ToString(), con1) Dim ds As New DataSet Adapter.Fill(ds) DropDownList1.DataSource = ds.Tables(0).DefaultView DropDownList1.DataTextField = "Category_Name" DropDownList1.DataValueField = "Category_ID" DropDownList1.DataBind() con1.Close() con1.Dispose() End Sub |