SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: esmeralda_ en Miércoles 12 de Enero de 2005, 17:00

Título: Problemas Con Acces Y Empaquetado
Publicado por: esmeralda_ en Miércoles 12 de Enero de 2005, 17:00
Holas,

Antes que nada mil gracias por la orientación que me puedan dar respecto a este asunto...

Empaqueté la aplicación con Inno Setup. Al instalar y ejecutar la aplicación en la máquina donde se desarrolló no hay ningún problema. La aplicación durante la ejecución va grabando varios datos a la base para luego generar unos reportes en Crystal...

El problema es que cuando se instala en otra máquina a pesar que es con el mismo sistema operativo, WIN98SE, no muestra ningún error y da la impresión que se estuvieran guardando los datos a la base normalmente pero cuando luego se revisa el contenido de la base no hay nada registrado.

Para abrir la base utilizo esta instrucción:

Private Sub MDIForm_Load()
    On Error Resume Next
    ' Establece el directorio de trabajo al directorio que contiene la aplicación.
    ChDir App.Path
    'Crear y abrir Database
    Set datos = DBEngine.Workspaces(0).OpenDatabase("armon20.mdb")
End Sub

Para grabar  los datos:

If grabar_datos = True Then
            Set RECORD1 = datos.OpenRecordset("FASE_R_TENSION", dbOpenTable, dbForwardOnly)
            RECORD1.AddNew
            RECORD1!FECHA = Date
            RECORD1!HORA = Time
            RECORD1!Vrms = x_rms
            RECORD1!THDv = thd
            RECORD1.Update 'Actualizar el contenido
            RECORD1.Bookmark = RECORD1.LastModified        
End If


Saludos,
Título: Re: Problemas Con Acces Y Empaquetado
Publicado por: Brroz en Jueves 13 de Enero de 2005, 09:28
Hola Esmeralda_

Puedes hacer una prueba eliminando el 'On Error Resume Next' o utilizando algún control de errores (mucho mejor). Puede ocurrir que se produzca un casque y no te enteres de que pasa por el On error resume next.

Chao.