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