Eliminar zeros

[kambiz]

Suponiendo que el campo Referencia fuese numérico, o que sólo admitiera números, la instrucción sería la siguiente:

Select Referencia From Table Where CDbl(Referencia) = '134-580'

Pero como el campo Referencia contiene carácteres alfanuméricos, no puedo usar la instrucción CDbl

Gracias.

[Casimiro Noteví]

¿No te vale un procedimiento almacenado?, ¿qué base de datos usas?

[kambiz]

Casimiro, no es que no me valga. Lo que sucede es que este programa está funcionando, es complejo, la persona que lo escribió se fue y no me atrevo a tocar tanto código. Por eso prefiero hacer un filtro y después lo elimino.
Te seré sincera, creo que esto que quiero no es posible

[Casimiro Noteví]

No has dicho qué base de datos usas, tampoco si esa sentencia se lanza desde delphi o está en la propia base de datos.
Si nos informaras exactamente de todo lo que te he preguntado hasta ahora sería posible ayudarte, aunque sea complejo

[kambiz]

Casimiro, en mi primer post digo:
Lo que quiero es que con el siguiente select (uso un TAdoQuery), o sea,
en Delphi, tengo un TAdoQuery con las siguientes propiedades:
TAdoQuery1.Sql -> "Select * from Tabla"
TAdoQuery1.Filter -> Funcion(Referencia) = '134-580'

donde funcion sería la que me gustaría saber si existe, una que elimine los ceros de la izquierda en un string.

La base de datos que uso es Access

[Casimiro Noteví]

Aunque no exista una función que quite los ceros, puedes hacerlo tú, por ejemplo, algo simple como esto te puede valer:

Código Delphi [-]
function QuitarCerosIzquierda(cReferencia:string):string;
begin
  result := cReferencia;
  while result[1]='0' do
    result := copy(Result,2,length(Result));
end;

Y para usarlo:

Código Delphi [-]
TAdoQuery1.Sql -> "Select * from Tabla"[/i]
TAdoQuery1.Filter -> QuitarCerosIzquierda(Referencia) = '134-580'

No sé cómo funciona el filtro del adoquery, pero también puedes hacer algo así como:

TAdoQuery1.Sql -> "Select * from Tabla";
Referencia := QuitarCerosIzquierda(Referencia);
TAdoQuery1.Filter -> (Referencia) = '134-580'

[kambiz]

Buenas de nuevo Casimiro, jamás he utilizado una función en un filtro, pero si lo mencionas será porqué es posible.
Lo he probado y de momento me da error. Por la tarde insistiré y informaré del resultado.
Gracias