2 recordsets

[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

[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
 
'...
'...