Funciona ZAP ?

Post Reply
User avatar
Carles
Posts: 1149
Joined: Fri Feb 10, 2006 2:34 pm
Location: Barcelona
Been thanked: 6 times
Contact:
Contact Carles

Funciona ZAP ?

Post by Carles »

Antonio,

Funciona ZAP ? :(

Code: Select all | Expand

FUNCTION Main()

    LOCAL cTable := Curdir() + '\Test.dbf'


    USE (cTable) NEW

    IF MsgYesNo( 'Borra ?' )

       __DbZap()

    ENDIF

RETU .F.
Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
Skype -> https://join.skype.com/cnzQg3Kr1dnk
Top
User avatar
Antonio Linares
Site Admin
Posts: 42454
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Has thanked: 20 times
Been thanked: 58 times
Contact:
Contact Antonio Linares

Post by Antonio Linares »

Carles,

Debería funcionar correctamente, ya que es algo propio de Harbour.

Te dá algún error ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
Top
User avatar
Carles
Posts: 1149
Joined: Fri Feb 10, 2006 2:34 pm
Location: Barcelona
Been thanked: 6 times
Contact:
Contact Carles

Post by Carles »

Antonio,

Rectifico: Funciona, pero en la pocket, NO en el emulador.

Gracias.
Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
Skype -> https://join.skype.com/cnzQg3Kr1dnk
Top
Post Reply

Return to “FiveWin para Pocket PC”