Necesito Ayuda : Unhandled exception in xxxx.exe (DAO360.dll): 0x0000005:Access Violation

N?or
07 de Enero del 2005
Hola compañeros de Foros

tengo un pequeño problema con una consulta en Visual Basic, en modo interpretado funciona a la perfección al correr el ejecutable da el siguiente error:
---------------------------------------------------------------------------La instrucción en 0x1b756a06 hace referencia a la memoria en 0x00407c6c la memoria no se puede "written"
---------------------------------------------------------------------------
al darle cancelar para depurar muestra este otro error
---------------------------------------------------------------------------Unhandled exception in xxx.exe (DAO360.DLL): 0x0000005: Access Violation
---------------------------------------------------------------------------
al darle aceptar muestra lo siguiente
---> 1E756A06 mov word ptr [eax+ecx*2],0
en la Referencia de Visual tengo incluido Microsoft DAO 3.6 Object Library

he realizado las siguientes tareas tratando de corregir este error
1.- Actualizar Microsoft jet 4.0
2.- Actualizar Microsoft data Acces Components
3.- Eliminar la DAO360.Dll y volver a cargarla en la carpeta compartida de microsoft DAO
4.- registrar con RegSvr32 la DLL (DAO360.dll)

¡¡¡ Aucilio, no se que hacer!!! e lanzado más flejas que Robin Hood, Guillermo tell y el indio Toro

el fragmento de codigo de programa que presenta problema es el siguiente:

Dim campo, StrNombreDB, StrNombreRec As String 'al abrir la forma carga en el Browser las solicitudes

StrNombreRec = "Proy_Abiertos"
StrNombreDB = App.path & "Solicitudes.mdb"

Set wks = CreateWorkspace("", "admin", "", dbUseJet)
Set bd = DBEngine.OpenDatabase(StrNombreDB)
Set rec = bd.OpenRecordset("Select [N°- Solic],[Nombre del Requerimiento] from " & StrNombreRec, dbOpenSnapshot)

CmbPeticion.Clear

While Not rec.EOF

campo = rec.Fields("[N°- Solic]")
campo = campo & " | "
campo = campo & rec.Fields("[Nombre del Requerimiento]")
CmbPeticion.AddItem campo
rec.MoveNext

Wend
rec.Close

Gracias a cualquier alma piadosa que pueda ayudarme

kipied
07 de Enero del 2005
Has probado??:

dim DB as DAO.Database
Dim Rec as Dao.Recordset

y luego de definir el nombre de la tabla y de la DB:

SET DB=Opendatabase(strNombreDB)
set Rec=db.openrecordset(sttrNombreRec)
... etc

Así abro yo las tablas generalmente.
Chao

N?or
07 de Enero del 2005
Gracias kiplied10

No me funciono yo tenia las sentencias

dim DB as Database
Dim Rec as Recordset

le antepuse al database y recordset la palabra dao. y da el mismo error debe ser otra cosa, no se si una libreria corupta, realmente no se

gracias de todas maneras