elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  ¿Como Desproteger tablas DBF?
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: ¿Como Desproteger tablas DBF?  (Leído 5,448 veces)
Lainuxxx

Desconectado Desconectado

Mensajes: 226


I lov3 you M...


Ver Perfil
¿Como Desproteger tablas DBF?
« 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


En línea

Latinchat, Messenger, IRC Visita: http://www.lainuxxx.tk o http://www.lainuxxx.cjb.net
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines