¿Como Desproteger tablas DBF?

Iniciado por Lainuxxx, 3 Mayo 2008, 16:04 PM

0 Miembros y 1 Visitante están viendo este tema.

Lainuxxx

Saludos tengo la siguiente situacion con un sistema basado en Cliper del cual me sirve la informacion que poseen sus base .dbf para importarlo a mis tablas de access en mi sistema de vb, el problema es que las base o tablas dbf se encuentran  bloquedas e inaccesibles , encontre un codigo para visual Fox  que realiza esto pero con esto tendria que compilar la aplicacion en fox y utilizaria  uun exe externo y desearia saber si desde el Visual Basic se pudiera hacer lo mismo para desbloquear una tabla ?

Si alguien sabe como hacerlo o me de pistas de que funcion debo buscar pues no he tenido suerte en mi busqueda se lo agradeceria mucho.


AQUI LA FUNCION EN FOX : ¿EXISTE UN EQUIVALENTE EN VISUAL?


**Cambia el primer byte de una tabla de datos DBF sirve para protejer los datos de dicha tabla.
*Aqui va la funcion:
*Nota: param.dbf es mi tabla que yo he protegido.
*
Function Protec
&&******************************************
  handle = FOPEN("PARAM.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. 





MUCHAS GRACIAS de antemano.

Saludos
Latinchat, Messenger, IRC Visita: http://www.lainuxxx.tk o http://www.lainuxxx.cjb.net