buenas tardes esto tengo al inicio de mi programa de ads server function main() REQUEST ADS RDDREGISTER("ADS",1) RDDSETDEFAULT('ADS') //SET SERVER LOCAL SET SERVER REMOTE SET FILETYPE TO NTX ADSLocking( .t. ) //con esto no te da el error que mencionas porque ...
... porque me marca muchos errores de adsXXXX. la lib ace32,lib solo biene en la Harbour 3.2 al inicio de mi app incluyo: function ActivaRDD() *RDDREGISTER("ADS",1) *RDDSETDEFAULT("ADS") *ADSSETSERVERTYPE(2) *ADSLOCKING(.T.) *ADSRIGHTSCHECK(.F.) RDDREGISTER( "ADS",1 ...
... me to study some source of HDO. I leave you the complete code of the class THDORDL that is in charge of the management of the RDL is with the RDDRegister of the RDD. Like all HDO class is made in C completely. /*** * Proyecto: Harbour Data Objects (HDO) * Fichero: hdoRDL.c * Descripcion: Gestion ...
... pedido a modo de estudio algún fuente de HDO. Os dejo el codigo completo de la clase THDORDL que se encarga de la gestion de la RDL es com la RDDRegister de las RDD. Como todas las clase de HDO está hecha en C completamente. /*** * Proyecto: Harbour Data Objects (HDO) * Fichero: hdoRDL.c * ...
... si existe) da el error ADO_OPEN ,pero nada mas ¿?? ---- #include "FiveWin.ch" #include "adordd.ch" ... ... ... REQUEST ADORDD RddRegister("ADORDD",1) RddSetDefault("ADORDD") SET ADO TEMPORAY NAMES INDEX LIST TO {"TMP","TEMP"} SET ADO ...
... REQUEST OrdKeyNo, OrdKeyCount, OrdKeyGoto REQUEST ADS,ADSKEYCOUNT,ADSGETRELKEYPOS,ADSKEYNO,ADSSetRelKeyPos,rddsys RDDREGISTER("ADS",1) SET SERVER LOCAL AdsSetFileType( ADS_CDX ) AdsLocking( .t. ) AdsRightsCheck( .f. ) un saludo LORENZO
James, Its really very simple. I port apps like this: 1) Add adordd.prg to the actual project. 2) Then code in at the initial proc or function : RddRegister("ADORDD",1) RddSetDefault("ADORDD") IF RDDSETDEFAULT() == "ADORDD" SET ...