Problemas con una consulta

canela2 · #1 (**permalink**) 19/09/2006, 11:41

Hola a tod@s.
Vereis tengo que hacer algo como esto:
Alava
pueblo1
pueblo2....
Albacete
pueblo1
pueblo2 ...
.......

Tanto las provincias como los pueblos los saco de una base de datos.
Tengo este codigo, pero no me funciona, me da el siguiente erro:

Error de Microsoft VBScript en tiempo de ejecución error '800a01a8'

Se requiere un objeto: ''

/es/provincia_pueblo.asp, línea 61

El codigo es el siguiente:
<%
'/***********************/'listado provincias de España
sql = "select id_region,region from data_regiones where id_pais=201 order by region"
o_rs1.Open sql
do while not (o_rs1.EoF or o_rs1.BoF)
region = o_rs1("region")%>
<%=region%><br>

<%'/********************************************** %>

<%
sql = "select id_pueblo,poblacion from data_poblaciones inner join data_regiones on data_poblaciones.id_provincia=data_regiones.id_reg ion where id_pais = 201 and id_region LIKE '"&id_region&"'"
o_rs.Open SQL, o_conn
do while not (o_rs.EoF or o_rs.BoF)
poblacion= o_rs.Fields("poblacion")%>
<%=poblacion%>
<%o_rs.moveNext
Loop
o_rs.close

%>
<%'/***********************************************%>

<%
o_rs1.moveNext
Loop
o_rs1.Close %>

Alguien me puede ayudar? Gracias por adelantado.

FiNo · #2 (**permalink**) 19/09/2006, 13:30

Cual es la linea 61?

Myakire · #3 (**permalink**) 19/09/2006, 13:31

/es/provincia_pueblo.asp, línea 61

¿cual es la linea 61?

Te falta instanciar un objeto

canela2 · #4 (**permalink**) 20/09/2006, 10:00

Hola a todo el mundo.
A ver si me podeis ayudar.
Tengo las siguientes tablas
Data_regiones Data_poblaciones
Id_region id_pueblo
Region poblacion
Id_pais id_region

Tengo que escribir algo como esto
region1
poblacion1
poblacion2
......
region2
poblacion1
poblacion2...
.....

Como tengo que hacer la consulta y escribir en asp? Tengo lo siguiente pero no me funciona, me sale la primera region y despues todos los pueblos seguidos sin ponerme el nombre de la segunda region.

sql = "select data_poblaciones.id_pueblo,data_poblaciones.poblac ion, data_regiones.region from data_poblaciones left join data_regiones on data_regiones.id_region=data_poblaciones.id_region where id_pais = 201 "
o_rs.Open SQL, o_conn
do while not (o_rs.EoF or o_rs.BoF)
region = o_rs.Fields("region")%>
<%=region%><br>
<% do while not (o_rs.EoF or o_rs.BoF)
poblacion= o_rs("poblacion")%>
<%=poblacion%>
<%o_rs.moveNext
Loop
o_rs.moveNext
Loop
o_rs.close

%>

JuanRAPerez · #5 (**permalink**) 20/09/2006, 10:14

no respondistes en este otro post

te van a ayudar :)

http://www.forosdelweb.com/showthread.php?t=427152

canela2 · #6 (**permalink**) 20/09/2006, 23:24

No he respondido al mensaje porque he ido cambiando el codigo y no recuerdo cual es la linea 61, pero sigo con el problema de no saber como hacer la consulta y poder ver el resultado.
Pongo de nuevo las tablas de la BD porque no se ve muy bien en el anterior post.

Data_regiones
Id_region
Region
Id_pais

Data_poblaciones
id_pueblo
poblacion
Id_region

Por favor si alguien me puede ayudar, muchas gracias.

Myakire · #7 (**permalink**) 21/09/2006, 07:35

jejeje, haz cambiado el código, pero incluso en el block de notas puedes irte a cierta linea en particular.
Córrelo y ve que linea ahora marca error y postea las lineas involucradas.

canela2 · #8 (**permalink**) 21/09/2006, 08:07

Gracias por responder Myakire pero es que al cambiar el codigo he solucionado ese problema no se como pero ahora tengo otro.
El caso es que como digo necesito escribir algo como esto

region1
poblacion1
poblacion2
......
region2
poblacion1
poblacion2...
.....

y lo que me escribe ahora es muchas veces la region1 y no me escribe las poblaciones.
La verdad tengo un lio que no se como hacer.
Como veis soy muy una novata en esto.

Myakire · #9 (**permalink**) 21/09/2006, 10:16

¿y ahora como esta el código que hace eso? ¿o es el mismo de arriba?

JuanRAPerez · #10 (**permalink**) 21/09/2006, 13:22

mi idea es:
Tus tablas

Cita:

Data_regiones
Id_region
Region
Id_pais

Data_poblaciones
id_pueblo
poblacion
Id_region

haces tus consulta

Cita:

sql "select * from Data_regiones order by Id_region ASC"
Set RS = oConnPrincipal.Execute(SQL)
if RS.bof and RS.eof then
'no hacemos nada
else
'hacemos algo
Do While Not RS.EOF
'imprimimos el nombre de la ragion
id_region = RS("id_region")
sql2 "select * from Data_poblaciones where id_region = "& id_region &" order by Id_pueblo ASC"
Set RS2 = oConnPrincipal.Execute(SQL2)
if RS2.bof and RS2.eof then
'no hacemos nada
else
'empezamos a mostrar
Do While Not RS2.EOF
'imrpimimos nombres de los pueblos
RS2.MoveNext
Loop
end if
RS2.Close
set RS2 = nothing
RS.MoveNext
Loop
end if
RS.Close
set RS = nothing

AlZuwaga · #11 (**permalink**) 21/09/2006, 16:12

mi idea sería hacer un join de las dos tablas y mediante un "flag" controlar si el campo Region "se debe dibujar o no" dependiendo de si su contenido es igual al de la anterior pasada del bucle.

JuanRAPerez · #12 (**permalink**) 22/09/2006, 10:57

y al final se perdio canela
jijijiij

canela2 · #13 (**permalink**) 24/09/2006, 01:03

Perdonad por no poder contestar antes, pero no habia podido probar lo que me habias comentado.
He probado lo de JuanRaperez y me sale este error

Álava

Error de Microsoft VBScript en tiempo de ejecución error '800a01a8'

Se requiere un objeto: ''

Esto me sale al ejecutar el segundo select.
Sabeis por qué no puedo ejecutar el segundo select dentro del primero?

gracias por vuestras molestias.