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:
聽
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,
Un saludo, Best regards,
Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producci贸n]
Implementando MSVC 2010, FWH64 y ADO.
Abandonando uso xHarbour y SQLRDD.