mostrar resultados

[luc786]

Hola:

Miren lo que quiero debe ser muy simple, quiero mostrar en una pagina asp, 1 solo resultado de mi base de datos utilizando una variable como http://www.misitio.com/products?id=8. Quiero usar el campo ID para identificar los datos que quiero mostrar.

Si tienen algun ejemplo, lo agradeceria mucho! :)


Gracias!

[alan]

Es sencillo, solo hazte lo siguiente:

ID = request.querystring("ID")

strSQL = "select * from tutabla where id like '%"&id&"%'"

y listo, cualquier cosa escribe de nuevo.

[luc786]

Pongo el codigo asi:

<%

ID = request.querystring("ID")

Dim con,rs,sql,datos

datos= Server.MapPath ( "db/datos.mdb " )

' Creamos el objeto para la conexion y la abrimos

Set con= Server.CreateObject("ADODB.connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source="&datos&";"


' Creamos la sentencia SQL para interactuar con la base de datos que ya esta abierta y lista para recibir ordenes, y seleccionamos toda la tabla pues queremos todos los registros de la base de datos, la tabla que usaremos en este caso se llama lista .

strsql= "select * from Tabla1 where id like '%"&id&"%'"

' Ejecutamos la operacion.

Set rs= con.execute(sql)

%>


Me da el siguiente error:

Tipo de error:
Microsoft JET Database Engine (0x80040E0C)
No se estableció ningún texto de comando para el objeto de comando.
/show.asp, línea 32

[ElAprendiz]

strsql= "select * from Tabla1 where id like '%"&id&"%'"

' Ejecutamos la operacion.

Set rs= con.execute(strsql)

[luc786]

Barbaro, no me dio error pero no me mostro nada en la pagina

mando el codigo:

<%

ID = request.querystring("ID")

Dim con,rs,sql,datos

datos= Server.MapPath ( "db/datos.mdb " )

' Creamos el objeto para la conexion y la abrimos

Set con= Server.CreateObject("ADODB.connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source="&datos&";"


' Creamos la sentencia SQL para interactuar con la base de datos que ya esta abierta y lista para recibir ordenes, y seleccionamos toda la tabla pues queremos todos los registros de la base de datos, la tabla que usaremos en este caso se llama lista .

strsql= "select * from Tabla1 where id like '%"&id&"%'"

' Ejecutamos la operacion.

Set rs= con.execute(strsql)

%>

[bakanzipp]

te falta recorrer el recordset

Set rs= con.execute(strsql)

if not rs.eof and not rs.bof then
while not rs.eof
response.write rs("campo1") &"<br>"
response.write rs("campo2") &"<br>"
...
...
wend
else
response.write "sin registros"
end if

[luc786]

a ver si lo entendi asi es?

codigo:

<%

ID = request.querystring("ID")

Dim con,rs,sql,datos

datos= Server.MapPath ( "db/datos.mdb " )

' Creamos el objeto para la conexion y la abrimos

Set con= Server.CreateObject("ADODB.connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source="&datos&";"

' Creamos la sentencia SQL para interactuar con la base de datos que ya esta abierta y lista para recibir ordenes, y seleccionamos toda la tabla pues queremos todos los registros de la base de datos, la tabla que usaremos en este caso se llama lista .

strsql= "select * from Tabla1 where ID like '%"&ID&"%'"

' Ejecutamos la operacion.

Set rs= con.execute(strsql)


'aca va el recordset

if not rs.eof and not rs.bof then
while not rs.eof
response.write rs("Nombre") &"<br>"
response.write rs("Descripcion") &"<br>"
...
...
wend
else
response.write "sin registros"
end if

%>

Muchas Gracias

los que no entiendo son los puntos!!! :)

[ElAprendiz]

los que no entiendo son los puntos!!! :)

no se si reirme, o llorar... :


PD:se supone que ahi va el resto de tu codigo

[bakanzipp]

jjaaa..no habia visto el final del mensaje...

reise no hace daño