Retroceder   Foros del Web > Temas generales de computación > Programación > Visual Basic

Respuesta
 
Herramientas Desplegado
Antiguo 12-feb-2008, 04:21   #1 (permalink)
juanfosaiz ha deshabilitado el karma
 
Fecha de Ingreso: marzo-2005
Mensajes: 91
Me falla el OpenRecordset

Hola de nuevo y gracias de antemano por la posible ayuda.

Tengo una compilación que me falla cuando llego a la instrucción "OpenRecordset". Tengo la referencia de "Microsoft DAO 3.51 Objet Library" activa, y he mirado en el MSDN, pero me lía y no me da una solución al error de compilación "No se encontró el método o el miembro de datos" (me dice lo que és, pero no me dice que hacer para que no vuelva a salir), quedándose en negrita la palabra "OpenRecordset".

Supongo que me falta referenciar algo más, pero por más que pruebo, no doy con la solución. Por si sirve de algo, mi versión del Office es la 11 (2003), que és desde donde creo las Bases de datos.

Con lo que sea, gracias de nuevo y un saludo.
juanfosaiz está desconectado   Responder Citando
Antiguo 13-feb-2008, 02:12   #2 (permalink)
juanfosaiz ha deshabilitado el karma
 
Fecha de Ingreso: marzo-2005
Mensajes: 91
Re: Me falla el OpenRecordset

Como dato de ayuda, así es como declaro las variables de BBDDs y de Recordset:


Estas son las BBDDs:
Global BD_SOLDADORES As Database
Global BD_INSPECTORES As Database
Global BD_EMPRESAS As Database
Global BD_SUSPENSOS As Database
Global BD_OPERADORES As Database

Y los Recordsets:
Set BD_SOLDADORES = OpenDatabase(DirectorioDat & "SOLDADORES.MDB")
Set BD_INSPECTORES = OpenDatabase(DirectorioDat & "INSPECTORES.MDB")
Set BD_EMPRESAS = OpenDatabase("C:\Bases de datos CAFSOL\EMPRESAS.MDB")
Set BD_SUSPENSOS = OpenDatabase("C:\Bases de datos CAFSOL\SUSPENSOS-1418\SUSPENSOS.MDB")
Set BD_OPERADORES = OpenDatabase("C:\Bases de datos CAFSOL\SUSPENSOS-1418\OPERADORES.MDB")


dándome el error en la línea que dice:

"Set Rec_Certificado = BD_SOLDADORES.OpenRecordset(InstSQL, dbOpenDynaset)"

, donde "InstSQL" es la instrucción SQL empleada.

Por más que intento ver qué me falta referenciar (por que creo que es eso) para que me reconozca la susodicha línea con el "OpenRecordset", no doy con la solución, y estoy algo perdido, la verdad.
juanfosaiz está desconectado   Responder Citando
Antiguo 13-feb-2008, 07:44   #3 (permalink)
juanfosaiz ha deshabilitado el karma
 
Fecha de Ingreso: marzo-2005
Mensajes: 91
Re: Me falla el OpenRecordset

Perdón, me confundí al meter las declaraciones de los Recordsets. Aquí va el Recordset por el cual me da el fallo:

Dim Rec_Certificado As Recordset

Por favor cualquier ayuda será de agradecer.
juanfosaiz está desconectado   Responder Citando
Antiguo 13-feb-2008, 15:14   #4 (permalink)
mamogo ha deshabilitado el karma
 
Fecha de Ingreso: febrero-2008
Mensajes: 70
Re: Me falla el OpenRecordset

Hola Que Tal,
Yo Siempre He Tenido Ese Problema Cuando Actualizaba Access
Me Descargue Ado 3.6 Objet Library Y Sp6 De Vb6.0
Solo Asi Pude Consiguir Que Todo Funcione. Ya Que Vb6 Va Bien Con Access-97

Espero Que Te Ayude
Saludos
mamogo está desconectado   Responder Citando
Antiguo 15-feb-2008, 05:59   #5 (permalink)
juanfosaiz ha deshabilitado el karma
 
Fecha de Ingreso: marzo-2005
Mensajes: 91
Re: Me falla el OpenRecordset

Muchas gracias mamogo, me solucionaste el problemón.

No estoy muy puesto en VB, aunque me bajé de todo desde microsoft, pero me faltaba esto último.

De nuevo muchas gracias y un saludo.
juanfosaiz está desconectado   Responder Citando
Respuesta

No hay votos aún.


Herramientas
Desplegado

Normas de Publicación
No puedes crear nuevos temas
No puedes responder temas
No puedes subir archivos adjuntos
No puedes editar tus mensajes

BB code is Activado
Caritas están Activado
[IMG] está Activado
Código HTML está Desactivado


La Zona horaria es GMT -6. Ahora son las 13:58.


Message Board Statistics

LinkBacks Enabled by vBSEO 3.1.0

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93