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 |