Existe la funcion FILE() en RDDADS ?

[RSalazarU]

Hola amigos del foro:

Alguien sabe si ADS proporciona una función parecida a FILE(), para verificar la existencia de una tabla que esta definida en el diccionario?

Puede suceder que se elimine una tabla físicamente, sin modificar el diccionario y al intentar abrirla se produce un error.

Puedo usar la función File(), pero si la verificación la hace el Servidor ADS seria mejor.

De antemano, gracias por la ayuda.

Atentamente,

Rolando.

Saludos desde Cochabamba, Bolivia.

[carlos vargas]

ceo que los tiros iran por obtener una lista de las tablas contenidas en la base de datas con una instruccion tipo sql
por ejemplo creo que en mysql es list tables, dejame revisar en la doc.

[carlos vargas]

pues no encontre nada , pero puedes usar un try cacth end para interceptar el error al abrir una tabla que no existe
podria ser algo asi

function adsExistTable( cTable )
local oErr
local lExist := .t.
if empty(cTable )
return .f.
return
try
use (cTable)
catch oErr
lExist := .f.
end
use
return lExist

[Patricio Avalos Aguirre]

Hola

puede que te sirva la funcion adsdirectory(), yo la utilizo para reindexar las tablas

Code: Select all  Expand view

aIndex := AdsDirectory()
oMeter:nTotal := Len( aIndex )

for i := 1 to len( aIndex )
    cDbf := Left( aIndex[i], len( aIndex[i] )-1 )
    oMeter:cText := "Creando Indice para BD :"+cDbf
    oMeter:Set( i )
    if Netuse( cDbf, .f. )
        if ADSGETNUMINDEXES() > 0
            if !AdsReindex()
                MsgInfo( AdsGetLastError(), "Usuario" )
            endif
        endif
    endif
    USE
next i