ComboBox en visual net con SqlServer

[asastrem]

Te mando un ejemplo que posteo alguna el Ing. Fernando Luque Sánchez
de trujillo Peru.
espero te sirva


Imports System.Data
Imports System.Data.SqlClient

Public Class frmcombos
Inherits System.Windows.Forms.Form
Dim cn As SqlConnection
Dim dsDatos As DataSet
Dim daClientes As SqlDataAdapter
Dim daOrdenes As SqlDataAdapter
Dim reClientesOrdenes As DataRelation

Private Sub Cargar(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load

'Nueva instancia de la cadena de conexion
cn = New SqlConnection("user id=sa; pwd=microsoft;data source=.;persist security info=False;initial catalog=Northwind")
'El Adaptador
daClientes = New SqlDataAdapter("select customerid, companyname, contactname from customers", cn)
'Instancia del DataSet
dsDatos = New DataSet
'Llenar el DataSet
daClientes.Fill(dsDatos, "Clientes")
'Origen del Combo Clientes
Me.cboClientes.DataSource = dsDatos.Tables("Clientes")
Me.cboClientes.DisplayMember = dsDatos.Tables("Clientes").Columns("CustomerId").T oString
Me.cboClientes.SelectedIndex = 0
Me.lblCliente.Text = dsDatos.Tables("Clientes").Rows(Me.cboClientes.Sel ectedIndex)("CompanyName").ToString

'Crear la tabla con órdenes
daOrdenes = New SqlDataAdapter("select orderid, customerid, orderdate, freight from orders", cn)
daOrdenes.Fill(dsDatos, "Ordenes")

'Origen del Combo Órdenes
Me.cboOrdenes.DataSource = dsDatos.Tables("Ordenes")
Me.cboOrdenes.DisplayMember = dsDatos.Tables("Ordenes").Columns("OrderId").ToStr ing
Me.cboOrdenes.SelectedIndex = 0

'Mostrar el otro combo - Filtrar
Me.verOrdenes()
Me.lblCantidad.Text = Me.cboOrdenes.Items.Count.ToString '+ " órdenes"

Me.StatusBar1.Panels(1).Text = "Fecha: " + CType(Format(Today, "Short Date"), String)
Me.StatusBar1.Panels(2).Text = "MCSD .Net Ing. Fernando Luque Sánchez"
Me.StatusBar1.Panels(3).Text = "Trujillo - Perú"

End Sub

Private Sub verOrdenes()
'crear una vista para filtrar
Dim dvOrdenes As New DataView(dsDatos.Tables("Ordenes"))
dvOrdenes.RowFilter = "CustomerId = '" & Me.cboClientes.Text & "'"
Me.cboOrdenes.DataSource = dvOrdenes
End Sub

Private Sub SeleccionarCliente(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles cboClientes.SelectedIndexChanged

verOrdenes()
Me.lblCliente.Text = dsDatos.Tables("Clientes").Rows(cboClientes.Select edIndex)("CompanyName").ToString
Me.lblCantidad.Text = Me.cboOrdenes.Items.Count.ToString
End Sub

'Para el contador
Dim vcuenta As Integer

Private Sub AgregarLista(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click

'Me.ListView1.Items.Add(Me.TextBox1.Text)
'Me.ListView1.Items(vcuenta).SubItems.Add(Me.TextB ox2.Text)
'vcuenta += 1
End Sub

Private Sub StatusBar1_PanelClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.StatusBarPanelClickEventArgs) Handles StatusBar1.PanelClick

End Sub
End Class