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

sin imagen de perfil

Vaciar bases de datosgráfica de visualizaciones


Clipper/FiveWin

Publicado el 17 de Mayo del 2002 por Veronica Ornelas (3 códigos)
11.999 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
12.000 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...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s197