Problemas con un SQL...

ciisteado · #1 (**permalink**) 25/01/2008, 18:27

Hola a todos:

Tengo el siguiente código...

Código HTML:

<%

set rs=server.CreateObject("adodb.recordset")
set rs2=server.CreateObject("adodb.recordset")
sql="SELECT nombre,id FROM clientes ORDER BY id ASC"
rs.open sql, conexion
do while not rs.EOF
	sql="SELECT nomcte,rfc,numfact FROM ventas WHERE nomcte like '" &rs("nombre")& "'" 
	rs2.open sql, conexion
	do while not rs2.EOF
		response.write("ID:" & rs("id")& " " & "NOMBRE:" & rs2("nomcte") &" " & "RFC:" & rs2("rfc") &" " & "FACTURA:" & rs2("numfact") & "<br>")
		rs2.movenext
	loop
	rs2.close
rs.movenext
loop
rs.close

%>

Lo que hace es extraerme los siguientes datos:

Código HTML:

ID:4 NOMBRE:Superparangaricutirimicuaro RFC:sd5156165 FACTURA:111222333
ID:4 NOMBRE:Superparangaricutirimicuaro RFC:sd5156165 FACTURA:111222334
ID:4 NOMBRE:Superparangaricutirimicuaro RFC:sd5156165 FACTURA:111222333
ID:4 NOMBRE:Superparangaricutirimicuaro RFC:sd5156165 FACTURA:111222334
ID:4 NOMBRE:Superparangaricutirimicuaro RFC:sd5156165 FACTURA:111222333
ID:4 NOMBRE:Superparangaricutirimicuaro RFC:sd5156165 FACTURA:111222334
ID:4 NOMBRE:Superparangaricutirimicuaro RFC:sd5156165 FACTURA:111222333
ID:4 NOMBRE:Superparangaricutirimicuaro RFC:sd5156165 FACTURA:111222334

Ahora el problema es que quiero que me muestre los datos de esta forma:

Código HTML:

ID:4 NOMBRE:Superparangaricutirimicuaro RFC:sd5156165 
FACTURA:111222333
FACTURA:111222334

y asi con cualquier cliente que encuentre...

¿¿..ALGUNA SUGERENCIA..??

Se los agradeceré enormemente...

Saludos...

Shiryu_Libra · #2 (**permalink**) 26/01/2008, 00:19

, solo es cuestion de que saques los datos que ocupas del ciclo, de esta forma

Código HTML:

response.write("ID:" & rs("id")& " " & "NOMBRE:" & rs2("nomcte") &" " & "RFC:" & rs2("rfc") &"<br/> "
	do while not rs2.EOF
		response.write "FACTURA:" & rs2("numfact") & "<br>")
		rs2.movenext
	loop

ciisteado · #3 (**permalink**) 26/01/2008, 11:03

Hola Shiryu:

Ya hice el cambio que me sugeriste pero, al ejecutar la consulta, me marca que ocurre una excepción en la parte del response...

Código HTML:

response.write("ID:" & rs("id")& " " & "NOMBRE:" & rs2("nomcte") &" " & "RFC:" & rs2("rfc") & "<br>")

Te pongo todo el código para que puedas ver en donde esta la falla...

Código HTML:

<%
set rs=server.CreateObject("adodb.recordset")
set rs2=server.CreateObject("adodb.recordset")
sql="SELECT nombre,id FROM clientes ORDER BY id ASC"
rs.open sql, conexion
do while not rs.EOF
	sql="SELECT nomcte,rfc,numfact FROM ventas WHERE nomcte like '" &rs("nombre")& "'" 
	rs2.open sql, conexion
	response.write("ID:" & rs("id")& " " & "NOMBRE:" & rs2("nomcte") &" " & "RFC:" & rs2("rfc") & "<br>")
	do while not rs2.EOF
		response.write("FACTURA:" & rs2("numfact") & "<br>")
		rs2.movenext
	loop
	rs2.close
rs.movenext
loop
rs.close
%>

Gracias por la ayuda...

Saludos...

Adler · #4 (**permalink**) 26/01/2008, 14:39

Prueba ahora

Código HTML:

<%
set rs=server.CreateObject("adodb.recordset")
set rs2=server.CreateObject("adodb.recordset")
sql="SELECT nombre,id FROM clientes ORDER BY id ASC"
rs.open sql, conexion
do while not rs.EOF
    sql="SELECT nomcte,rfc,numfact FROM ventas WHERE nomcte like '" &rs("nombre")& "'" 
    rs2.open sql, conexion
    response.write("ID:" & rs("id")&)
    do while not rs2.EOF
        response.write("NOMBRE:" & rs2("nomcte") &" " & "RFC:" & rs2("rfc") & " " & "FACTURA:" & rs2("numfact") & "<br>")
        rs2.movenext
    loop
    rs2.close
rs.movenext
loop
rs.close
%>

Suerte

Shiryu_Libra · #5 (**permalink**) 26/01/2008, 15:18

Cita:

Iniciado por ciisteado

Hola Shiryu:

Ya hice el cambio que me sugeriste pero, al ejecutar la consulta, me marca que ocurre una excepción en la parte del response...

Código HTML:

response.write("ID:" & rs("id")& " " & "NOMBRE:" & rs2("nomcte") &" " & "RFC:" & rs2("rfc") & "<br>")

Te pongo todo el código para que puedas ver en donde esta la falla...

Código HTML:

<%
set rs=server.CreateObject("adodb.recordset")
set rs2=server.CreateObject("adodb.recordset")
sql="SELECT nombre,id FROM clientes ORDER BY id ASC"
rs.open sql, conexion
do while not rs.EOF
    sql="SELECT nomcte,rfc,numfact FROM ventas WHERE nomcte like '" &rs("nombre")& "'" 
    rs2.open sql, conexion
    response.write("ID:" & rs("id")& " " & "NOMBRE:" & rs2("nomcte") &" " & "RFC:" & rs2("rfc") & "<br>")
    do while not rs2.EOF
        response.write("FACTURA:" & rs2("numfact") & "<br>")
        rs2.movenext
    loop
    rs2.close
rs.movenext
loop
rs.close
%>

Gracias por la ayuda...

Saludos...

error de dedologia, es que falto el IF

recapitulemos

Cita:

Código HTML:

<%
set rs=server.CreateObject("adodb.recordset")
set rs2=server.CreateObject("adodb.recordset")
sql="SELECT nombre,id FROM clientes ORDER BY id ASC"
rs.open sql, conexion
do while not rs.EOF
    sql="SELECT nomcte,rfc,numfact FROM ventas WHERE nomcte like '" &rs("nombre")& "'" 
    rs2.open sql, conexion
    IF RS.EOF=FALSE then
    response.write("ID:" & rs("id")& " " & "NOMBRE:" & rs2("nomcte") &" " & "RFC:" & rs2("rfc") & "<br>")
    do while not rs2.EOF
        response.write("FACTURA:" & rs2("numfact") & "<br>")
        rs2.movenext
    loop
    rs2.close
    else
        response.write ("No se encontraron recibos para este cliente")
    end if
rs.movenext
loop
rs.close
%>

con eso debe bastar

Cita:

Iniciado por Adler

Prueba ahora

Código HTML:

<%
set rs=server.CreateObject("adodb.recordset")
set rs2=server.CreateObject("adodb.recordset")
sql="SELECT nombre,id FROM clientes ORDER BY id ASC"
rs.open sql, conexion
do while not rs.EOF
    sql="SELECT nomcte,rfc,numfact FROM ventas WHERE nomcte like '" &rs("nombre")& "'" 
    rs2.open sql, conexion
    response.write("ID:" & rs("id")&)
    do while not rs2.EOF
        response.write("NOMBRE:" & rs2("nomcte") &" " & "RFC:" & rs2("rfc") & " " & "FACTURA:" & rs2("numfact") & "<br>")
        rs2.movenext
    loop
    rs2.close
rs.movenext
loop
rs.close
%>

Suerte

el codigo que proporcionas es perfecto, con la unica condicion que no se cumple, repetiria en cada vuelta el RFC, NUMCTE, por cada recibo, que es lo que no desea CIISTEADO

hanzo_hattori_mx · #6 (**permalink**) 26/01/2008, 15:38

CIISTEADO, debes preguntar primero si no es el final de la consulta para que no tengas problemas con errores de que no te aparece nada o similares

por lo regular la estructura basica seria algo asi:

Cita:

SQL="consulta"
'ejecucion de tu consulta
set RS=conexion.execute(SQL)
if Err=0 then <--- si no existe error
if RS.EOF=FALSE THEN <---- si no es el final entonces
'despleigas resultados
'con ciclos (DO ó WHILE)
'ejemplo 1
DO WHILE NOT RS.EOF
response.write "resultados"
RS.MOVENEXT
LOOP
'ejemplo2
WHILE RS.:EOF=FALSE
response.write "RESULTADOS"
RS.movenext
WEND
ELSE <--- en dado caso de que no se encontraran coincidencias
response.write "No hay resultados"
end if <-- cerrando el IF interno
else <---- en dado caso de que se encontraran errores
response.write "Error de conexion"
'si tienes una funcion que recopile errores
'aqui es donde pones el nombre de la funcion, y los parametros para saber que fallo
'FuncionErrores (Err.descripcion, SQL, date(now()))
end if <--- cerrando IF de errores

o puedes utilizar 'Getrows

Cita:

SQL="consulta"
set RS=conexion.execute(SQL) <-- ejecucion de tu consulta
if Err=0 then <--- si no existe error
if RS.EOF=FALSE THEN <---- si no es el final entonces
Registros=RS.GetROWS
RS.close
'ahora mostramos los registros
'con un ciclo for
for i=0 to ubound(registros,2)
for j=0 to ubound(registros,1)
response.write " | " & registros(j,i)
next
response.write "<br/>"
next
ELSE <--- en dado caso de que no se encontraran coincidencias
response.write "No hay resultados"
end if <-- cerrando el IF interno
else <---- en dado caso de que se encontraran errores
response.write "Error de conexion"
'si tienes una funcion que recopile errores
'aqui es donde pones el nombre de la funcion, y los parametros para saber que fallo
'FuncionErrores (Err.descripcion, SQL, date(now()))
end if <--- cerrando IF de errores

la ventaja que tiene la segunda parte es que deja libre la base de datos mas rapido y estresas menos tu servidor

Adler · #7 (**permalink**) 27/01/2008, 08:01

¿como va, Shiryu_Libra?

Como siempre tienes razón. Eso me pasa por no saber leer

Shiryu_Libra · #8 (**permalink**) 27/01/2008, 13:32

Adler

que no te ganen las ansias de contestar, todo a su tiempo

Patience My Friend

ciisteado · #9 (**permalink**) 28/01/2008, 12:07

Hola a todos:

Despues de varios intentos el código quedo de esta forma:

Código HTML:

set rs=server.CreateObject("adodb.recordset")
set rs2=server.CreateObject("adodb.recordset")
sql="SELECT nombre,id FROM clientes ORDER BY id ASC"
rs.open sql, conexion
do while not rs.EOF
	sql="SELECT nomcte,rfc,numfact FROM ventas WHERE nomcte like '" &rs("nombre")& "'"
	rs2.open sql, conexion
	i=0
	do while not rs2.EOF
		if i=0 then
			response.write("ID:" & rs("id")& " " & "NOMBRE:" & rs2("nomcte") &" " & "RFC:" & rs2("rfc") & "<br>")
		end if
		response.write("FACTURA:" & rs2("numfact") & "<br>")
		i=i+1
		rs2.movenext
	loop
	rs2.close
rs.movenext
loop
rs.close

Mostrandome este resultado:

Código HTML:

ID:4 NOMBRE:Superparangaricutirimicuaro RFC:sd5156165
FACTURA:111222333
FACTURA:111222334
FACTURA:111222333
FACTURA:111222334
FACTURA:111222333
FACTURA:111222334
FACTURA:111222333
FACTURA:111222334

Y como se darán cuenta me repite los NUMFACT, ese es ahora el problema...

la idea es que me muestre los datos de esta forma:

Código HTML:

ID:4 NOMBRE:Superparangaricutirimicuaro RFC:sd5156165
FACTURA:111222333
FACTURA:111222334

