Por Ke Me Sale Error

mrjhon · #1 (**permalink**) 22/07/2005, 17:27

HOLA BUENAS

MI DUDA ES KE ESTE CODIGO LO EDITE DE UN TUTURIAL Y ES EL SIGUIENTE

<%
Dim BDD ' variable que se encargara de la base de datos
Dim TABLA ' variable que se encarga de la tabla

'creamos los objetos que manejan la base de datos y la tabla
Set BDD = Server.CreateObject("ADODB.Connection")
Set TABLA = Server.CreateObject("ADODB.Recordset")

'abrimos la base de datos
BDD.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("librovisitas.mdb"))
%>

SQL = "SELECT * FROM formulario WHERE id = 'DECS'"

<%

TABLA.Open SQL, BDD ' hacemos la consulta

'ahora recorremos toda la tabla y mostramoslos datos
While NOT TABLA.EOF 'recorre la tabla hasta que EOF sea verdadero
Response.Write "nombre:" & TABLA("nombre") & " "
Response.Write "apellidos:" & TABLA("apellidos") & " "
Response.Write "empresa:" & TABLA("empresa") & " "
Response.Write "telefono:" & TABLA("telefono") & " "
Response.Write "mail:" & TABLA("mail") & " "
Response.Write "comentario:" & TABLA("comentario") & " "
Wend

'cerramos todo y liberamos los objetos
TABLA.Close
BDD.Close

Set BDD = Nothing
Set TABLA = Nothing
%>

BUENO YA ESTA EDITADO PARA KE MUESTRE LO QUE YO DESEO PERO ME SALE EL SIGUIENTE ERROR EN ESTA LINEA

TABLA.Open SQL, BDD ' hacemos la consulta

PORKE???

ME AYUDAN PORFAVOR ..GRACIAS

trasgukabi · #2 (**permalink**) 22/07/2005, 17:39

y que error te sale?

mrjhon · #3 (**permalink**) 22/07/2005, 17:42

HOLA TIO

MIRA ESTO ME SALE
SQL = "SELECT * FROM formulario WHERE id = 'DECS'"
ADODB.Recordset error '800a0bb9'

La aplicación está usando argumentos incorrectos, o están fuera del intervalo permitido, o entran en conflicto con otros.

/Marketing2/muestra_temas.asp, line 25

Y LA LINEA 25 ES

TABLA.Open SQL, BDD ' hacemos la consulta

???

sjam7 · #4 (**permalink**) 22/07/2005, 17:43

una vez mas se ve que no se leen las faq's
http://www.forosdelweb.com/showpost....09&postcount=2

mrjhon · #5 (**permalink**) 22/07/2005, 17:46

Lo Siento Pero Esa Faq´s No Dice Nada De Lo Ke Nesesito

trasgukabi · #6 (**permalink**) 22/07/2005, 17:50

pues lo único que se me ocurre es que ya tengas otro recordset llamado TABLA abierto. No sé, igual se me ha escapado algo.

PD. sjam se refería a ésto:
14.- No se cual es mi error, me ayudan?
Pos si nos posteas el error mejor.

El_Metallick · #7 (**permalink**) 22/07/2005, 19:15

tengo una duda.... SQL = "SELECT * FROM formulario WHERE id = 'DECS'" el valor DECS es valido para un campo id??? en teoria el campo id es autonumerio o numerico... pero DECS???? eso saludos

gigio_wt · #8 (**permalink**) 22/07/2005, 19:28

me surgen algunas dudas...
- de donde sale DECS? lo estas recuperando en algun lado?
- DECS que formato tiene? numerico? texto? al menos en tu codigo lo estas llamando como texto (creo)
eso... y concordando con el mensaje anterior... consulta las faq's...

mariano_donati · #9 (**permalink**) 22/07/2005, 20:18

Fijate en esta parte:

Set BDD = Server.CreateObject("ADODB.Connection")
Set TABLA = Server.CreateObject("ADODB.Recordset")

'abrimos la base de datos
BDD.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("librovisitas.mdb"))
%> ' Cerras el código ASP

SQL = "SELECT * FROM formulario WHERE id = 'DECS'" ' Esto seguramente te aparece en la página

<% ' Abrís de nuevo para escribir código asp

TABLA.Open SQL, BDD ' hacemos la consulta 'Tratas de abrir un RS con una sentencia SQL inexistente, ya que no existe ninguna variable SQL, porque no la metiste dentro de <% %>

Lo otro es en esta parte:

While NOT TABLA.EOF 'recorre la tabla hasta que EOF sea verdadero
Response.Write "nombre:" & TABLA("nombre") & " "
Response.Write "apellidos:" & TABLA("apellidos") & " "
Response.Write "empresa:" & TABLA("empresa") & " "
Response.Write "telefono:" & TABLA("telefono") & " "
Response.Write "mail:" & TABLA("mail") & " "
Response.Write "comentario:" & TABLA("comentario") & " "
Wend

Cuando se ejecute esa parte del código, va a entrar en un bucle infinito, ya que no le estás diciendo al objeto RecordSet que se mueva un registro siguiente por cada iteración. Agrega esta linea entre el último Response.Write y el Wend: TABLA.MoveNext.
Después comenta haber que tal te fue.
Saludos!.

El_Metallick · #10 (**permalink**) 23/07/2005, 04:31

buena punto mariano.... no me percate de ese detalle..... :P... saludos

mrjhon · #11 (**permalink**) 23/07/2005, 09:31

HOLA AMIGOS BUENO LA VERDAD ES KE ENCONTRE OTRA FORMA DE HASERLO AUNKE CASI CON LAS MMISMAS CORDENADAS.

