Por fiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiinnnnnnnnnnnnnnn nnnn ya me va!!!!!!!!!
Pongo el codigo:
El del combo
Código vb:
Ver originalPrivate 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:
Ver originalSet 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