Como proteger la base de dato en foxpro
Hola amigo como estas espero que bien amigo te quería preguntar como puedo proteger la base de datos en foxpro OSEA que no me editen las tablas y que no me copien los datos de la tablas. Me gustaría saber si hay alguna forma de proteger la base de datos.
gracias de antemano agradezco mucho tu ayuda
1 Respuesta
Respuesta de Erick Soriano
1
Yo ocupo este programa, espero te sirva.
handle = FOPEN("MITABLA.DBF",2) && abre en modo
lectura escritura
primerbyte = FREAD(handle,1) && lee el 1er byte
Do case
Case primerbyte = CHR(255) && si protegido
escrib = chr(3) && desprotege
Case primerbyte = CHR(3) && si desprotegido
escrib = chr(255) && protege
Endcase
=FSEEK(handle,0,0)
=FWRITE(handle,escrib,1)
=FCLOSE(handle)
Return .t.
Favor punteame y finaliza la pregunta si te ha servido mi ayuda.
