Base de datos y ASP

CHuLoSoY · #1 (**permalink**) 02/03/2002, 18:54

Tengo el siguiente código en asp para una conexión a access:

<%
Set con = Server.CreateObject("ADODB.Connection")
con.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("***.mdb"))
sql = "SELECT * FROM mensajes WHERE user = '***'"
.... %>

La pregunta es: ¿Cómo hago para que muestre únicamente las 4 últimas entradas? .

Otra pregunta, ¿cómo sería la forma de introducir datos en una bd?

Es urgente, gracias.

CHuLoSoY · #2 (**permalink**) 02/03/2002, 20:12

es muy urgente :(

urjose · #3 (**permalink**) 02/03/2002, 22:22

sql = "SELECT TOP 4* FROM mensajes WHERE user ='Nombre' ORDER BY ID DESC"

y como insertas

set oconn=server.createobject("adodb.connection&q uot;)
oconn.open "dsn"
sql="INSERT INTO TABLA (campo1,campo2) VALUES('valor1',valor2)"
set rs=oconn.execute(sql)

saludos

:)

CHuLoSoY · #4 (**permalink**) 03/03/2002, 07:13

Ok muchas gracias, pero tengo una duda, que sabía hacer pero al no practicar se me olvidó, cómo inserto los datos recogiéndolos de un formulario?¿

urjose · #5 (**permalink**) 03/03/2002, 12:20

<a href='ir.asp?http://www.forosdelweb.com/mensaje.asp?id=66191' target='_blank'>http://www.forosdelweb.com/mensaje.asp?i...</a>

saludos :)

rodvilleda · #6 (**permalink**) 03/03/2002, 12:42

oye y ¿como se puede hacer para seleccionar únicamente el primer registro (por ejemplo el más nuevo) y el último (el más antiguo)?

Neodlh · #7 (**permalink**) 03/03/2002, 12:44

Ves a

<a href='ir.asp?http://www.duresources.com/resources/detail.asp?r=applications&t=UltraDev&i=497 ' target='_blank'>http://www.duresources.com/resources/det...</a>

Aunque para descargarlo tienes que registrarte pero esta bien porque es una conexion ya echa para que te hagas una idea.

Saludos

<hr>La
tecnología web avanza... No te quedes atrás.[/CODE][/CODE]

CHuLoSoY · #8 (**permalink**) 03/03/2002, 13:33

Al poner TOP 2* me da el siguiente error:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] The SELECT statement includes a reserved word or an argument name that is misspelled or missing, or the punctuation is incorrect.

/pensamos/db/default.asp, line 199

CHuLoSoY · #9 (**permalink**) 03/03/2002, 13:35

Y en la dirección del mensaje que me diste puse tal y como estaba y me da el error de que la página tiene un error y no puede ser mostrada. El código que tengo es este:

