Multi-Control Data Binding
Imports System.Data.SqlClient
Imports System.Windows.Forms
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class BoundForm
Inherits System.Windows.Forms.Form
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.gridDB = New System.Windows.Forms.DataGridView
Me.Label3 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.dtBirth = New System.Windows.Forms.DateTimePicker
Me.lstID = New System.Windows.Forms.ListBox
Me.txtLastName = New System.Windows.Forms.TextBox
Me.txtFirstName = New System.Windows.Forms.TextBox
CType(Me.gridDB, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
Me.gridDB.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.gridDB.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.gridDB.Location = New System.Drawing.Point(12, 126)
Me.gridDB.Name = "gridDB"
Me.gridDB.Size = New System.Drawing.Size(348, 132)
Me.gridDB.TabIndex = 17
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(116, 77)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(68, 16)
Me.Label3.TabIndex = 16
Me.Label3.Text = "Birth Date:"
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(116, 45)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(68, 16)
Me.Label2.TabIndex = 15
Me.Label2.Text = "Last Name:"
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(116, 17)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(68, 16)
Me.Label1.TabIndex = 14
Me.Label1.Text = "First Name:"
'
'dtBirth
'
Me.dtBirth.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtBirth.Location = New System.Drawing.Point(192, 73)
Me.dtBirth.Name = "dtBirth"
Me.dtBirth.Size = New System.Drawing.Size(132, 21)
Me.dtBirth.TabIndex = 13
'
'lstID
'
Me.lstID.Location = New System.Drawing.Point(12, 9)
Me.lstID.Name = "lstID"
Me.lstID.Size = New System.Drawing.Size(68, 108)
Me.lstID.TabIndex = 12
'
'txtLastName
'
Me.txtLastName.Location = New System.Drawing.Point(192, 41)
Me.txtLastName.Name = "txtLastName"
Me.txtLastName.Size = New System.Drawing.Size(132, 21)
Me.txtLastName.TabIndex = 11
'
'txtFirstName
'
Me.txtFirstName.Location = New System.Drawing.Point(192, 13)
Me.txtFirstName.Name = "txtFirstName"
Me.txtFirstName.Size = New System.Drawing.Size(132, 21)
Me.txtFirstName.TabIndex = 10
'
'BoundForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(372, 266)
Me.Controls.Add(Me.gridDB)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.dtBirth)
Me.Controls.Add(Me.lstID)
Me.Controls.Add(Me.txtLastName)
Me.Controls.Add(Me.txtFirstName)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Name = "BoundForm"
Me.Text = "BoundForm"
CType(Me.gridDB, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents gridDB As System.Windows.Forms.DataGridView
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents dtBirth As System.Windows.Forms.DateTimePicker
Friend WithEvents lstID As System.Windows.Forms.ListBox
Friend WithEvents txtLastName As System.Windows.Forms.TextBox
Friend WithEvents txtFirstName As System.Windows.Forms.TextBox
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Connect As String = "Data Source=localhost;Integrated Security=True;Initial Catalog=Northwind;"
Dim con As New SqlConnection(Connect)
Dim SQL As String = "SELECT * FROM Employees"
Dim cmd As New SqlCommand(SQL, con)
Dim adapter As New SqlDataAdapter(cmd)
Dim dsNorthwind As New DataSet()
con.Open()
adapter.Fill(dsNorthwind, "Employees")
con.Close()
gridDB.DataSource = dsNorthwind.Tables("Employees")
txtFirstName.DataBindings.Add("Text", dsNorthwind.Tables("Employees"), "FirstName")
txtLastName.DataBindings.Add("Text", dsNorthwind.Tables("Employees"), "LastName")
lstID.DataSource = dsNorthwind.Tables("Employees")
lstID.DisplayMember = "EmployeeID"
dtBirth.DataBindings.Add("Value", dsNorthwind.Tables("Employees"), "BirthDate")
End Sub
End Class
Related examples in the same category