¿¿ALGUNA SUGERENCIA??... y perdon por la ignorancia...

Saludos...

Shiryu_Libra · #10 (**permalink**) 28/01/2008, 12:13

puedes realizar un distinct en tu query

Cita:

sql="SELECT distinct(numfact), nomcte, rfc FROM ventas WHERE nomcte like '" &rs("nombre")& "'"

ciisteado · #11 (**permalink**) 28/01/2008, 12:20

El problema ahora es que NUMFACT es de tipo "text" por lo que me marca el siguiente error:

The text data type cannot be selected as DISTINCT because it is not comparable.

¿Alguna Alternativa?...

Gracias Shiryu-Libra...

ciisteado · #12 (**permalink**) 28/01/2008, 13:41

Hola a todos:

Hola a todos:

Tengo un problema con la siguiente consulta, este es el código que estoy utilizando:

Código HTML:

set rs=server.CreateObject("adodb.recordset")
set rs2=server.CreateObject("adodb.recordset")
sql="SELECT nombre,id FROM clientes ORDER BY id ASC"
rs.open sql, conexion
do while not rs.EOF
	sql="SELECT distinct(numfact),nomcte,rfc FROM ventas WHERE nomcte like '" &rs("nombre")& "'"
	rs2.open sql, conexion
	i=0
	do while not rs2.EOF
		if i=0 then
			response.write("ID:" & rs("id")& " " & "NOMBRE:" & rs2("nomcte") &" " & "RFC:" & rs2("rfc") & "<br>")
		end if
		response.write("FACTURA:" & rs2("numfact") & "<br>")
		i=i+1
		rs2.movenext
	loop
	rs2.close
rs.movenext
loop
rs.close

Mostrandome este resultado:

Código HTML:

ID:4 NOMBRE:Superparangaricutirimicuaro RFC:sd5156165
FACTURA:111222333
FACTURA:111222334
FACTURA:111222333
FACTURA:111222334
FACTURA:111222333
FACTURA:111222334
FACTURA:111222333
FACTURA:111222334

Como se darán cuenta me repite los NUMFACT, ese es el problema...

la idea es que me muestre los datos de esta forma:

Código HTML:

ID:4 NOMBRE:Superparangaricutirimicuaro RFC:sd5156165
FACTURA:111222333
FACTURA:111222334

Ya lo he intentado con un DISTINCT en la sentencia SQL de esta forma:
--------------------------------------------------------------
sql="SELECT distinct(numfact),nomcte,rfc FROM ventas WHERE nomcte like '" &rs("nombre")& "'"
--------------------------------------------------------------

Pero me manda este error por que el campo NUMFACT es de tipo text:
--------------------------------------------------------------
The text data type cannot be selected as DISTINCT because it is not comparable.
--------------------------------------------------------------

¿¿Alguna sugerencia para solucionar este problema,,, instruccion,,, lógica,,, algo que se les ocurra??

Se los agradeceria bastante.

Saludos a todos...

Myakire · #13 (**permalink**) 28/01/2008, 14:06

No se si estamos hablando de SQL ANSI, pero así a golpe de vista la sentencia sería:

sql="SELECT distinct numfact FROM ventas WHERE nomcte like '" &rs("nombre")& "'"

DISTINCT te va a aliminar los duplicados de la lista de selección, no lleva parámetros y no se si el campo nomCte vaya a variar, si no varían, supongo que tanto el RFC como ese campo los podrías sacar de la consulta que haces sobre clientes, y si sí varían, te pueden causar que recibas facturas duplicadas.

Saludos

u_goldman · #14 (**permalink**) 28/01/2008, 14:36

Solo agregar que estás utilizando una consulta like sin comodines, lo cuál puede ocasionar extraños, y repercutir negativamente en el performance de tu aplicación, si como comenta Myakire el nombre no variará y realmente lo que quieres traer son aquellas facturas del cliente X", una consulta = 'nombre' es lo que necesitas.

Ahora, si nos ponemos más exigentes, la relación de las facuras-cliente, debería ser un campo de preferencia numérico, y no un string -el nombre del cliente en este caso.

Saludos