ComboBox DisplayMember / ValueMember + DataAdapter 連接 SQL Server |
Private Sub GetStaff() Dim connectionString1 As String = "Data Source=.\SqlExpress; Initial Catalog=Admin; Integrated Security=SSPI" Dim con1 As SqlConnection = New SqlConnection(connectionString1) con1.Open() Dim SqlString1 As String = "SELECT Staff_ID, Staff_Name, Staff_Login FROM dbo.Staff" Dim Adapter As New SqlDataAdapter(SqlString1.ToString(), con1) Dim ds As New DataSet Adapter.Fill(ds) ComboBox1.DataSource = ds.Tables(0).DefaultView ComboBox1.DisplayMember = "Staff_Name" ComboBox1.ValueMember = "Staff_ID" ds.Dispose() con1.Dispose() End Sub |