Fox 2.6 ahora base de datos

Muchas Gracias por contestar!.. Te comento ya tengo el programa funcionando... Lo que ahora no se como hacer es una base de datos o tablas no se como hacerla para este mismo programa... Si puedes ayudar te lo voy agradecer... Siempre usando el FoxPro 2.6...
Te paso el programa lo que falta ahora es hacer la base de datos...
clear
store space (20) to ape, nom
store 0 to nda, tot, cur, fem, masc, pri, seg, ter, oct, nov, ning
store space (2) to sexo
clear
@1,2 say "ingrese Numero de Alumno" get nda
read
clear
do while nda <> 0
@2,2 say "Apellido" get ape
@3,2 say "Nombre" get nom
@4,2 say "Sexo" get sexo
@5,2 say "Curso" get cur
read
do case
case cur=1
                pri= pri + 1
case cur= 2
                seg= seg + 1
case cur= 3
                ter = ter + 1
case cur= 8
                oct = oct + 1
case cur= 9
                nov = nov + 1
otherwise
                ning = ning + 1
endcase
if sexo = "f"
                fem = fem + 1
else
                masc = masc + 1
endif
clear
store space (20) to ape, nom
store space (3) to sexo
@1,2 say "ingrese numero de Alumno" get nda
read
enddo
tot=oct+nov+pri+seg+ter+ning
clear
@3,2 say "Alumnas femeninas"
@3,20 say fem
@4,2 say "Alumnos masculinos"
@4,20 say masc
@5,2 say "total de Alumnos"
@5,20 say tot
@6,2 say "Octavo Año"
@6,20  say oct
@7,2 say "Noveno Año"
@7,20 say nov
@8,2 say "Primer Año"
@8,20 say pri
@9,2 say "Segundo Año"
@9,20 say seg
@10,2 say "Tercer Año"
@10,20 say ter
@11,2 say "Otros"
@11,20 say ning
wait wind
clear

4 respuestas

Respuesta
1
Acá le agregué una tabla y se graban los alumnos que se van cargando.
Clear
Close all
IF !FILE("ALUMNOS.DBF")
CREATE TABLE ALUMNOS (CÓDIGO N(5), APELLIDO C(20), NOMBRE C(20), SEXO C(2), CURSO N(2))
Endif
Close all
Use alumnos
Store space (20) to ape, nom
Store 0 to nda, tot, cur, fem, masc, pri, seg, ter, oct, nov, ning
store space (2) to sexo
clear
@1,2 say "ingrese Numero de Alumno" get nda
read
clear
do while nda <> 0
@2,2 say "Apellido" get ape
@3,2 say "Nombre" get nom
@4,2 say "Sexo" get sexo
@5,2 say "Curso" get cur
read
do case
case cur=1
                 pri= pri + 1
  case cur= 2
                 seg= seg + 1
  case cur= 3
                 ter = ter + 1
  case cur= 8
                 oct = oct + 1
  case cur= 9
                 nov = nov + 1
  otherwise
                 ning = ning + 1
 endcase
 if sexo = "f"
                 fem = fem + 1
 else
                 masc = masc + 1
 endif
 append blank
 REPLACE codigo WITH nda
 REPLACE apellido WITH ape
 REPLACE nombre WITH nom
 REPLACE curso WITH cur
 clear
 store space (20) to ape, nom
 store space (3) to sexo
 @1,2 say "ingrese numero de Alumno" get nda
 read
enddo
tot=oct+nov+pri+seg+ter+ning
clear
@3,2 say "Alumnas femeninas"
@3,20 say fem
@4,2 say "Alumnos masculinos"
@4,20 say masc
@5,2 say "total de Alumnos"
@5,20 say tot
@6,2 say "Octavo Año"
@6,20  say oct
@7,2 say "Noveno Año"
@7,20 say nov
@8,2 say "Primer Año"
@8,20 say pri
@9,2 say "Segundo Año"
@9,20 say seg
@10,2 say "Tercer Año"
@10,20 say ter
@11,2 say "Otros"
@11,20 say ning
Wait wind
Sele alumnos
Brow
Close all
Clear
Apenas concluyas si podes califícame!
Salu2 y exitos!
Respuesta
1
Lo que podes hacer es crear la tabla desde la ventana comandos con el editor de estructuras:
CREATE <nombredetabla>
Y esto te abre un editor, donde tenés que definir los campos (nombre, tipo, tamaño, etc.)
Si lo que querés hacer es crear la tabla directamente por código, lo podes hacer así:
CREATE TABLA <nombredetabla> (<nombredecampo1> <tipo> <tamaño>, [<nombredecampo2> <tipo> <tamaño>,] )
Donde
<nombredecampo> es una cadena con el nombre del campo (máximo 10 caracteres)
<tipo> es un caracter para el tipo de campo (C - character, N - numeric, M - memo, D - date, L - logical)
<tamaño> es el tamaño del campo. Si es numérico y necesitás decimales se indica ee,dd.
Cualquier cosa si necesitás la ayuda de FoxPro 2.6, pásame una cuenta de correo y te la mando.
Respuesta
1
En tu ejemplo lo único que hace es introducir valores y los va acumululando en otras y luego muestra cuantos alumnos hay en cada curso nada que ver con tablas
Create table para crear las tablas
Respuesta
-1
¿Pero mi amigo ya el crear la base de datos depende de tu criterio y del programa que tengas o lo que no sabes es el comando para crear una tabla?

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas