Consulta doble

27/04/2006 - 17:27 por José M. Sánchez | Informe spam
Hola amigos, como se haría una consulta de una bd para resaltar un
determinado registro? Lo tengo así pero no me sale:

<%
consulta1 ="Select * From tablaWhere UCase(ID)='" & UCase(Request("qt")) &
"'"
consulta2 ="Select * From tablaWhere UCase(CatID)='" & UCase(Request("cat"))
& "'"

listado.Open consulta1,Connq,2,2%>

Dim C
Set C=listado.fields("ID")
listado.close

listado.Open consulta2,Connq,2,2

Do while not listado.eof
if listado.fields("ID")=C then%>

<%=listado.fields("ID")%>

<%else
end if
listado.movenext
Loop
listado.close%>
 

Leer las respuestas

#1 José M. Sánchez
27/04/2006 - 18:09 | Informe spam
Gracias Matias, ID sería el registro clave de los artículos de un
determinado foro, cada grupo de ID puede pertenecer a un CatID.
La conexion a la bd (access) es :
<% Dim Connq,listado, consulta
Set Connq=Server.CreateObject("adodb.connection")
Set listado=Server.CreateObject("adodb.recordset")
Connq.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Server.MapPath("../db/forum.mdb"))%>

Al acceder al grupo de artículos de un determinado foro, quiero que me dé
los ID de cada uno, y resaltar en el que estoy, a modo de una paginación.

He intentado lo que me has dicho pero me dá:

Microsoft JET Database Engine (0x80040E07)
No coinciden los tipos de datos en la expresión de criterios.








"Matías Iacono" escribió en el mensaje
news:
ID que es?

De cualquier manera, dependiendo de la base de datos, no te soportará el
UCASE para la consulta.

Podrías hacer:

Select * From tablaWhere ID='" & UCase(Request("qt")) & "'"

Matías Iacono
Microsoft MVP ASP/ASP.net
Microsoft Student Ambassador
Coordinador de evento Comunidad MSDN Bolivia
DCE2 v.2005
"José M. Sánchez" escribió en el mensaje
news:
> Hola amigos, como se haría una consulta de una bd para resaltar un
> determinado registro? Lo tengo así pero no me sale:
>
> <%
> consulta1 ="Select * From tablaWhere UCase(ID)='" & UCase(Request("qt"))


&
> "'"
> consulta2 ="Select * From tablaWhere UCase(CatID)='" &
> UCase(Request("cat"))
> & "'"
>
> listado.Open consulta1,Connq,2,2%>
>
> Dim C
> Set C=listado.fields("ID")
> listado.close
>
> listado.Open consulta2,Connq,2,2
>
> Do while not listado.eof
> if listado.fields("ID")=C then%>
>
> <%=listado.fields("ID")%>
>
> <%else
> end if
> listado.movenext
> Loop
> listado.close%>
>
>
>



Preguntas similares