FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Detectar que falta archivo DBT o FPT ?
Posts: 94
Joined: Thu May 11, 2006 10:00 PM
Detectar que falta archivo DBT o FPT ?
Posted: Fri Oct 17, 2008 08:06 PM

Estimados Amigos del Foro, quisiera saber como hacer para cuando estoy en proceso de apertura de una DBF detectar que la misma contiene campos memos, de tal manera de que si falta el archivo DBT o FPT no salga del sistema

Codigo que uso:

USE TABLA NEW SHARED
IF NETERROR()
MSGINFO("EN USO POR OTRO") // DETECTAR AQUI QUE EL ERROR DEVUELTO ES PORQUE FALTA EL ARCHIVO DBT O FPT ASOCIADO
ENDIF

Gracias de Atemano..
Saludos,
GUSTAVO PREDIGER

GUSTAVO PREDIGER
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM
Detectar que falta archivo DBT o FPT ?
Posted: Fri Oct 17, 2008 08:50 PM

LOCAL oErr

TRY
USE TABLA NEW SHARED

CATCH oErr
/aca dar tratamiento al error/
?oErr:description, oErr:error

END

salu2
carlos vargas

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
Posts: 94
Joined: Thu May 11, 2006 10:00 PM
Detectar que falta archivo DBT o FPT ?
Posted: Fri Oct 17, 2008 10:05 PM

Estimado Carlos,
MUCHAS GRACIAS ASI LO HARE. :D

GUSTAVO PREDIGER
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Detectar que falta archivo DBT o FPT ?
Posted: Sat Oct 18, 2008 03:42 AM

Tengo esta rutinita,
FUNCTION verifica() // VERIFICA SI EXISTE ALGUN TIPO DE ARCHIVO

IF !FILE(".CDX") // cambiar aca por cual quier extension...("*.DBT"), etc
.
.
.
.
.

RETURN NIL // VERIFICA SI EXISTE ALGUN TIPO DE ARCHIVO

Dios no está muerto...



Gracias a mi Dios ante todo!

Continue the discussion