Combo Box en Visual Basic

[embersi]

hola, no hace mucho empece a probar bases de datos en access y visual basic 5 , el tema es que quiero usar un combo box o lo que sea para hacer una pequeña aplicacion y no doy pie con bola (mejor dicho no pego una y ni idea como hacerlo).
El tema es asi, tengo una base en access en el cual los campos son los siguientes:
Cliente - impres_marca - modelo - problema - importe
entonces yo para hacer algo mas lindo y de pasopracticar un poco con VB empeze una aplicacion en la cual tengo un textbox con cliente, problema e importe y queria hacer 2 combo enlazados en el cual en uno elijo la marca de la impresora y en el otro automaticamente me filtraria todos los modelos cargados segun la marca seleccionada. Al principio tenia todo en una base sola, despues hice una aparte para la marca de la impresora con un indice pero de cualquier forma me volvi loco y no lo pude hacer andar.
necesitaria ayuda con esto principalmente.

Tambien quisiera saber como hacer para seleccionar algo en un combo, igual que el ejemplo anterior pero que tome los datois de una columna y los siguientes en distintos textbox, no se si me explico.

Y ya que estamos tambien necesitaria hacer algo similar a los dos ejemplos estos pero en un formulario de access directamente.

Mil gracias y creo que esto no debe ser dificil pero si es complicado explicarlo, por lo menos para mi.

[GeoAvila]

EN LAS FAQ'S Tengo un ejemplo de como manejar los dbcombo que te puede ayudar mucho..

nos vmeos..

[aldo1982]

Private Sub Form_Load()
'ACA CARGAMOS LAS MARCAS DE IMPRESORAS^^

Combo1.Clear
Set dbconn = New ADODB.Connection
dbconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=empresa.mdb;Persist Security Info=False"
dbconn.Open
SQL = "select * from TUTABLA "
Set rs = dbconn.Execute(SQL, , adCmdText)
Do While Not rs.EOF
Combo1.AddItem rs!MARCA_IMPRESORA

rs.MoveNext
Loop
rs.Close
'Cierra la conexion a la base de datos
dbconn.Close
Combo1.ListIndex = 0
End Sub
'================================
'AHORA EN EL EVENTO CLICK DELCOMBO1 CARGAMOS EN EL COMBO2 LOS MODELOS DE LAS IMPRESORAS

Private Sub COMBO1_Click()
Set dbconn = New ADODB.Connection
dbconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=empresa.mdb;Persist Security Info=False"
dbconn.Open
SQL = "select DISTINCT MODELOS_IMPRESORAS from TU_TABLA WHERE MARCA_IMPRESORA LIKE '"& COMBO1 &"' "
Set rs = dbconn.Execute(SQL, , adCmdText)
Do While Not rs.EOF
COMBO2.ADDITEM RS!MODELOS_IMPRESORAS
rs.MoveNext
Loop
rs.Close
'Cierra la conexion a la base de datos
dbconn.Close
End Sub
'====================
BUE ESPERO KE SEA ESO LO KE KERIAS, SALU2 Y BUE NO ME ACORDAVA BIEN LOS NOMBRES DE LAS TABLAS Y DE LOS CAMPOS, PERO CREO KE ESTA VASTANTE BIEN EL EJEMPLO JEJEJE
SALU2 Y GRACIAS A ESTE FORO ^^

[embersi]

Mil gracias voy a ver que puedo hacer ya que no entiendo mucho y como dije que recien empezaba m ecuesta bastante el tema de este tipo de conexiones a bases de datos, acualmente las poas conexiones que hice las hice de la forma sencilla y mas facil, sera por eso que a lo mejor no podia hacer lo que yo necesitaba.
Ahora si quiero aplicar esto mismo pero en un formulario de access es igual?

[embersi]

que me sugieren para leer ya que recien empiezo y no enteendi un pomo de lo que me explicaron en este post.

[pmip]

Iniciado por aldo1982

Private Sub Form_Load()
'ACA CARGAMOS LAS MARCAS DE IMPRESORAS^^

Combo1.Clear
Set dbconn = New ADODB.Connection
dbconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=empresa.mdb;Persist Security Info=False"
dbconn.Open
SQL = "select * from TUTABLA "
Set rs = dbconn.Execute(SQL, , adCmdText)
Do While Not rs.EOF
Combo1.AddItem rs!MARCA_IMPRESORA

rs.MoveNext
Loop
rs.Close
'Cierra la conexion a la base de datos
dbconn.Close
Combo1.ListIndex = 0
End Sub
'================================
'AHORA EN EL EVENTO CLICK DELCOMBO1 CARGAMOS EN EL COMBO2 LOS MODELOS DE LAS IMPRESORAS

Private Sub COMBO1_Click()
Set dbconn = New ADODB.Connection
dbconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=empresa.mdb;Persist Security Info=False"
dbconn.Open
SQL = "select DISTINCT MODELOS_IMPRESORAS from TU_TABLA WHERE MARCA_IMPRESORA LIKE '"& COMBO1 &"' "
Set rs = dbconn.Execute(SQL, , adCmdText)
Do While Not rs.EOF
COMBO2.ADDITEM RS!MODELOS_IMPRESORAS
rs.MoveNext
Loop
rs.Close
'Cierra la conexion a la base de datos
dbconn.Close
End Sub
'====================
BUE ESPERO KE SEA ESO LO KE KERIAS, SALU2 Y BUE NO ME ACORDAVA BIEN LOS NOMBRES DE LAS TABLAS Y DE LOS CAMPOS, PERO CREO KE ESTA VASTANTE BIEN EL EJEMPLO JEJEJE
SALU2 Y GRACIAS A ESTE FORO ^^

consulta:
En el ejemplo expuesto, ¿como puedo extraer el codigo de la descripcón?
Es decir muestro nombre de la persona pero por debajo considero el Rut, en un combobox

Gracias!!