ComboBox DisplayMember / ValueMember + DataAdapter 連接 SQL Server

 

   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