Xailer & OZ Software

Quiero hacer una consulta con SELECT, para esto estoy siguiendo el ejemplo
proporcionado por Paco V. y Jose A. Suarez, el ejemplo es el siguiente:
local n
n := 10
WITH OBJECT ::oTSQLQuery1
:lopen := .f.
:cselect := "select * from valesta order by numero desc limit " +
alltrim(str(n))
:lopen := .t.
END WITH
Ahora mi consulta la quiero hacer de esta forma, Pero me da errores:
local varcodigo
varcodigo="FA100"
WITH OBJECT ::oTSQLQuery1
:lopen := .f.
:cselect := "select * from mitabla where codigo= VARCODIGO"
:lopen := .t.
END WITH
Por favor demen una ayudadita, este tipo de consulta lo hacia en foxpro y
funciona bien
Gracias por toda ayuda recibida
Dios les Bendiga.

Pedro,
> :cselect := "select * from mitabla where codigo=
> '"+ToString(VARCODIGO)+"'"
Saludos,
José Luis Capel
"Pedro de Leon Rodas" <pedro_deleon@hotmail.com> escribió en el mensaje de
noticias news:[email=4686a671@ozsrv2.ozlan.local...]4686a671@ozsrv2.ozlan.local...[/email]
> Quiero hacer una consulta con SELECT, para esto estoy siguiendo el ejemplo
> proporcionado por Paco V. y Jose A. Suarez, el ejemplo es el siguiente:
> local n
> n := 10
>
> WITH OBJECT ::oTSQLQuery1
> :lopen := .f.
> :cselect := "select * from valesta order by numero desc limit " +
> alltrim(str(n))
> :lopen := .t.
> END WITH
>
> Ahora mi consulta la quiero hacer de esta forma, Pero me da errores:
>
> local varcodigo
> varcodigo="FA100"
> WITH OBJECT ::oTSQLQuery1
> :lopen := .f.
> :cselect := "select * from mitabla where codigo= VARCODIGO"
> :lopen := .t.
> END WITH
>
> Por favor demen una ayudadita, este tipo de consulta lo hacia en foxpro y
> funciona bien
>
> Gracias por toda ayuda recibida
>
> Dios les Bendiga.
>