ComboBox en visual net con SqlServer

[Emergencia]

Iniciado por 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

aun mantengo un problema lo que pasa es que tengo que hacer que las tablas se muestren dentro del combobox pero por ejemplo tengo que colocar cualquier base de datos de sql y en el combo se deben de mostrar las tablas yo no lo especifico solo coloco la base de datos que sea y en el combo se deben de mostrar las tablas de esa base de datos pero noooooooooo logro realizarlo y estoy mas perdidaaaaaaaaa!!!!!!!!!!..que desesperacionnnnnnn......