Multi-Control Data Binding : Data bind to ListBox « Database ADO.net « VB.Net

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

Bind data to ListBox