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

Vaciar bases de datosgráfica de visualizaciones


Clipper/FiveWin

estrellaestrellaestrellaestrellaestrella(1)
Publicado el 17 de Mayo del 2002 por Veronica Ornelas
11.174 visualizaciones desde el 17 de Mayo del 2002. Una media de 21 por semana
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.175 visualizaciones desde el 17 de Mayo del 2002. Una media de 21 por semana
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)

Luis
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

http://lwp-l.com/s197