MIREN AHY LES DEJO EL CODIGO PARA KE LO MIREN Y ME DIGAN SI ALGUN CODIGO SOBRE....

GRACIAS POR LA AYUDA Y POR LA PAZ CIENCIA JEJE ...

<%
Dim BDD ' variable que se encargara de la base de datos
Dim TABLA ' variable que se encarga de la tabla

'creamos los objetos que manejan la base de datos y la tabla
Set BDD = Server.CreateObject("ADODB.Connection")
Set TABLA = Server.CreateObject("ADODB.Recordset")

'abrimos la base de datos
BDD.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("librovisitas.mdb"))
%>

<%

TABLA.Open "formulario", BDD ' hacemos la consulta

'ahora recorremos toda la tabla y mostramoslos datos
While NOT TABLA.EOF 'recorre la tabla hasta que EOF sea verdadero
Response.Write "nombre:" & TABLA("nombre") & " "
Response.Write "apellidos:" & TABLA("apellidos") & " "
Response.Write "empresa:" & TABLA("empresa") & " "
Response.Write "telefono:" & TABLA("telefono") & " "
Response.Write "mail:" & TABLA("mail") & " "
Response.Write "comentario:" & TABLA("comentario") & " "
TABLA.MoveNext
Wend

'cerramos todo y liberamos los objetos
TABLA.Close
BDD.Close

Set BDD = Nothing
Set TABLA = Nothing
%>

mariano_donati · #12 (**permalink**) 23/07/2005, 09:37

Claro, pero el tema ahí es que estás recorriendo toda la tabla. Muchas veces vas a tener que sacar solo algunos registros de la tabla, y para eso si o si necesitarás una sentencia SQL.
Me alegro que hayas encontrado la solución.
Saludos!.

mrjhon · #13 (**permalink**) 23/07/2005, 09:47

SI AMIGO DONATI TENES RAZON PERO MIRE SI LA HAGO COMO USTED ME DICE TAMPOCO ME DA ME SALE ERROR EN ESTA
LINEA <% TABLA.Open SQL, BDD ' hacemos la consulta %>

Microsoft JET Database Engine error '80040e07'

No coinciden los tipos de datos en la expresión de criterios.

/Marketing2/muestra_temas.asp, line 27

_________________________________________

ESTE ES EL CODIGO CON EL KE TRABAJO PARA HASER LA CONSULTA DEFINIENDO, EN ESTE CASO KE ME LOS MUESTRE LOS DATOS DE FORMA DECS....

mrjhon · #14 (**permalink**) 23/07/2005, 09:48

<%
Dim BDD ' variable que se encargara de la base de datos
Dim TABLA ' variable que se encarga de la tabla
Dim SQL 'variable que contendra la consulta SQL

'creamos los objetos que manejan la base de datos y la tabla
Set BDD = Server.CreateObject("ADODB.Connection")
Set TABLA = Server.CreateObject("ADODB.Recordset")

'abrimos la base de datos
BDD.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("librovisitas.mdb"))
%>

<%
SQL = "SELECT * FROM formulario WHERE id = 'DECS'"
%>

<% TABLA.Open SQL, BDD ' hacemos la consulta %>

<%
'ahora recorremos toda la tabla y mostramoslos datos
While NOT TABLA.EOF 'recorre la tabla hasta que EOF sea verdadero
Response.Write "nombre:" & TABLA("nombre") & " "
Response.Write "apellidos:" & TABLA("apellidos") & " "
Response.Write "empresa:" & TABLA("empresa") & " "
Response.Write "telefono:" & TABLA("telefono") & " "
Response.Write "mail:" & TABLA("mail") & " "
Response.Write "comentario:" & TABLA("comentario") & " "
TABLA.MoveNext
Wend

'cerramos todo y liberamos los objetos
TABLA.Close
BDD.Close

Set BDD = Nothing
Set TABLA = Nothing
%>

mrjhon · #15 (**permalink**) 23/07/2005, 09:53

LISTO YA ESTA RESUELTO ERA SOLO KE LA LINEA
<%
SQL = "SELECT * FROM formulario WHERE id = 'DECS'"
%>

NO ERA BALIDA POR KE ID NO ES COMPATIBLE CON DECS... ESO ERA LO KE DECIA ELMETALLICK

TONSES PUSE ASI
<%
SQL = "SELECT * FROM formulario WHERE nombre = 'jhon'"
%>

Y SI ME SIRVIO BUSCO LOS NOMBRES KE EMPESARAN CON JHON
BUENO GRACIAS POR LA AYUDA DE NUEVO HASTA PRONTO..

sjam7 · #16 (**permalink**) 23/07/2005, 10:15

si DECS es numerico y el ID tambien simplemente quita las comillas ' simple

mrjhon · #17 (**permalink**) 23/07/2005, 11:26

BUENO GRACIAS COMO HAGO PARA KE EL FORMULARIO ME RECOJA LA FECHA AUTOMATICAMENTE Y ME LA GUARDE EN LA BASE DE DATOS

gracias

trasgukabi · #18 (**permalink**) 24/07/2005, 01:38

date()
y mírate a ver la tecla BLOQ. MAYUS. que creo que se te ha quedado fija y no te has dado cuenta.

El_Metallick · #19 (**permalink**) 24/07/2005, 08:54

jajajajajaj a trasgu le molestan LAS MAYUCULAS... :P jajajjajajajajaajaj (broma) saludos

mrjhon · #20 (**permalink**) 24/07/2005, 09:27

NO trasgukabi ES KE ME GUSTA ESCRIBIR EN MAYUSCULA JJEEJJE `
PERO SOLO EN LOS FOROS JEJEJE...