Pregunta sobre recordset en Visual Basic 6, anexo código.

[feivelfabiola]

Bueno aqui esta lo que hice espero que le sirva a alguien:


Option Explicit

Dim MiConexion As ADODB.Connection
Dim MiRecordset As ADODB.Recordset

Dim arreglocombo1() As String
Dim arreglocombo2() As String
Dim i As Integer
Dim ruta As String




Private Sub Form_Load()
Combo1.Clear
List1.Clear

i = -1

Set MiConexion = New ADODB.Connection
Set MiRecordset = New ADODB.Recordset

ruta = App.Path & "\bd1.mdb"

MiConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & ruta & ";Persist Security Info=False"
MiConexion.CursorLocation = adUseClient
MiConexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta
MiRecordset.Open "SELECT SECCION FROM LIMLOC_DTTO_SECC Where DISTRITO = 1 Order by SECCION", MiConexion, adOpenDynamic, adLockOptimistic

While Not MiRecordset.EOF
i = i + 1
ReDim Preserve arreglocombo1(i)
arreglocombo1(i) = MiRecordset.Fields("SECCION")
MiRecordset.MoveNext
Wend
For i = 0 To UBound(arreglocombo1)
Combo1.List(Combo1.ListIndex) = Combo1.List(Combo1.ListIndex) & arreglocombo1(i)
Next i

MiRecordset.Close
MiConexion.Close

MiConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & ruta & ";Persist Security Info=False"
MiConexion.CursorLocation = adUseClient
MiConexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta
MiRecordset.Open "SELECT NOMBRE FROM LIMLOC_DTTO_SECC Order by SECCION ", MiConexion, adOpenDynamic, adLockOptimistic

i = -1
While Not MiRecordset.EOF
i = i + 1
ReDim Preserve arreglocombo2(i)
arreglocombo2(i) = MiRecordset.Fields("NOMBRE")

MiRecordset.MoveNext
Wend

Me.Combo2.ListIndex = Me.Combo1.ListIndex

For i = 0 To UBound(arreglocombo2)

Combo2.List(Combo2.ListIndex) = Combo2.List(Combo2.ListIndex) & arreglocombo2(i)

Next i


MiRecordset.Close
MiConexion.Close

End Sub



'Public Event TextChanged As EventHandler
'End Sub


'BYE.