Título: ¿Como Desproteger tablas DBF? Publicado por: Lainuxxx en 3 Mayo 2008, 16:04 pm 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 |