I try made a test but i am not able to do a testHBMK2 HBDBTEST.PRG ace32.lib
rddado.lib rddads.lib
return me error cannot find -lace32
REQUEST ADS
REQUEST DBFCDX
request DBFFPT
REQUEST ADORDD
// REQUEST SDODBC,SQLMIX // #DEFINE RDDI_CONNECT 1001 //// #include "
mediator.ch"
#INCLUDE "ORD.CH"
#command DEFAULT <v1> TO <x1> [, <vN> TO <xN> ];
=> IF((<v1>)=NIL,<v1>:=<x1>,NIL) [; IF((<vN>)=NIL,<vN>:=<xN>,NIL)]
FUNCTION MAIN(x_command)
LOCAL A,X_FLAG
LOCAL
A_CMDLINE:={{"/ADL","ADS"},{"/ADS","ADS"},{"/ADORDD","ADORDD"},{"/DBFCDX","DBFCDX"},{"/BMDBFCDX","BMDBFCDX"}
}
LOCAL X_RDD
DEFAULT x_command TO "/ADS"
FOR A=1 TO LEN(A_CMDLINE)
IF A_CMDLINE[A,1] $ UPPER(X_COMMAND)
X_RDD=A_CMDLINE[A,1]
X_FLAG=A_CMDLINE[A,2]
ENDIF
NEXT A
rddsetdefault( X_RDD)
// possible expand with NETIO_CONNECT(*
{"/SQLMIX",/"SQLMIX",},{"/SQLRDD","SQLRDD"},{"MEDSQL"MEDSQL"}
if x_rdd="ADS"
IF X_FLAG="/ADL"
AdsSetServerType ( 1 ) // SET SERVER LOCAL
ELSE
AdsSetServerType ( 2 ) // SET SERVER remote
ENDIF
SET(_SET_OPTIMIZE,.T.)
AdsSetFileType(2) // SET FILETYPE TO CDX // if you are using DBFCDX
AdsLocking( .f. ) // // SET AXS LOCKING OFF
ADSRightsCheck( .f.)
AdsSetCharType(2,.T.) // font oem + recupera il carattere oem
else
ENDIF
SET OPTIMIZE ON
set deleted off
? DTOC(DATE())+" "
?? TIME()
? +" "+CURDRIVE()+":\"
?? CURDIR()
? "RDD="+X_RDD +" option "+X_FLAG
* TEST TABLE
aDbf := {}
AADD( aDbf, { "FN", "N", 10, 0 } )
AADD( aDbf, { "FNF", "N", 12, 4 } )
AADD( aDbf, { "FC", "C", 40, 0 } )
AADD( aDbf, { "FD", "D", 8, 0 } )
AADD( aDbf, { "FL", "L", 1, 0 } )
AADD( aDbf, { "FM", "M", 0, 0 } )
FOR A=1 TO 20
AADD( aDbf, { "FIELD"+ALLTRIM(STR(A)), "C", 10, 0 } )
NEXT A
dbCreate("hbdbtest",aDbf)
USE dbtest EXCLUSIVE
index on fc + str(fn,10,0) to DBtest_i1
? "Creating gbdbtest database - inserting 10 records"
use hbdbtest SHARED
IF NETERR()
? "Unable to open hbDBTEST - quit"
QUIT
ENDIF
? "INSERT : 10 "
st = seconds()
for i = 1 to 10
append blank
replace fn with A
replace fnf with A*A
replace fc with replicate( CHR(65+A ), 40 )
replace fd with date() + A
replace fl with A*2
next
commit
goto 2
delete
goto 5
delete
GO TOP
DBEDIT()
return
2009/9/21 J. Lefebvre <[email protected]>
> Using an older ADSRDD do not solve the problem … seem to be higher in RDD
> structure.
>
>
>
> *De :* [email protected] [mailto:
> [email protected]] *De la part de* J. Lefebvre
> *Envoyé :* lundi 21 septembre 2009 11:36
> *À :* 'Harbour Project Main Developer List.'
> *Objet :* [Harbour] "set deleted on"not workin anyore from last CVS
>
>
>
> Hi,
>
>
>
> Compiling the very last cvs version I discovered ‘SET DELETED ON’ do not
> work anymore (using ADSRDD).
>
>
>
> I see some modification around the 15-09-2009.
>
>
>
> Any idea ?
>
>
>
> Regards,
>
>
>
> JF,
>
>
>
> _______________________________________________
> Harbour mailing list
> [email protected]
> http://lists.harbour-project.org/mailman/listinfo/harbour
>
>
--
Massimo Belgrano
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
