- Code: Select all Expand view
#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
EMG