Hola a todos:
Estoy tratando de hacer un programa en Visual Basic donde los datos se cargen a traves de los combobox , el problema es que me funciona la mayoria menos uno me dice que el objeto no esta creado y si lo esta , no se que otro problema pueda ser
ahi va el codigo de ejemplo , es una base de datos en Access.
Dim Con, Conex, Conex1 As ADODB.Connection
Dim Recorrer2, Reccorrer3, Recorrer4 As ADODB.Recordset
Dim Sql1, Sql2, Sql3 As String
Private Sub Combo1_GotFocus()
Recorrer2.MoveFirst
Do While Not Recorrer2.EOF
Con.Execute (Sql1)
Combo1.AddItem (Recorrer2!nombre_proveedor)
Recorrer2.MoveNext
Loop
End Sub
Private Sub Combo2_GotFocus()
Recorrer3.MoveFirst
Do While Not Recorrer3.EOF
Conex.Execute (Sql2)
Combo1.AddItem (Recorrer3!largos)
Recorrer3.MoveNext
Loop
End Sub
Private Sub Combo3_GotFocus()
Recorrer4.MoveFirst
Do While Not Recorrer4.EOF
Conex1.Execute (Sql3)
Combo3.AddItem (Recorrer4!nombre_calidad)
Recorrer4.MoveNext
Loop
End Sub
Private Sub Form_Load()
Sql1 = "Select * from proveedor"
Sql2 = "Select * from largos"
Sql3 = " Select * from calidad "
Set Con = New ADODB.Connection
Set Conex = New ADODB.Connection
Set Conex1 = New ADODB.Connection
Set Recorrer2 = New ADODB.Recordset
Set Recorrer3 = New ADODB.Recordset
Set Recorrer4 = New ADODB.Recordset
conexion = "Microsoft.Jet.OLEDB.4.0;Data Source=C:\sistema3.mdb;Persist Security Info=False"
Con.Provider = conexion
Con.Open
Conex.Provider = conexion
Conex.Open
Conex1.Provider = conexion
Conex1.Open
Set Recorrer2 = Con.Execute(Sql1)
Set Recorrer3 = Conex.Execute(Sql2)
Set Recorrer4 = Conex1.Execute(Sql3)
End Sub
Saludos.
Zack.