I am testing accesing DBF via Internet with ADS and AIS.
It goes pretty well but xBrowses are slow.
I searched into forums and there are some posts suggest to change AdsGetRecordCount(), AdsSetDeleted(.t.), etc... but I don´t understand them well as it´s my first time with ADS.
But the replies to this post willl be very interesting for the community.
This is my code:
- Code: Select all Expand view
FUNCTION MAIN()
[...]
// Sets generales---------------------------------------------------------
SetGetColorFocus()
SET EPOCH TO 1990
SET CENTURY ON
SET DATE ITALIAN
SET DELETED ON
SetCancel( .F. )
SetDialogEsc( .F. )
SET( _SET_INSERT, .T. )
Request ADS,ADSKeyCount,ADSKeyNo,OrdKeyCount,OrdKeyNo, AdsGetRelKeyPos, AdsSetRelKeyPos
RddRegister( "ADS", 1 )
RddSetDefault( "ADS" )
//setting up server type
// 1 = Local Server (no client / server)
// 2 = Remote Server
// 3 = Local + Remot
// 4 = Internet Server
// 5 = Local + Internet
// 6 = Remote+Internet
// 7 = Local + Remote + Internet , best choice
adsSetServerType( 4 ) // ó adsSetServerType( ADS_REMOTE_SERVER )
//setting up the file types
// 1 = DBFNTX
// 2 = DBFCDX
// 3 = ADSADI
adsSetFileType( ADS_CDX ) // o ADS_CDX
// -------------------------------------------------------------------------
// Opening DBF FILES
[...]
SELECT 5
USE (cMyPath+"FACTURAS") INDEX (cMyPath+"FACTURAS") SHARED NEW ALIAS "FACTURAS"
// INDEXING
[...]
USE (cMyPath+"FACTURAS") EXCLUSIVE NEW
DELETE ALL FOR EMPTY( FIELD->NUMERO )
PACK
INDEX ON FIELD->NUMERO TO (cMyPath+"FACTURAS")
DbCloseAll()
Please, what should apply to achieve best results?.
Thank you very much.
Best regards,