Relación de tablas en SQL Server de forma grafica

Llenar ListBox con datos de una tabla...

Función que llena un listbox con información de una tabla, lo primero que haremos es establecer la cadena de conexion con contiene el nombre de la instancia de SQL Server que estamos manejando, asi como el nombre de la base de datos y por ultimo usaremos la seguridad integrada de windows para acceso a la base de datos.

Posteriormente establecemos la instrucción o scrip con el cual accederemos a la informacion de la tabla (usuarios) y los campos que desemos mostrarl se recomienda que los dos campos sean la descripcion de que deseamos mostrar en el listbox y el el campo llave por que nos moveremos en el listbox.

Una vez realizado el paso enterior declaramos un dataset en el cual de llenaremos los datos de la consulta (SELECT.....) y posteriormente llenamos el dataset y por ultimo asignamos las propiedades del Listbox, primero definimos la propiedad DataSource que es la que indica la lista que este control utiliza para obtener sus elementos, la propiedad DisplarMenber indica lo que se va a mostrar de los elementos del control y por ultimo la ValueMember que indica la propiedad que se va a usar como valor real de los elementos del control.

Private Sub CargaListBox()
        Dim sSQL As String
        Dim sCadenaConexion As String = "Data Source=nombre_instanciaSQL;Initial Catalog=NombreBD;Integrated Security=True"

        sSQL = "SELECT usuario, Nombre FROM Usuarios"

        Try
            Dim _MiConexion As New SqlConnection(sCadenaConexion)
            Dim _MiAdaptador As SqlDataAdapter
            Dim _MiDataSet As New DataSet
            _MiConexion.Open()

            _MiAdaptador = New SqlDataAdapter(sSQL, _MiConexion)
            _MiAdaptador.Fill(_MiDataSet, "Usuarios")
            _MiConexion.Close()

            ListBox1.DataSource = _MiDataSet.Tables("Usuarios")
            ListBox1.DisplayMember = "Nombre"
            ListBox1.ValueMember = "usuario"

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub