combobox y access en vb.net

[cristiantorres]

yo crearia 2 metodos 1 para cada combobox algo asi.

Código vb:

Dim conn As New OleDbConnection() 'AQUI ESPECIFICA TU CADENA DE CONEXION A NIVEL DE CLASE
 
Public Function Datos() As DataTable
    Dim dt As New DataTable()
 
    Dim consulta As String = "SELECT * FROM local"
    'consulta a la tabla paises
    Dim comando As New OleDbCommand(consulta, conn)
 
    Dim adap As New OleDbDataAdapter(comando)
 
    adap.Fill(dt)
    Return dt
End Function
 
Public Function Filtro(filtro As Integer) As DataTable
    Dim dt As New DataTable()
 
    Dim consulta As String = "SELECT FROM jefe where local = @filtro"
    'consulta a la tabla paises
    Dim comando As New OleDbCommand(consulta, conn)
    comando.Parameters.AddWithValue("@filtro", filtro)
 
    Dim adap As New OleDbDataAdapter(comando)
 
    adap.Fill(dt)
    Return dt
End Function
 

Como podes ver en la primera función obtienes todos los datos de la tabla local y en la segunda función obtienes los datos filtrados de la tabla jefe, en el código hago el filtro mediante el id si no es tu caso solo lo cambias.

Ahora en el evento load del formulario cargas el primer combobox

Código vb:

ComboBox1.DataSource = Datos()
ComboBox1.DisplayMember = "Nombre" 'campo que queres mostrar
ComboBox1.ValueMember = "Id" 'campo que capturas
 

Ahora para llenar el segundo comobobox tienes que hacerlo en el evento correspondiente del combobox1 que creo que seria en el SelectedIndexChanged (no lo recuerdo muy bien)

Código vb:

Dim id As Integer = Convert.ToInt32(ComboBox1.SelectedValue)
ComboBox1.DataSource = Filtro(id)
ComboBox1.DisplayMember = "Nombre"
ComboBox1.ValueMember = "Id"
 

Prueba algo asi y cuentas si te funciono ya que no he probado el código lo hice al momento asi que nose si tiene errores.

Otra cosa si los datos filtrados que quieres mostrar en el segundo combobox son de la misma tabla que los del comobox1 te ahorrarias el segundo método ya que podrías filtrar los datos usando linq .