2 recordsets

[lokoman]

Iniciado por gusanosxr

Código PHP:

   
Private Sub Form_Load()
 
   Dim SQL As String
   Dim RS  As ADODB.Recordset
   SQL = "SELECT * FROM comunas ORDER BY comuna ASC"
   Set RS = New ADODB.Recordset
   RS.Source = SQL
   
   Dim SQL2 As String
   Dim RS2  As ADODB.Recordset
   SQL2 = "SELECT * FROM ciudades"
   Set RS2 = New ADODB.Recordset
   RS2.Source = SQL
   
   RS.Open , cn, 1
 
If RS.EOF = False Then
    Do While Not RS.EOF
    comuna.AddItem RS!comuna
        RS.MoveNext
    Loop
End If
'comuna.ListIndex = 0
RS.Close
 
    
   RS2.Open , cn, 1
 
If RS2.EOF = False Then
   Do While Not RS2.EOF
    ciudad.AddItem RS2!ciudad   //NO ME ENCUENTRA DATOS AQUÍ, SE DEBERÁ ABRIR EL RECORDSET DE OTRA FORMA???
        RS2.MoveNext
    Loop
End If
'ciudad.ListIndex = 0
RS2.Close 
   

NO LOGRO DAR CON LA SOLUCION, SE QUE NO ME ENCUENTRA DATOS PORQUE NO HE ABIERTO BIEN EL RECORSET...COMO SERÍA ALGÚN INDICIO???
SALUDOS

Hola!
El error está en la asignación de la consulta al RS2, ya que le pasas la consulta del RS1:

Código vb:

'...
'...
   SQL = "SELECT * FROM comunas ORDER BY comuna ASC"
   Set RS = New ADODB.Recordset
   RS.Source = SQL
   
   Dim SQL2 As String
   Dim RS2  As ADODB.Recordset
   SQL2 = "SELECT * FROM ciudades"
   Set RS2 = New ADODB.Recordset
'   RS2.Source = SQL -------------> AQUI ESTA EL ERROR
   RS2.Source = SQL2 ------------> DEBE SER ASI
 
'...
'...