Strange behavior of ACTION clause
Posted: Mon Oct 08, 2007 10:08 am
Try the following sample (you will need of an MDB file). Now remove the comment of the ACTION clause and you will notice that the LDB file is not deleted anymore. Why?
EMG
Code: Select all
#include "Fivewin.ch"
#define adOpenForwardOnly 0
#define adOpenKeyset 1
#define adOpenDynamic 2
#define adOpenStatic 3
#define adLockReadOnly 1
#define adLockPessimistic 2
#define adLockOptimistic 3
#define adLockBatchOptimistic 4
#define adUseNone 1
#define adUseServer 2
#define adUseClient 3
FUNCTION MAIN()
LOCAL oRs := CREATEOBJECT( "ADODB.Recordset" )
oRs:Open( "SELECT * FROM Clienti", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=clienti.mdb", adOpenKeyset, adLockOptimistic )
TEST( oRs )
oRs:Close()
oRs = NIL
RETURN NIL
STATIC FUNCTION TEST( oRs )
LOCAL oDlg
DEFINE DIALOG oDlg
@ 1, 1 BUTTON "";
// ACTION oRs
ACTIVATE DIALOG oDlg;
CENTER
RETURN NIL