No coinciden los tipos

[ruudy]

Ando liado con el proyecto de fin de modulo y he llegado a un punto que no entiendo porque me da el error:

Dim dni
Dim opcion
Dim texto As String
Dim texto2 As String
Dim db As Database
Dim resultado
Dim resultado2
Set db = CurrentDb()

dni = dni_persona.Value
opcion = id_vivienda.Value

texto = "select count(pv.dni_persona) from personas_vivienda pv where pv.id_vivienda = " & opcion & ";"
Set resultado = CurrentDb.OpenRecordset(texto, dbOpenDynaset)

texto2 = "select v.num_personas_vivienda from viviendas v where v.id_vivienda = " & opcion & ";"
Set resultado2 = CurrentDb.OpenRecordset(texto2, dbOpenDynaset)

If resultado = resultado2 Then


He probado especificando:

Dim resultado as integer
Dim resultado2 as integer

Pero nada...
¿Podeis ayudarme por favor? Yo soy mas de C y en VB ando justito ^^ y si es rapido mejor que se me agota el tiempo para terminarlo.

Muchas gracias

PD: El error lo marca en la condicion del if

[culd]

Iniciado por ruudy

¿Podeis ayudarme por favor? Yo soy mas de C y en VB ando justito ^^ y si es rapido mejor que se me agota el tiempo para terminarlo.

Muchas gracias

PD: El error lo marca en la condicion del if

No digas huevadas... El que sabe programar no le interesa el lenguaje, si lo podes hacer esto en C tambien tendrias que poderlo en VB...


Lo que estas haciendo es comparar 2 recorset, que es un error GRAVISIMO... Lo que tenes que comparar son valores de los recorset...

Es decir carga tu consulta y luego guarda aparte el valor a comparar, y ahi recien compara.

Me parece que te falta echarle un vistazo enorme a conexiones, recorset, sql

[pkj]

No entiendo de bases de datos ni sé que tipo de dato pueden representar resultado y resultado2, pero imagino que lo que esperas recibir es un solo valor y que ese valor es un número, de modo que quizá si declaras las variables como Integer y despues haces las llamadas asi:

Set resultado = CInt(CurrentDb.OpenRecordset(texto, dbOpenDynaset))
y
Set resultado2 = CInt(CurrentDb.OpenRecordset(texto2, dbOpenDynaset))

tal vez al compararlos no te dé error, aunque en ese caso, cuando hiciste la prueba declarando las variables como Integer creo que debería haberte generado el error en una de esas líneas donde asignas el valor a las variables en lugar de en la linea del If que comentas.

En fin, solo intento echar una mano.

Suerte.

[ruudy]

Iniciado por culd

No digas huevadas... El que sabe programar no le interesa el lenguaje, si lo podes hacer esto en C tambien tendrias que poderlo en VB...


Lo que estas haciendo es comparar 2 recorset, que es un error GRAVISIMO... Lo que tenes que comparar son valores de los recorset...

Es decir carga tu consulta y luego guarda aparte el valor a comparar, y ahi recien compara.

Me parece que te falta echarle un vistazo enorme a conexiones, recorset, sql

Podrias ponerme un ejemplo de como seria por favor?

EDIT: Soluccionado

select count(pv.dni_persona) as num1
select v.num_personas_vivienda as num2

If resultado!num1 = resultado2!num2 Then

Asi se solucciona, muchas gracias, me encendisteis la bombilla jeje.

Sasludos.

[culd]

Iniciado por ruudy

Podrias ponerme un ejemplo de como seria por favor?

Esto es VB 6.0 no?

Busca el objeto "CurrentDB" quiero verlo como es, que esta utilizando

Generalmente se usa ADO, o DAO para el acceso a datos mediante ODBC