IF compagny.lbobads = .T. *-- Toujours AC_ THIS.cprogrammetoexport = "BOBLINKADSADT" THIS.ctabledbf = "AC_COMPAN.ADT" THIS.cDossierJn = "AC_" THIS.cConnectString = 'Provider=Advantage.OLEDB.1;' + ; 'Data Source=' + THIS.gboblinkdir && + 'User ID=adssys;Password=""' *----------------------------------------------------------------------- ELSE * && Pour avoir 'BO' dans c:\Bob\BO\ THIS.cDossierJn = THIS.cdossierbob THIS.cConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+ ; THIS.gboblinkdir + ";Extended Properties=Paradox 7.x" ENDIFit's OLEDB Paradox
>>WITH oCA >> >> .ADOCODEPAGE = 850 >> .ADDPROPERTY( "oconnection" , CREATEOBJECT( "adodb.connection" ) ) >> .oconnection.ConnectionString = oPrivatecParamCR.cconnectstring >> .oconnection.OPEN() >> .Setconnection ( .oconnection ) >> *-- Foxpro n'accepte pas de chiffre ds un alias ! >> .ALIAS = "Alias" + m.cFich && "boaccoun" >> .TABLES = THIS.cDossierJn + UPPER( m.cFich ) && "boaccoun" >> .DATASOURCE.cursorlocation = 3 >> .DATASOURCE.locktype= 3 >> .BUFFERMODEOVERRIDE = 5 >> >>>>
>>>>TEXT TO .SELECTCMD NOSHOW TEXTMERGE PRETEXT 15 >>>> SELECT HDBK, Hid , HDOCNO, HAMOUNT, HDOCDATE ,CREATEDBY, >>>> Createdon , hremint FROM <<.TABLES>> >>>> WHERE hdocdate > {d '2010-01-31'} >>>> ENDTEXT >>>>>>>>I have the error in attachment
>>>>>...where hdocdate > {d '2010-01-31'} >>>>>...where hdocdatetime > {ts '2010-01-31 12:13:14'} >>>>>>>>>>
>>>>>>...where hdocdate > {^2010-01-31}...
>>>>>>
>>>>>>