Recordset dentro de otro

[shashas]

Hola a todos. Hace tiempo que postée un tema similar al que me ocurre y no le pude encontrar solucón..

Veran lo que necesito es que mi aplcacion mientras está recorriendo un recordset, haga otro dependiendo del valor de un campo.

Un ejemplo seria

rs.Source = "SELECT Id, Nombre, Dirección, NIF FROM Personas ORDER BY Nombre"

Y mientras recorro este recordset

rs2.Source = "SELECT Supervisor FROM Supervisore WHERE Persona = '" & rs!nombre & "'.

Algo así si me explico. La BBDD de datos no es mía y no la puedo tocar, ya se que relacinándolo funcionaría, pero no puedo modificar nada. Lo tengo que hacer por la aplicación.

Les paso el código que hago servir:

Dim rs2 As Recordset
Set rs2 = New Recordset
connectar
LvEscriptors.ListItems.Clear
While Not rs.EOF
Set ObjItem = LvEscriptors.ListItems.add(, , rs(0))
ObjItem.SubItems(1) = rs!titulo & ""
ObjItem.SubItems(2) = rs!Nombre & ""
ObjItem.SubItems(3) = rs!País & ""
rs2.Source = "SELECT Propietario.Nombre FROM Propietario INNER JOIN Editoriales ON Propietario.IdPropietario = Editoriales.Propietario WHERE (((Editoriales.Nombre)='" & rs!Nombre & "'))"
ObjItem.SubItems(4) = rs2!Nombre & ""
ObjItem.SubItems(5) = rs!País & ""
ObjItem.SubItems(6) = rs!Contacto & ""
ObjItem.SubItems(7) = rs!FechaEnv & ""
ObjItem.SubItems(8) = rs!FechaReb & ""
ObjItem.SubItems(9) = rs!FechaCon & ""
ObjItem.SubItems(10) = rs!FechaCa & ""
ObjItem.SubItems(11) = rs!anticipo & ""
ObjItem.SubItems(12) = rs!Observaciones & ""
rs.MoveNext
Wend
rs.Close

En la línea donde hago rs2!Nombre me da error siempre diciendo:
"La operación no está permitida si el objeto está abierto"

El rs primero si que la hago la connexion i funciona per no se hacer la segunda conexion (con rs2) mientras la otra está abierta y si cierro la conexíon rs, no me carga todo lo que quiero.

Espero haberme explicado bien ya que es bastante complejo, creo.

Muchas gracias por adelantado.

[Kruzado]

tu mismo te das la respuesta... relacionala....

[shashas]

No puedo la BBDD no es mía, no la puedo tocar de tal i cómo está.

[lokoman]

Debes hacerlo así para la segunda conexión:

Código vb:

'...
'...
   ObjItem.SubItems(3) = rs!País & ""
 
   IF RS2.STATE=1 THEN RS2.CLOSE
 
   rs2.Source = "SELECT Propietario.Nombre FROM Propietario INNER JOIN Editoriales ON Propietario.IdPropietario = Editoriales.Propietario WHERE (((Editoriales.Nombre)='" & rs!Nombre & "'))"
 
   RS2.OPEN, CONEXION, adOpenDynamic , adLockOptimistic
   IF RS2.EOF=FALSE THEN
'...CODIGO
'...CODIGO
   END IF
 
   ObjItem.SubItems(4) = rs2!Nombre & ""
   ObjItem.SubItems(5) = rs!País & ""
'...
'...
 

[shashas]

En CONNEXION QUE PONGO? Ya tengo una conexión abierta y es por dónde me falla siempre por que me dice que la tengo abierta.


Gracias por tu respuesta

[lokoman]

En tu CODE hay una llamada a una sub CONNECTAR, que es donde (se supone) se establece la conexion a la base de datos. El nombre de la variable que usas para esa conexion es la que debes de poner.

Lo que te falla es el RECORDSET, no es la CONEXION de la BASE DE DATOS. Me explico:
Tienes un bloque WHILE NOT RS.EOF, tu estableces la conexion a la base ANTES del bloque, o sea, solo una vez.

Dentro del WHILE llamas VARIAS veces al MISMO RECORDSET (rs2), por lo que antes de abrirlo debes preguntar si ya está abierto, para entonces cerrarlo, ese es el CODE " IF RS2.STATE=1 THEN RS2.CLOSE "

Asi no te puede dar problemas, verifica y nos cuentas!