Consulta sencilla Ejecucion Imposible?

[Eutheola]

Hola amigos hace unos dias formule la siguiente pregunta sobre una consulta a una BD aunque recibi colaboración de algunos amigos no ha sido posible realizar algo que seguramente es muy facil. Espero que algun experto del ASP me colabore ya que estoy por pensar que es imposible.

ver http://www.forosdelweb.com/mensaje.asp?id=92868

Gracias

[dwaks]

hey amigo trate de entrar a esa direccion que pusiste a ver que pasa con tu pregunta y no pude, no me dejo, aparece error ,, verifica la direccion a ver si puedo ayudarte

[Juansan]

en tu ejemplo, donde dice...
Set rs = Ob_Conn.Execute ("SELECT * FROM Dates WHERE DNI='" & request("u_id") & "'"),
si es un DNI, se supone que es un campo numerico por lo que deberia quedarte...
Set rs = Ob_Conn.Execute ("SELECT * FROM Dates WHERE DNI=" & request("u_id") & "")

En principio proba con ese cambio dado que no veo nada mas raro.

Nota. Si trabajas con campos numericos, no utilices comillas simples, si son textos, si usalas, y si son fechas, usa # #.

Saludos

[Eutheola]

Hola dwaks para evitar errores he colocado el codigo y la base de datos es esta URL:
<a href='ir.asp?http:// www16.brinkster.com/8319/BD.html' target='_blank'>http:// www16.brinkster.com/8319/BD.html...</a>
Para que sea mas facil la revision y si fuera posible probarla en tu PC.
Gracias

[Eutheola]

DISCULPEN LA ANTERIOR URL NO FUNCIONA ES ESTA:

<a href='ir.asp?http://www16.brinkster.com/8319/BD.html' target='_blank'>http://www16.brinkster.com/8319/BD.html...</a>

gracias

[akela]

Hola:

estube revisando tu codigo, y el error que le encontre es muy sencillo, pero tienes que poner mucha atención con él.

tu haces esto:
Set rs = Ob_Conn.Execute (&quot;SELECT * FROM Dates WHERE DNI='&quot; &amp; request(&quot;u_id&quot;) &amp; &quot;' &quot;) %&gt;

al poner el dato entre comillas simples le estás diciendo que tiene que buscar un dato de tipo &quot;cadena&quot;

y tu declaraste el campo DNI como numérico.

quitale las comillas sencillas y verás que anda.

Set rs = Ob_Conn.Execute (&quot;SELECT * FROM Dates WHERE DNI=&quot; &amp; request(&quot;u_id&quot;) &amp; &quot; &quot;) %&gt;

asi debe quedarte.

saludos.


Akela:
nota a los más sabios. :-p
no hay que saber mucho. hay que saber observar.

[dwaks]

bueno aqui los amigos tienen razón , el problema va a estar en que tienes en dni entre comillas dobles y no deberian estar así. suerte.

[Eutheola]

Gracias amigos pero ya casi me funciona, ahora aunque me salen los campos bien, encima de la tabla sale este error.

Error de Microsoft VBScript en tiempo de ejecución error '800a01a8'
Se requiere un objeto: ''

/Agro/EjBD1link.asp, line 25 la cual es la que dice &lt;% Ob_RS.MoveNext.

Todo el codigo de esta pagina es.

&lt;HTML&gt;
&lt;TITLE&gt; Ejemplo sencillo de BD &lt;/TITLE&gt;
&lt;BODY&gt;
&lt;!-- #INCLUDE File=&quot;ADOVBS.inc&quot; --&gt;
&lt;H3&gt;Datos Personales&lt;/H3&gt;

&lt;% u_id=request.querystring(&quot;u_id&quot;)
Set Ob_Conn=Server.CreateObject(&quot;ADODB.Connection &quot;)
Ob_Conn.Open &quot;EjemploBD&quot;
Set rs = Ob_Conn.Execute (&quot;SELECT * FROM Dates WHERE DNI=&quot; &amp; request(&quot;u_id&quot;) &amp; &quot;&quot;) %&gt;

&lt;CENTER&gt;
&lt;TABLE BORDER=0 bgcolor=&quot;#cccc99&quot;&gt;
&lt;TR&gt;
&lt;TH&gt; D.N.I. &lt;/TH&gt;
&lt;TH&gt; EDAD &lt;/TH&gt;
&lt;TH&gt; CIUDAD &lt;/TH&gt;
&lt;TH&gt; GENERO &lt;/TH&gt;
&lt;TR&gt;

