Necesito Ayuda : Unhandled exception in xxxx.exe (DAO360.dll): 0x0000005:Access Violation
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
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
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
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
