Cita:
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!!
