Problema type mismatch

[maron]

Hola amigos, tengo un problema con tipos de datos diferentes. Ingreso el precio_min y precio_max a través de dos campos de texto de un formulario. Cuando hago la consulta, tengo:

SELECT * FROM tabla WHERE Precio BETWENN &precio_min& AND &precio_max&

y me produce el error Type mismatch. Está bien hecha la consulta?
Saludos y gracias

[gorka_arai]

Si es así como la tienes, malamente...

Iniciado por maron

Cuando hago la consulta, tengo:

SELECT * FROM tabla WHERE Precio BETWEEN &precio_min& AND &precio_max&
Saludos y gracias

[trasgukabi]

"SELECT * FROM tabla WHERE Precio between "&precio_min&" AND "&precio_max

[maron]

Perdón, me equivoqué al escribir la consulta. La tengo bien escrita (como dice arriba, entre ""). Me preguntaba si puede dar algún problema que obtengo el parámetro en un campo de texto y la variable precio es un número . El campo de la BD es tipo numérico y las variables precio_min y precio_max están inicializadas en 0.

[trasgukabi]

para asegurarte haz un

Código:

"SELECT * FROM tabla WHERE Precio between "&cint(precio_min)&" AND "&cint(precio_max)

(cint si es un entero, etc, etc....).

Aunque no debería hacer falta

[maron]

Queria hacerla corta, por eso no puse el codigo antes, pero sigue sin funcionar. Aqui va, pues a lo mejor el problema es otro:

<%
Dim opcion
opcion = 0
%>

<%
Dim var_dorm
var_dorm = 0
If Request("dorm") <> "" Then
var_dorm = Request("dorm")
opcion = opcion + 1000
End If
%>

<%
Dim var_precio_min, var_precio_max
var_precio_min = 0
var_precio_max = 9999999
If (Request("min") <> "") Then
var_precio_min = (Request("min"))
opcion = opcion + 10000
End If
If (Request("max") <> "") Then
var_precio_max = (Request("max"))
End If
%>
.
.
.
<%Dim oConn
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb);DBQ=C:\pathdelaBD.mdb;"
%>

<%
Dim rs_consulta

Set rs_consulta = Server.CreateObject("ADODB.Recordset")
rs_consulta.ActiveConnection = "DRIVER={Microsoft Access Driver (*.mdb);DBQ=C:\pathdelaBD\BD\BD.mdb;"
rs_consulta.Source = "SELECT * FROM Tabla1"

select case opcion
case 0
rs_consulta.Source = "SELECT * FROM Tabla1"
.
.
.
case 1000
rs_consulta.Source = "SELECT * FROM Tabla1 WHERE Dormitorios = '"&clng(var_dorm)&"'"
case 10000
rs_consulta.Source = "SELECT * FROM Tabla1 WHERE Precio BETWEEN '"&clng(var_precio_min)&"' AND '"&clng(var_precio_max)&"'"
.
.
.
end select

rs_consulta.CursorType = 0
rs_consulta.CursorLocation = 2
rs_consulta.LockType = 1
rs_consulta.Open()

'aqui es donde aparece el error, en la linea del Open
'Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
'[Microsoft][ODBC Microsoft Access Driver]
'Data type mismatch in criteria expression.

<%
rs_consulta.Close()
Set rs_consulta = Nothing
%>
<%oConn.Close()%>

Los campos Precio y Dormitorios de la BD son tipo Numerico
En los campos texto no da problema la consulta.
Desde ya, gracias por el aporte
Saludos

[maron]

Me falto lo que va en la pagina de consulta:

<form name="form1" method="get" action= "listado.asp">

<select name="dorm" size="1" id="dorm">
<option value="0">ninguno</option>
<option value="1">uno</option>
</select>

<input name="min" type="text" id="min">
<input name="max" type="text" id="max">

<input type="Submit" name="submit" value="Enviar">

[a n g e l u s]

hola maron

tu lo tienes asi: (usas comillas simples para llamar a numeros)

rs_consulta.Source = "SELECT * FROM Tabla1 WHERE Precio BETWEEN '"&clng(var_precio_min)&"' AND '"&clng(var_precio_max)&"'"

y debe ser asi:

rs_consulta.Source = "SELECT * FROM Tabla1 WHERE Precio BETWEEN "&clng(var_precio_min)&" AND "&clng(var_precio_max)


TRASGUKABI le dio la respuesta correcta.

[trasgukabi]

vale, me callo.

[maron]

No calentarse, Trasgukabi, para los "abombados" como yo, tiene que haber un "ANGEL" que les muestre el camino.
Gracias a ambos. Funcionó.