HMGforum.com

Posted: **Wed Jun 08, 2016 4:38 pm**

Gracias Luis por tu respuesta, mi pregunta es como se puede hacer aparte
de lo que es peligroso como en su día Rathinagiri puso que lo consiguió
Borrar el Fichero con:
*-----------------------------------------------------------------------------*
dbo: = hdbcSQLTConnection ( "sample.db3" .T.)
dbo: Close ()
dbo: = Nil
hb_gcall (.T.)
zx: = FERASE ( "sample.db3")
MsgInfo (str (zx))
*------------------------------------------------------------------------------*
Si no se habre la Base de datos, Borra perfecto File('sample.db3' y MsgInfo (str (zx)) indica "0" Ok

Code: Select all

#include "hmg.ch"
 public dex := nil

IF FILE('sample.db3') 
   Copy File('sample.db3')    To 'sample_1.db3' 
ELSE
   Copy File('sample_1.db3')  To 'sample.db3' 
ENDIF

 dex := hdbcSQLTConnection( "sample.db3", .T. )
 dex:Close() 
 dex :=  nil

 hb_gcall( .T. ) 
 zx := ferase( 'sample.db3' )
 msgInfo( str( zx ) )

return

El Problema está cuando se consulta la Base datos en el Sample anterior y luego intentas Borrarla,
No te deja porque está Open.

saludos
Mustafa
*--------------------------------------------------- Google ---------------------------------------------
Luis Thanks for your answer, my question is how you can do apart
what is dangerous as once it got put Rathinagiri
Delete the file with:
* ------------------------------------------------- ---------------------------- *
dbo: = hdbcSQLTConnection ("sample.db3" .T.)
dbo: Close ()
dbo: = Nil
hb_gcall (.T.)
zx: = FERASE ("sample.db3")
MsgInfo (str (zx))
* ------------------------------------------------------------------------------- *
If not open the database, Eraser perfect, File('sample.db3' and MsgInfo (str (zx)) indicates "0" Ok

Code: Select all

#include "hmg.ch"
 public dex := nil

IF FILE('sample.db3') 
   Copy File('sample.db3')    To 'sample_1.db3' 
ELSE
   Copy File('sample_1.db3')  To 'sample.db3' 
ENDIF

 dex := hdbcSQLTConnection( "sample.db3", .T. )
 dex:Close() 
 dex :=  nil

 hb_gcall( .T. ) 
 zx := ferase( 'sample.db3' )
 msgInfo( str( zx ) )

return

The problem is when the data base is consulted in the previous Sample and then try to delete it,
Will not let you because it is Open.
regards

Mustafa

HMGforum.com

How to close SQLite Connection?

Re: How to close SQLite Connection?