-----Messaggio Originale-----
Da: <[email protected]>
A: <[email protected]>
Data invio: giovedì 7 maggio 2009 22.08
Oggetto: [Harbour] Harbour AND MDB
Hi
what have i do to open MDB Access archieves with harbour?
This is a sample:
#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 ORDER BY Cliente",
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=clienti.mdb",
adOpenForwardOnly, adLockReadOnly )
WHILE !oRs:EOF
? oRs:Fields( "Cliente" ):Value
oRs:MoveNext()
ENDDO
oRs:Close()
RETURN NIL
EMG
--
EMAG Software Homepage: http://www.emagsoftware.it
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg
The EMG Music page: http://www.emagsoftware.it/emgmusic
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
