PROBLEMA EN CONSULTA VB6.0 CONTRA BBDD ACCESS 2003

Perdonar pero no entiendo
yo tengo por un lado un recordset llamado rscategoriaspadre, en el
cual gestiona la tabla CATEGORIAS_PADRE con un campo CATEGORIAS_PADRE
con todas las categorías dadas de alta. Entonces quiero hacer una
SELECT para saber si la introducida en el campo de texto
txtcategoriapadre existe o no, entonces hago la orden SET y luego con
recordcount busco si existe (1) o no (0)



dim rscategoriapadre as recordset
Set rsCategoriaPadre = db.OpenRecordset("Select * from
CATEGORIAS_PADRE where CATEGORIA_PADRE=" & Trim(txtCategoriaPadre))
if rscategoriaspadre.recordcount=0 then

El error que da es en la línea del set rs... y dice
error "13" de que no coinciden los tipos

¡Importante!: Colabora con el grupo. Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias
Hola!

modifica la declaración así

dim rscategoriapadre as DAO.recordset
dim db as DAO.database

eso debería resolver el problema.

Saludos a todos
Emilio [MS-MVP Access 2006/11]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

"Ironpony" escribió en el mensaje
news:
Perdonar pero no entiendo
yo tengo por un lado un recordset llamado rscategoriaspadre, en el
cual gestiona la tabla CATEGORIAS_PADRE con un campo CATEGORIAS_PADRE
con todas las categorías dadas de alta. Entonces quiero hacer una
SELECT para saber si la introducida en el campo de texto
txtcategoriapadre existe o no, entonces hago la orden SET y luego con
recordcount busco si existe (1) o no (0)



dim rscategoriapadre as recordset
Set rsCategoriaPadre = db.OpenRecordset("Select * from
CATEGORIAS_PADRE where CATEGORIA_PADRE=" & Trim(txtCategoriaPadre))
if rscategoriaspadre.recordcount=0 then

On 2 feb, 08:29, "Emilio" wrote:

Importante!: Colabora con el grupo. Contesta a este mensaje
y dinos si te sirvi o no la respuesta dada. Muchas gracias
Hola!

modifica la declaraci n as

dim rscategoriapadre as DAO.recordset
dim db as DAO.database

eso deber a resolver el problema.

Saludos a todos
Emilio [MS-MVP Access 2006/11]
miliuco56 ALGARROBA hotmail.comhttp://www.mvp-access.com/forohttp://www.mvp-access.es/emilio

"Ironpony" escribi en el mensajenews:
Perdonar pero no entiendo
yo tengo por un lado un recordset llamado rscategoriaspadre, en el
cual gestiona la tabla CATEGORIAS_PADRE con un campo CATEGORIAS_PADRE
con todas las categor as dadas de alta. Entonces quiero hacer una
SELECT para saber si la introducida en el campo de texto
txtcategoriapadre existe o no, entonces hago la orden SET y luego con
recordcount busco si existe (1) o no (0)

dim rscategoriapadre as recordset
Set rsCategoriaPadre = db.OpenRecordset("Select * from
CATEGORIAS_PADRE where CATEGORIA_PADRE=" & Trim(txtCategoriaPadre))
if rscategoriaspadre.recordcount=0 then

Muchas gracias, ya me funciona con el tema de los bookmarks, gracias a
todos los componentes de la lista
Haciendo el dim rscategoriapadre as DAO.recordset me funciona
perfectamente
¡¡¡ muchas gracias a todos !!!

:-))

Saludos a todos
Emilio [MS-MVP Access 2006/11]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

"Ironpony" escribió en el mensaje
news:
On 2 feb, 08:29, "Emilio" wrote:

Importante!: Colabora con el grupo. Contesta a este mensaje
y dinos si te sirvi o no la respuesta dada. Muchas gracias
Hola!

modifica la declaraci n as

dim rscategoriapadre as DAO.recordset
dim db as DAO.database

eso deber a resolver el problema.

Saludos a todos
Emilio [MS-MVP Access 2006/11]
miliuco56 ALGARROBA
hotmail.comhttp://www.mvp-access.com/forohttp://www.mvp-access.es/emilio

"Ironpony" escribi en el
mensajenews:
Perdonar pero no entiendo
yo tengo por un lado un recordset llamado rscategoriaspadre, en el
cual gestiona la tabla CATEGORIAS_PADRE con un campo CATEGORIAS_PADRE
con todas las categor as dadas de alta. Entonces quiero hacer una
SELECT para saber si la introducida en el campo de texto
txtcategoriapadre existe o no, entonces hago la orden SET y luego con
recordcount busco si existe (1) o no (0)

dim rscategoriapadre as recordset
Set rsCategoriaPadre = db.OpenRecordset("Select * from
CATEGORIAS_PADRE where CATEGORIA_PADRE=" & Trim(txtCategoriaPadre))
if rscategoriaspadre.recordcount=0 then

Muchas gracias, ya me funciona con el tema de los bookmarks, gracias a
todos los componentes de la lista
Haciendo el dim rscategoriapadre as DAO.recordset me funciona
perfectamente
¡¡¡ muchas gracias a todos !!!