Código de Clipper/FiveWin - Vaciar bases de datos

sin imagen de perfil

Vaciar bases de datosgráfica de visualizaciones


Clipper/FiveWin

estrellaestrellaestrellaestrellaestrella(1)
Publicado el 17 de Mayo del 2002 por Veronica Ornelas
11.886 visualizaciones desde el 17 de Mayo del 2002
Código que realiza una copia de una tabla DBF y posteriormente elimina todos los registros de la misma

Versión 1
estrellaestrellaestrellaestrellaestrella(1)

Publicado el 17 de Mayo del 2002gráfica de visualizaciones de la versión: Versión 1
11.887 visualizaciones desde el 17 de Mayo del 2002
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
//
//  Programa que vacia todos los registros de una base de datos.
//  Use ZAPPING.EXE con cuidado, se perderan todos los registros
//  de la base de datos que decida vaciar. Zapping hace un respaldo de la
//  base de datos antes de vaciarla, el respaldo lleva el nombre de BACKUP.DBF     
//  si hay una base de datos con ese nombre, Zapping la sobreescribe sin
//  avisar
//  CA Clipper Version = 5.2
//
//  Compile con: clipper zapping.prg /m/n
//  Enlace con: rtlink file zapping
//  Ejecucion: zapping <fichero> (no debe teclear la extencion, pues
//                                    Zapping asume que es .DBF)
 
// Escrito por Veronica Ornelas  - Mexico -  byone@e-garfield.com
// Si decide usar el programa, los resultados obtenidos son de su
// responsabilidad
 
FUNCTION zapping(cDataBaseFile)
  IF EMPTY(cDataBaseFile)
     ? "Uso: ZAPPING <ficheroBD>"
     ?
     ? "Donde <ficheroBD> es un fichero *.DBF estandar"
     ?
     RETURN
  END IF
  IF "." $ cDataBaseFile .OR. "*" $ cDataBaseFile .OR. "?" $ cDataBaseFile
     ? "Nombre de archivo no debe incluir extencion o comodines del DOS (?,*)"
     ?
     RETURN
  END IF
  IF FILE(cDataBaseFile + ".dbf")
     USE &cDataBaseFile
     cBackUp = FIELDNAME(1)
     GO TOP
     SORT ON cBackUp TO backup
     nRegLost = LASTREC()
     ZAP
     ? UPPER(cDataBaseFile) + ".DBF vaciada. (Perdio " + ALLTRIM(STR(nRegLost)) +;
            " registros)."
     ?
  ELSE
     ? UPPER(cDataBaseFile) + ".DBF no esta en directorio actual"
     ?
     RETURN
  END IF
RETURN



Comentarios sobre la versión: Versión 1 (1)

21 de Agosto del 2002
estrellaestrellaestrellaestrellaestrella
No me parece muy interesante su programita chichierito es muy simple.
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s197