SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado 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,
-
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.