error en select

[sepulman]

Hola amigos del foro.
Tengo una pagina la cual se conecta a access y tiene la sgte sintaxis:

dim usuario
usuario = request.form("usuario")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Provider = "Microsoft.Jet.OLEDB.4.0"
oConn.Open (Server.Mappath("proveedores_internet.mdb"))
Set tabla = Server.CreateObject("ADODB.recordset")
sql = "SELECT * FROM proveedores WHERE rut_pro = " + Replace(usuario, "'", "''") + ""
tabla.Open sql, oConn

rut_pro es de tipo entero_largo y debo compararlo con la variable usuario.
la variable usuario lo recojo desde otro formulario.
una vez que lo capturo tengo que hacer un filtro para ese usuario pero me tira el sgte error:

Error de sintaxis (falta operador) en la expresión de consulta 'rut_pro ='.
no se que pasa, alguien me podria echar una manito por favor.

[maestro]

Haz el replace fuera de la SQL para no liarlo

dim usuario
usuario = request.form("usuario")
replacetext= replace...... ' lo que sea
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Provider = "Microsoft.Jet.OLEDB.4.0"
oConn.Open (Server.Mappath("proveedores_internet.mdb"))
Set tabla = Server.CreateObject("ADODB.recordset")
sql = "SELECT * FROM proveedores WHERE rut_pro = "&replacetext&"
tabla.Open sql, oConn

[sepulman]

maestro gracias por responder, pero.....
mira, puse lo sgte:

dim usuario
dim replacetext
usuario = request.form("usuario")
replacetext = replace(usuario, "'", "''")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Provider = "Microsoft.Jet.OLEDB.4.0"
oConn.Open (Server.Mappath("proveedores_internet.mdb"))
Set tabla = Server.CreateObject("ADODB.recordset")
sql = "SELECT rut_pro FROM proveedores WHERE rut_pro = "&replacetext&" "
tabla.Open sql, oConn

y me tira el sgte error:

Tipo de error:
Microsoft JET Database Engine (0x80040E14)
Error de sintaxis (falta operador) en la expresión de consulta 'rut_pro ='.
/validando_proveedor.asp, line 21



no sabo que puede ser
a lo mejor me equivoque en la asignacion a replacetext..
no se.
me podrias echar una manito

[ElAprendiz]

puede que tu variable usuario este vacia

[sepulman]

Elaprendiz:
pero si mi variable usuario esta vacia entonces el recordset no deberia devolver nada , pero no caerse. en teoria deberia ser asi.

igual hice la prueba (por si acaso) y se cae donde mismo.

Tipo de error:
Microsoft JET Database Engine (0x80040E14)
Error de sintaxis (falta operador) en la expresión de consulta 'rut_pro ='.
/validando_proveedor.asp, line 20

[sepulman]

por fa' necesito ayuda
se los agredecere muchisiimo ...

[ElAprendiz]

jeje

puede que sea una tontera pero a lo mejor el caracter _ te lo esta tomando como fin de linea

saludos

[sepulman]

les cuento que solucione el problema.
me que quedo asi:

Dim tabla__MMColParam2
tabla__MMColParam = "1"
if (Request.Form("usuario") <> "") then tabla__MMColParam2 = Request.Form("usuario")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Provider = "Microsoft.Jet.OLEDB.4.0"
oConn.Open (Server.Mappath("proveedores_internet.mdb"))
Set tabla = Server.CreateObject("ADODB.recordset")
sql = "SELECT * FROM proveedores WHERE rut_pro = " + Replace(tabla__MMColParam2, "'", "''") + ""
tabla.Open sql, oConn

gracias a todos los que me ayudaron

PERO ME SURGIO UN NUEVO PROBLEMA

como ven la variable rut_pro es numerico.
cuando me ingresan datos de tipo texto se cae,
como lo valido antes de que me haga el select, o sea que si no es numerico me mande un responde.redirect("ingrese_un_numerico.asp")
espero sus respuestas...

[bakanzipp]

lo ideal es que esas validaciones las hagas con codigo cliente (vbscript ó javascript)... para no sobrecargar el servidor y no tener que refrescar la pagina.

si buscas en el google validaciones numericas encontraras muchos ejemplos