FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour ADOBASE ERROR
Posts: 133
Joined: Mon May 12, 2008 04:13 PM
ADOBASE ERROR
Posted: Sat May 17, 2008 03:52 AM

Hola Adolofo

Static Function IfTable(cTableName,oConnect)
Local aTables := {}

aTables := ListTable(oConnect)
IF ! ( cTableName IN aTables ) //es esta linea da un  error
    Return .F.
else
    Return .T.
ENDIF

Return .T.

Fivewin 16.11
Harbour 3.2.0
Visual Studio 2015 community
MariaDb/MySql

Ing. MSc. Luis Duque
http://www.accasoft.net
Posts: 883
Joined: Tue Oct 11, 2005 11:57 AM
ADOBASE ERROR
Posted: Sat May 17, 2008 02:58 PM

Luis..

Tu usas HARBOUR...
IN se encuentra en xHarbour

reemplaza esa linea por

IF aScan(aTables, cTableName)= 0

Prueba a hacer esto y me indicas

Eso

;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650

Continue the discussion