Consulta de un dbf con Ado

[ramon]

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!!

[ricardog]

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

[miragerr]

Ola RAMON

Puede darme um exjemplo que como usar DBF com ADO

Gracias

[luisduque]

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))

[luisduque]

//
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)