SqlDataAdapter + BindingSource 去 BindingNavigator

 

   SqlDataAdapter + BindingSource 去 BindingNavigator
 
   TextBox1 – 放 Soccer ID 既 Textbox
   TextBox2 – 放 Soccer Name 既 Textbox
   BindingNavigator1 – 用來 Move First / Move Previous / Move Next / Move Forward
 
 
   Imports System.Data.SqlClient
 
   Public Class Form1
 
      Dim bs As BindingSource
 
      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
         Bind_Textbox()
      End Sub
 
      Private Sub Bind_Textbox()
 
         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 = "SELECT Player_ID, Player_Name FROM dbo.Player"
 
         Dim Adapter As New SqlDataAdapter
         Adapter.SelectCommand = New SqlCommand(SqlString1.ToString(), con1)
 
         Dim ds As New DataSet
         Adapter.Fill(ds, "dbo.Player")
         bs = New BindingSource(ds, "dbo.Player")
 
         Dim binding1 As New Binding("Text", bs, "Player_ID")
         TextBox1.DataBindings.Add(binding1)
         TextBox1.ReadOnly = True
 
         Dim binding2 As New Binding("Text", bs, "Player_Name")
         TextBox2.DataBindings.Add(binding2)
         TextBox2.ReadOnly = True
 
         ds.Dispose()
         con1.Dispose()
 
         BindingNavigator1.BindingSource = bs
 
      End Sub
 
   End Class