&lt;TD&gt; &lt;%= rs(&quot;DNI&quot;) %&gt; &lt;/TD&gt;
&lt;TD&gt; &lt;%= rs(&quot;Edad&quot;) %&gt; &lt;/TD&gt;
&lt;TD&gt; &lt;%= rs(&quot;Ciudad&quot;) %&gt; &lt;/TD&gt;
&lt;TD&gt; &lt;%= rs(&quot;Genero&quot;) %&gt; &lt;/TD&gt;
&lt;% Ob_RS.MoveNext

Ob_RS.Close
Ob_Conn.Close %&gt;
&lt;/TR&gt;
&lt;/TABLE&gt;
&lt;/CENTER&gt;
&lt;/BODY&gt;
&lt;/HTML&gt;

Le agradezco la ayuda.

[Juansan]

el objeto se llama Rs dado que pusiste Set Rs=... por lo que en lugar de poner Ob_RS.MoveNext debes poner rs.MoveNext y no olvides el loop despues del rs.movenext.

Saludos

[Eutheola]

coloque el LOOP pero me sale este error, ya no me realiza la consulta:

Error de compilación de Microsoft VBScript error '800a040e'

'Loop' sin 'Do'

/Agro/EjBD1link.asp, line 26

LOOP
^

Que pasaria?

[AlZuwaga]

Bueno, fijate que el objeto recordset se llama rs (Set rs = Ob_Conn.Execute...)
Siempre que hagas referencia a él debe ser con ese nombre definido en el Set

por lo que tu código quedaría así (solo pongo las líneas que modifico):

Código:

<% rs.MoveNext '(*)  

rs.Close
Ob_Conn.Close %>

Pero igual creo que te va a dar un error en la línea del movenext (*) . Supuestamente en tu consulta estás trayendo sólo un registro (no creo que haya mas de un registro con el mismo DNI)... entonces ¿a donde se movería con un movenext?.

Así que quitá el movenext

[Juansan]

tiene razon el sistema te falta

do while not rs.eof


&lt;TD&gt; &lt;%= rs(&quot;DNI&quot;) %&gt; &lt;/TD&gt;
&lt;TD&gt; &lt;%= rs(&quot;Edad&quot;) %&gt; &lt;/TD&gt;
&lt;TD&gt; &lt;%= rs(&quot;Ciudad&quot;) %&gt; &lt;/TD&gt;
&lt;TD&gt; &lt;%= rs(&quot;Genero&quot;) %&gt; &lt;/TD&gt;
&lt;% Ob_RS.MoveNext
Loop
Ob_RS.Close
Ob_Conn.Close %&gt;

Saludos

[AlZuwaga]

Bueno, el código final quedaría así... creo que con estas modificaciones andaría lo más bien:

Código:

<HTML>
<TITLE> Ejemplo sencillo de BD </TITLE>
<BODY> 
<!-- #INCLUDE File="ADOVBS.inc" -->
<H3>Datos Personales</H3>

<% u_id=request.querystring("u_id")
Set Ob_Conn=Server.CreateObject("ADODB.Connection")
Ob_Conn.Open "EjemploBD"
Set rs = Ob_Conn.Execute ("SELECT * FROM Dates WHERE DNI=" & request("u_id") & "") %>

<CENTER>
<TABLE BORDER=0 bgcolor="#cccc99">
<TR>
<TH> D.N.I. </TH>
<TH> EDAD </TH>
<TH> CIUDAD </TH>
<TH> GENERO </TH>

<% Do while not rs.eof %>  

<TR>

<TD> <%= rs("DNI") %> </TD>
<TD> <%= rs("Edad") %> </TD>
<TD> <%= rs("Ciudad") %> </TD>
<TD> <%= rs("Genero") %> </TD>
</TR>
<%
RS.MoveNext
loop  

RS.Close
Ob_Conn.Close
%>
</TABLE>
</CENTER>
</BODY>
</HTML>

te marco en negritas el bucle, pero repito que creo que no hace falta ya que es solamente un registro.

saludos

[Eutheola]

PERFECTO! gracias al fin lo logre. Espero tener mas dudas solamente para poder contar con colaboradores tan acertados y oportunos como uds.
Gracias ;)