<%
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../****.mdb"))
valorUsuario = Request.form("Usuario"')
valorTitulo = Request.form("Titulo")
valorCopete = Request.form("Copete")
valorFecha = Request.form("Fecha")
valorLink = Request.form("Link")
valorDescripcion = Request.form("Descripcion")
consulta="INSERT INTO OPINIONES (Usuario, Titulo, Copete, Fecha, Link, Descripcion) VALUES ('"&valorUsuario&"','"& valorTitulo&"','"&valorCopete&am p;"','"&valorFecha&"','&quo t;&valorLink&"','"&valorDesc ripcion&"')"
Set resultado=conexion.Execute (consulta)

result.MoveNext

Loop

result.Close
Set result = Nothing
con.Close
Set con = Nothing
%>

urjose · #10 (**permalink**) 03/03/2002, 13:44

TOP 2 *

separa el 2 del *

saludos

:)

CHuLoSoY · #11 (**permalink**) 03/03/2002, 13:46

Dios mío, muchas gracias, ahora me queda lo de insertar datos, ya que me da el error que te dije.

urjose · #12 (**permalink**) 03/03/2002, 13:53

trata de revisar tu pagina con el netscape ahi si te sale el error ya que a primera instancia no lo encuentro

saludos

:)

CHuLoSoY · #13 (**permalink**) 03/03/2002, 13:54

Seré burro, aún no me bajé el netscape, y con mi conexión tardaré unos días :( empezaré a bajarlo. Urjose, eres un experto en asp, ya me gustaría llegarte a la punta de los zapatos!

urjose · #14 (**permalink**) 03/03/2002, 13:58

:) experto? no para nada, gracias por tus comentarios... jeje :)

si tienes tu pagina online pasame la url de la pagina yo tengo netscape

saludos

CHuLoSoY · #15 (**permalink**) 03/03/2002, 14:01

www26.brinkster.com/pensamos/db/escribir/add.htm , rellenas el formulario .... es un pequeño formulario para probar si funciona, luego en la página asp (default.asp) da el error.

urjose · #16 (**permalink**) 03/03/2002, 14:06

Microsoft VBScript compilation error '800a03ee'

Expected ')'

/pensamos/db/escribir/default.asp, line 198

valorUsuario = Request.form("Usuario"')
-------------------------------------^

tienes un ' de mas

saludos

:)

CHuLoSoY · #17 (**permalink**) 03/03/2002, 14:33

Hola, perdón por no responderte antes, hubo un apagón aquí.

Sigue dando el mismo error, vuelve a mirar.

urjose · #18 (**permalink**) 03/03/2002, 14:42

Microsoft VBScript compilation error '800a040e'

'loop' without 'do'

/pensamos/db/escribir/default.asp, line 209

Loop
^
te hace falta el do en tu codigo

saludos

CHuLoSoY · #19 (**permalink**) 03/03/2002, 14:54

Quedaría así:

result.MoveNext

Loop Do

o así:

result.MoveNext

Do Loop

CHuLoSoY · #20 (**permalink**) 03/03/2002, 14:57

Sea cual sea me sigue dando error

Joder macho, que chungo

urjose · #21 (**permalink**) 03/03/2002, 14:59

pregunta:

para que usas un ciclo si estas insertando?

si quieres insertar quita esto

result.MoveNext

Loop

result.Close

y pon esto

Set rs=conexion.execute(TucadenaSQl)

saludos :)

CHuLoSoY · #22 (**permalink**) 03/03/2002, 17:07

Voy a probar.....

CHuLoSoY · #23 (**permalink**) 03/03/2002, 17:07

Voy a probar.....

CHuLoSoY · #24 (**permalink**) 03/03/2002, 17:09

me da este error:

Server.MapPath() error 'ASP 0175 : 80004005'

Disallowed Path Characters

/pensamos/escribir/default.asp, line 197

The '..' characters are not allowed in the Path parameter for the MapPath method.

CHuLoSoY · #25 (**permalink**) 03/03/2002, 17:33

El código que tengo es el siguiente:

<%
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../*****.mdb"))
valorUsuario = Request.form("Usuario")
valorTitulo = Request.form("Titulo")
valorCopete = Request.form("Copete")
valorFecha = Request.form("Fecha")
valorLink = Request.form("Link")
valorDescripcion = Request.form("Descripcion")
consulta="INSERT INTO OPINIONES (Usuario, Titulo, Copete, Fecha, Link, Descripcion) VALUES ("&valorUsuario&","&val orTitulo&","&valorCopete&&qu ot;,"&valorFecha&","&va lorLink&","&valorDescripcion&amp ;")"

Set rs=conexion.execute(consulta)

Set result = Nothing
con.Close
Set con = Nothing
%>

CHuLoSoY · #26 (**permalink**) 03/03/2002, 18:12

Nadie me puede ayudar?????????????????????????

________________________
<a href="http://www.ommadawn.es.vg" target="_top">Ommadawn.es.vg</a> Tu Web de Mike Oldfield[/CODE]

CHuLoSoY · #27 (**permalink**) 03/03/2002, 18:12

Nadie me puede ayudar?????????????????????????

________________________
<a href="http://www.ommadawn.es.vg" target="_top">Ommadawn.es.vg</a> Tu Web de Mike Oldfield[/CODE]

urjose · #28 (**permalink**) 03/03/2002, 23:23

el problema esta en la linea que no nos pones
Server.MapPath("../*****.mdb"))

ya que te dice que no se aceptan '

saludos

rodvilleda · #29 (**permalink**) 04/03/2002, 10:29

oye, tengo entendido que brinkster no permite usar los ../.. para la ruta de la base de datos. Ahi te dan la forma en que debes realizar la conexión.

CHuLoSoY · #30 (**permalink**) 04/03/2002, 13:23

Pues no veo por ningún sitio cómo poner la ruta de la base de datos, tendré que poner la url entera?

________________________
<a href="http://www.ommadawn.es.vg" target="_top">Ommadawn.es.vg</a> Tu Web de Mike Oldfield[/CODE]