Datos de combo a combo

[Insomnia]

Hola

Te has bajado el código que adjunto en el enlace?, esta todo, el proyecto y la bd que me he creado para el ejemplo. Baja el proyecto para ver si te funciona.

En principio al cambiar la select del form load te debería de cargar el combo1 con los resultados que obtiene de la select. Repito, baja el proyecto del enlace para verlo mejor, te tiene que funcionar perfectamente

http://www.megaupload.com/?d=PECP4E3G

--Saludos--

[Insomnia]

Iniciado por Sergio18

Acabo de hacer esto en el form y no se porque solo me sale Alcorcon como ciudad
te lo dejo aqui

Código vb:

Set rsCiudad2 = New Recordset
With rsCiudad2
.Open "select ciudad from ciudad2", cnPrueba, adOpenDynamic, adLockOptimistic
End With
With rsCiudad2
Combo1.AddItem rsCiudad2.Fields(0)
rsCiudad2.MoveNext
End With
 

saludos

Te falta el bucle, en el código que pones, añades el primer registro al combo, luego te mueves al siguiente registro y se termina. NO has puesto la parte del While Not rsCiudad2.EOF. Si no pones eso no hay ningún bucle.

En estos casos acostúmbrate a depurar paso a paso (se entiende mejor el código). Depuración / Paso a paso por instrucciones (para avanzar en la depuración tienes que ir pulsando F8)

--Saludos y hasta mañana--

[Sergio18]

Hola

Te has bajado el código que adjunto en el enlace?, esta todo, el proyecto y la bd que me he creado para el ejemplo. Baja el proyecto para ver si te funciona.

En principio al cambiar la select del form load te debería de cargar el combo1 con los resultados que obtiene de la select. Repito, baja el proyecto del enlace para verlo mejor, te tiene que funcionar perfectamente

http://www.megaupload.com/?d=PECP4E3G

--Saludos--

Ahora lo descargo es que acabo de llegar y ademas pensaba que en el enlace solo tenias el codigo puesto.

Saludos y hasta mañana

[Sergio18]

Por fiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiinnnnnnnnnnnnnnn nnnn ya me va!!!!!!!!!

Pongo el codigo:
El del combo

Código vb:

Private Sub Combo2_Click()
'Crear un conjunto de registros desde la tabla Ciudad2
Set rsCiudad2 = New Recordset
'Establecer sus propiedades
rsCiudad2.Open "Select ciudad from ciudad2 inner join provincias ON  provincias.idprovincias = ciudad2.idprovincia WHERE provincias='" & Combo2.Text & "'", cnPrueba, adOpenDynamic, adLockOptimistic
Combo1.Clear
While Not rsCiudad2.EOF
    Combo1.AddItem rsCiudad2.Fields(0)
    rsCiudad2.MoveNext
Wend
End Sub
 

El del form

Código vb:

Set cnPrueba = New Connection
'Establecer sus propiedades
     With cnPrueba
        .Provider = "Microsoft.Jet.oledb.4.0"
        .ConnectionString = "prueba.mdb"
    End With
cnPrueba.Open
 
Set rsCiudad2 = New Recordset
rsCiudad2.Open "select provincias from provincias", cnPrueba, adOpenDynamic, adLockOptimistic
While Not rsCiudad2.EOF
    Combo2.AddItem rsCiudad2.Fields(0)
    rsCiudad2.MoveNext
Wend
 

He estado esta mañana y no me iba por una estupidez en la sentencia sql, porque tu tenias 'ciudad2.idprovincias' y yo tenia que poner 'ciudad2.idprovincia'
por una "s" me he tirado media hora xd.

Bueno Insomnia , de verdad que te lo agradezco mucho y que dios te lo pague con una buena esposa

Salud2

[Insomnia]

AL FIN !!!!!!

Lo de ciudad2.idprovincias me lo decías tu mismo en un post anterior

Las tablas son:

Provincias: idprovincias,provincias
Ciudad2: idciudad,idprovincias,ciudad

Me alegro de que finalmente lo hayas solucionado, como consejo, te recomendaría revisar el lenguaje SQL y tener siempre al lado el manual que te comenté (http://www.mailxmail.com/curso-sql), por otro lado cuando tengas errores, utiliza los puntos de interrupción y la depuración paso a paso.

Por cierto, creo que es la primera vez que escribo tanto en un mismo post (dos páginas), te libras de tener que invitarme a unas cervezas por el anonimato de internet, que si no, estate seguro que no te librabas.

--Saludos--

[Sergio18]

Ya es que siempre me confundo con lo de idprovincias e idprovincia pero bueno, del sql ya tengo una manual bastante extenso con todo, lo que pasa es que no me acuerdo de todo.

Las cerverzas te las envio por mp XD

Saludos