[MOVIDO]-Acerca de Filtrar 3 combobox y mostrar resultado en grilla. Usando VB6 y Access

[ssccaann43 ©]

Ok, lo prometido es deuda... Te pediré un par de favores...

1ero Leete un manual o algún tutorial para que puedas entender como relacionar y usar una BD.

2do En un foro generalmente se resuelven dudas, no se hacen tareas. Sin embargo está departe del usuario que responda si te lo hace o no, en mi caso lo hice porque noté que no tienes ni la menor idea de como hacerlo.

3ro Revisa la web que te pase en el link, hay mucho material.


Hay muchas maneras de hacer lo que quieres, yo sencillamente busque la más fácil de hacerlo para que puedas entenderlo.

Te dejo el Link de Descarga Aquí

No te tomes a mal los favores pedidos, es solo para que puedas aprender más...

[Mr_Doctor]

muchas gracias po los comentarios  y el ejemplo de ayuda , trate de adaptarlo a mi caso pero el problema es que solo puedo hacerlo cuando me muestra en el combobox los codigos , y en mi caso no seria necesario el uso de labels.

otro problema que me surgio es que no me carga el segundo combobox

[seba123neo]

si podes postea tu proyecto con la base de datos...es mas facil verlo..sino es un lio...

[ssccaann43 ©]

muchas gracias po los comentarios  y el ejemplo de ayuda , trate de adaptarlo a mi caso pero el problema es que solo puedo hacerlo cuando me muestra en el combobox los codigos , y en mi caso no seria necesario el uso de labels.

otro problema que me surgio es que no me carga el segundo combobox

Esto es increible... Si no es necesario el uso de labels no los coloques y ya... El ejemplo que te pasé cumple con lo que pedías... Che, no te lo tomes a mal, pero busca aprender y estudia los codigos, aqui no se hacen tareas...

[Mr_Doctor]

http://www.fileden.com/files/2006/11/24/415874/Consulta%20telefonica.rar   ahi esta el proyecto con la base de datos   
saludos

[Angeldj27]

Oyeme tienes que refrescar el combo2 nuevamente para que aparezca el listado de los servicos de segun el primer combo

Código [Seleccionar] Expandir


If RST.EOF = False Then
    Label2.Caption = RST(1)
    While RST.EOF = False
        Combo2.AddItem RST(0)
        RST.MoveNext
    Wend
End If


Y en el adoc le debes cargar la tabla en load y no directamente como lo tiene de esta forma

Código [Seleccionar] Expandir



Private Sub Form_Load()

Consulta.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\bd1.MDB;Persist Security Info=False"
Consulta.RecordSource = "SELECT * From usuario"
Consulta.Refresh

End Sub


Y luego en el evento que quieras le haces la consulta

Código [Seleccionar] Expandir


Consulta.RecordSource = "SELECT nombre_usuario as Nombre , red_minsal as Red Minsal, numero_externo as Numero Externo From usuario where a ='" & Combo2.Text & "' ORDER BY nombre_usuario"
Consulta.Refresh


Talves te haya ayudado..
Saludos..

[Mr_Doctor]

no funciono amigo trate de cambiarle lo que me dijiste y aun no funciona, el combobox 2 aparece deshabilitado y la tabla no carga al final

[Angeldj27]

Al combo2 lo tienes que abilitar tu en codigo pork lo tienes desabilitado asi cuando le cargas los datos:

Código [Seleccionar] Expandir


Combo2.Enabled = True


Osea

Código [Seleccionar] Expandir



Private Sub CargarCombo2()
Conect
opDB
SQL = "select * from servicio where cod_establecimiento='" & Combo1.Text & "'"
openRS
Combo2.Clear
    While RST.EOF = False
        Combo2.AddItem RST(0)
        RST.MoveNext
    Wend
    Combo2.Enabled = True
cerrar
End Sub


Y el grid no te va a cargar los datos pork no lo tienes seteado con ninguna tabla pork esta con el adodc pero ese esta con la tabla de usuario y esa no tiene los datos anteriores filtrados pero bueno.

Te recomiendo que te leas un par de manuales o investigues acerca de las database y las conexiones con vb ami me gusta el adodc para mis conexiones o pasate por la pagina del gille hay encontaras de todo.

Y despues de eso construye de nuevo tu proyecto y te ira mejor.

Saludos...

[seba123neo]

digamos que esta mas o menos bien...el programa anda yo lo probe y bueno le faltan cosas y veo codigo repetido muchas veces y veo que cerrar y abris constantemente las conexiones y eso no debe ser asi,la conexión tendria que quedar siempre abierta...aparte estas trabajando con el control ADODC y es mejor trabajar sin controles o sea directamente con codigo...si tengo tiempo te preparo algo sin usar el control ADODC vas a ver que es mucho mejor, puede ser dificil entenderlo priemro pero es lo que se debe hacer...despues te preparo algo...pero igualmente anda leyendo sobre ADO en internet que esta lleno de cosas..como declarar los recordset etc...

PD:ahi te lo corregi un poco fijate ahora no usa controles...

Consulta Telefonica

saludos.

[Mr_Doctor]

muchas gracias por tu ayuda, el codigo sin el ado parece mucho mas simple
 

Ahora lo unico que me falto fue simplemente que en vez de mostrar los codigos en el combobox cuando lo seleccione muestre los nombres correspondiente a los codigo.

Private Sub CargarComboServicio()
    RSTAux.Open "SELECT * FROM servicio WHERE cod_establecimiento='" & CmbEstablecimiento.Text & "'", CNN, adOpenStatic, adLockOptimistic
   
    CmbServicio.Clear
    Do Until RSTAux.EOF
        CmbServicio.AddItem RSTAux(0)
        RSTAux.MoveNext
    Loop
   
    RSTAux.Close
End Sub

como podria modificar ese codigo para que a la vez de relacionarme los codigos que unen las tablas , en vez de mostrarme en la lista del combobox los codigos me muestre los campos del nombre de descripcion.

Gracias