FiveTech Support Forums

Amigos, estoy teniendo un problemita que no encuentro la solucion.
Tengo una DBF con las ventas de varios años.
Abro la base de datos con OLE, hago un SQL y todo va bien, filtro segun el cliente,articulo y funciona perfectamente!! donde me estoy atorando es con las fechas!! no me funciona de ninguna manera!!

Select ....
.....
where fecha>="01012009" and fecha<="31122009" asi marca error
where fecha>=01012009 and fecha<=31122009 asi no marca error, pero no se trae nada
where fecha>=010109 and fecha<=311209 asi se trae todos los datos !!
where fecha>=090101 and fecha<=091231 asi no se trae nada!!

Gracias por su ayuda!!

Intenta lo siguiente

cFecha:="'"+StrZero(Year(fFecha),4)+;
                StrZero(Month(fFecha),2)+;
                StrZero(Day(fFecha),2)+"'"

Ten cuidado con los "APOSTROFES" " ' "

Espero te ayude
Saludos

Ola RAMON

Puede darme um exjemplo que como usar DBF com ADO

Gracias

Hola
Espero te ayude a resolver tu problema
oRcs:Source := "Select * From MaesFaVe m,Clientes c Where m.CodCli=c.CodCli And FecFave >= '" + NtocSql(cFecDes) + "'And FecFaVe <= '" + NtocSql(cFecHas)
//
Function NtocSql(Fecha)
Return(Ntoc(Year(Fecha),4) + "-" + Ntoc(Month(Fecha),2) + "-" + Ntoc(Day(Fecha),2))

//
Function Ntoc(nNumero,nLongitud,cRelleno)
Local cNumero,nInicio,nI
Default nNumero := 0,nLongitud := 10,cRelleno := "0"
If ValType(nNumero)<>"N"
nNumero := 0
EndIf
cNumero := AllTrim(Str(nNumero,nLongitud))
nInicio := Len(cNumero) + 1
For nI := nInicio To nLongitud
cNumero := cRelleno + cNumero
Next
Return(cNumero)