SoloCodigo

Revisa mi mensaje en esta discusión del foro

http://foros.solocodigo.com/index.php?show...t=0&#entry37880

 

Te elaboré un pequeño programa con la rutina que uso para calcular la edad exacta en años meses y días.

 

Bueno, es lo que al parecer Kev desea cuando dice:

primero vacio todas las tablas de la BD

Uso el método de eliminar la base de datos, y crearla de nuevo, le añado los datos y envío a hacer un reporte. Claro esto solo en los casos en que según yo, no es posible hacerlo de otra manera.

 

Otra manera sería, crear una base de datos nueva (con código vb), eliminando la anterior, cada vez que necesites.
O tener una base de datos vacía de respaldo. Eliminas la que tiene datos, y efectúas una copia de la base datos vacía, cambiándole el nombre que necesitas.
 

A mi también me pasó lo mismo:

'despues de un tiempo te desactiva las referencias y no puedes modificarlas'

Pero lo pude arreglar usando el programa de Regmon.exe y modificando el registro, ya que el problema es el permiso para modificar una clave en TypeLib de HKEY_CLASSES_ROOT

 

En VB si es posible usar <>= en fechas, ya que las fechas se manejan en forma interna en VB  como datos numéricos, para algunas operaciones.

 

Aclarando: Para usar Like en consultas de DAO se usa el asterisco * y para ADO se usa el signo de porciento %
 

Número o cadena de texto

Al hacer una consulta en SQL tienes que verificar si es texto o números lo que deseas.
Si el campo a buscar es texto "IDPRODUCION:TEXTO" la consulta debe escribirse entre comillas simples. Como lo tienes...  ='" & Was &  "'"

Pero si el campo es numérico "IDPRODUCCION:NUMERO" entonces debes introducir la consulta sin las comillas.
Dim lngWas as long
lngWas = InputBox("Por Favor Teclee El Folio a Buscar", "BUSCAR FOLIO")
If lngWas = 0 Then
   Exit Sub
Else
   Bus2 = "select * from TRABAJO where IDPRODUCCION = " & lngWas

Antes de construir una base de datos debes de definir si el campo que deseas es de texto o numérico. También toma en cuenta que en un campo de texto puedes guardar números como si fueran texto y si lo deseas puedes después convertirlos en números.
Siempre define que tipo de variable vas a usar ya que es más fácil que se presenten errores de tipo cuando no se definen, por ejemplo:
En lugar de:
Dim Was
Cuando es texto usa mejor:
Dim strWas as string
Cuando es número y no lleva decimales:
Dim lngWas as long

 

Agrega el siguiente componente que viene en el Service Pack del VB6
Microsoft Windows Common Controls 6.0(SP6)

Coloca en un Form el control StatusBar, en su propiedad Style cambia a sbrSimple
después para colocar el texto que deseas coloca código como sigue:
StatusBar.SimpleText = Now

 

Tengo un código para obtener y cambiar la resolución de la pantalla.
Obtuve el código fuente de la web, solo agregue la rutina, con manejo de errores, para el cambio de resolución. Tengo un programa en el que necesito una resolución mínima de 800x600 en este enlace lo pueden revisar http://consultapractica.aztecaonline.net/index.html y que es para manejo de consultorio médico.
En el código que les adjunto aumenté la resolución mínima a 1024x768. Si desean probar como funciona, cambien manualmente en propiedades de pantalla de Windows, a una resolución de pantalla de 800x600 y después corran el ejecutable adjunto.
También se podría extraer la resolución máxima de pantalla, pero hay que implementar más código.

---------------------
"Corrector Ortográfico de Notas", freeware, utilidad para programadores.
Programado en VB6, con diccionario propio.

http://consultapractica.aztecaonline.net/index2.html

"Database"

Dim base As Database
Dim ruta As String


Espero te sirva lo anterior, no muestras el resto del código. Normalmente inicializo los Data Controls en Form_Load

Para ejecutar una aplicación antes del setup.exe tendrías que instruir al usuario para que ejecute tu aplicación antes, pero si está elaborada en vb y el usuario no tiene el runtime de vb, no te servirá.

Una opción que puedes usar, que es la de modificar el proyecto Setup1.vbp
que se encuentra en:
C:\Archivos de programa\Microsoft Visual Studio\VB98\Wizards\PDWizard\Setup1
Puedes agregar código en Form_load de Setup1.frm
El Setup1.exe se encuentra en setup.lst