select me arroja error

[sepulman]

Hola amigos, aqui de nuevo je,je


superado un problema que es la concatenacion, me vi envuelto en otro...

tengo el sgte sentencia

Set rst_access = base_datos_access.OpenRecordset("Select * from producto where cod_prod = " & " ' " & var_final & " ' ", dbOpenDynaset)

cod_prod es de tipo numerico largo
var_final es string

anteriormente habia comparado numerico con string y funcionaba.
ahora no se que pasa

el error que me marca es el sgte :

"no coincide los tipos de datos en la expresion de criterios"

Por fa' necesito que me echen una manito
Gracias

[sdnsdlm]

where cod_prod = " & var_final

Es decir, quita las comillas simples ya que el dato es numérico.

Saludos.

[kryna]

trata poniendole Val(string) asi te transformara a numerico el dato
Set rst_access = base_datos_access.OpenRecordset("Select * from producto where cod_prod = " & " ' " & VAL(var_final) & " ' ", dbOpenDynaset)
TRATA con eso si no me avisas

[kryna]

ah!!! si tambien debes quitarle las comillas simples

[sepulman]

¡¡¡VIVA TODOS LOS INTEGRANTES DEL FORO!!!!

me resulto con la sgte sintaxis:

Set rst_access = base_datos_access.OpenRecordset("Select * from producto where cod_prod = " & " " & Val(var_final) & " ", dbOpenDynaset)


nuevamente zenkiu a todos

[RootK]

Tambien puedes usar directamente las funciones como las siguientes para la ocasion....

CBool(expresión) 'convierte a boolean

CByte(expresión) '..byte

CCur(expresión) 'currency

CDate(expresión) 'fecha

CDbl(expresión) 'doble

CDec(expresión) 'decimal

CInt(expresión) 'entero

CLng(expresión) 'largo

CSng(expresión) 'single

CStr(expresión) 'string

CVar(expresión) 'variant

Saludos y suerte...