HELP donde esta el error AYUDA

sjam7 · #1 (**permalink**) 17/01/2002, 18:25

Este es el codigo

<%
response.buffer = false
muestra = request.querystring("id")
%>
<html>
<head>
<title>title</title></head>
<body bgcolor="#cccccc">
Edita empresas 

<%
Dim conexion, RS, basedatos

basedatos = Server.MapPath("miboda.mdb")
Set conexion = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")

conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"

RS.CursorType=1
RS.LockType=2

SQL=("SELECT * FROM empresas WHERE id='"&muestra&"'")

RS.Open SQL, conexion

Do while Not RS.EOF
giro = RS.Fields("giro")

response.write giro

RS.MoveNext
Loop

RS.Close
%>
</body></html>

Y me marca este error:
Microsoft JET Database Engine error '80040e07'
No coinciden los tipos de datos en la expresión de criterios.
/usuarios/guiaguanatos/boda/editaemp.asp, line 49

HELP MEEE

JAM desde la tierra del tequila, el mariachi y mujeres guapas[/CODE]
<a href="mailto:[email protected]">[email protected]</a>

#2 (**permalink**) 17/01/2002, 20:43

Hola.

Cuando creas la consulta:
SQL=("SELECT * FROM empresas WHERE id='"&muestra&"'")

Fijate que tu campo id de la base de datos esté definido como texto. Si es numérico (o autonumérico) no debes poner las comillas simples, quedaría:
SQL=("SELECT * FROM empresas WHERE id="&cInt(muestra))

Salu2

sjam7 · #3 (**permalink**) 18/01/2002, 10:12

Vale majo, :) sabia que era una tonteria el error, muchas gracias y....ole

JAM desde la tierra del tequila, el mariachi y mujeres guapas[/CODE]
<a href="mailto:[email protected]">[email protected]</a>