Consulta que devuleve un registro duplicado

[UP-CREATIVE]

Hola amigos,

Estoy realizando una consulta SQL a una base de datos MS-ACCESS, es una consulta simple, donde agrupo los registros por un campo.

SQL="SELECT Zona1 FROM Web GROUP BY Zona1"

El caso es que cuando me devuelve los registros (5 resultados) 2 de ellos vienen duplicados de este modo:

RESULTADO1
RESULTADO2 RESULTADO2
RESULTADO3
RESULTADO4
RESULTADO5 RESULTADO5

He realizado esto cientos de veces y nunca me habia pasado antes.

He comprobado la base de datos en local y este campo no aparece duplicado.

¿De donde puede estar surgiendo este duplicado?

[FiNo]

Podrias utilizar select distinct para obtener los valores unicos, y sí haces un select de Zona1 donde Zona1 = resultado repetido, para que veas si en realidad existen repetidos.

[UP-CREATIVE]

Hola Fino, si hago un select distinct el resultado es exactamente el mismo.

Puedes entrar en w w w . inversionesmediterraneo . es / demo / y ver el primer desplegable que es donde me está surgiendo el error.

Es muy raro, como dige antes, en la base de datos los registros no están duplicados.

[FiNo]

y el código?

[UP-CREATIVE]

El código que uso para sacar esos resultados es:

<%
Dim oConn, rs, SQL
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath(".\BBDD.mdb")
rs.cachesize=60
SQL="SELECT distinct Zona1 FROM Web"
rs.Open SQL, oConn, 1, 2
%>
<select name="localidad" onChange="cambialocalidad()">
<%if request("localidad")="" then%>
<option selected value=""> -- SELECCIONE LOCALIDAD --</option>
<%else%>
<option value=""> -- SELECCIONE LOCALIDAD --</option>
<%end if%>
<% do while not rs.EOF
if rs("Zona1")<>"" then
if (rs("Zona1")=request("localidad")) then%>
<option value="<%=rs("Zona1")%>" selected><%=rs("Zona1")%></option>
<%else%>
<option value="<%=rs("Zona1")%>"><%=rs("Zona1")%></option>
<%end if
end if
rs.movenext
loop
rs.Close%>

Ese es todo el código que hay.

[FiNo]

Puedes hacer eso para ver que datos te aparecen
SQL="SELECT Zona1 FROM Web"
do while not rs.EOF
Response.Write(rs("Zona1")&"<br>"
rs.movenext
loop

[UP-CREATIVE]

Ya tienhes incluido el código, pero la dirección es
http : //www . inversionesmediterraneo . es/ demo/ indexV2.asp

Como verás saca los datos igual que si no se agruparan, con el duplicado.

Yo creo que puede ser un error de ms-access pero no entiendo porque si veo en local la base de datos con la aplicación de microsoft, esos campos aparecen bien escritos y al hacer la select con ASP aparecen duplicados, y solo esos.

[FiNo]

Me parece que el problema esta en como están almacenados los datos.

[UP-CREATIVE]

Te refieres al tipo de dato?

Es un tipo TEXTO de Access normal y corriente.

Si lo que a mi me mosquea es que para el valor ALMERIA no lo duplique y en cambio para el valor CINTURON saque "CINTURON CINTURON"

[UP-CREATIVE]

Alguien puede aydarme?

Sigo sin saber porque me devuelve datos repetidos.

Un saludo.

[daniel00]

Que tal.

De acuerdo a la petición de FiNo y que tu haces en la página:

http://www.inversionesmediterraneo.es/demo/indexV2.asp

No hay error alguno, el valor del campo Zona1 de la tabla Web.

Hay registros que tienen los valores:


CINTURON CINTURON
OTRAS ZONAS OTRAS ZONAS


Que hasta donde entendí, son los valores que tu dices que se "repiten", si corriges los registros que tiene dichos valores, todo saldra "bién".

Esta corrección la puedes hacer de la siguiente manera.

Código:

UPDATE Web SET Zona1 = 'CINTURON' Where zona1 = 'CINTURON CINURON'

-- Y

UPDATE Web SET Zona1 = ''OTRAS ZONAS' Where zona1 = 'OTRAS ZONAS OTRAS ZONAS'

Saludos y suerte!

[UP-CREATIVE]

Hola a todos, como he puesto en el título de mi mensaje, debe ser un error de access, ya que no encuentra ni 'CINTURON', ni 'CINTURON CINTURON', ni 'OTRAS ZONAS, ni 'OTRAS ZONAS OTRAS ZONAS'.

He intentado hacer una select como esta que os adjunto y no me devuelve resultados con ninguna de las anteriores opciones, en cambio si pongo 'ALMERIA' funciona perfectamente, con lo que no me queda otra que decir que el error es de ACCESS.

SQL="SELECT Zona1 FROM Web WHERE Zona1 LIKE 'CINTURON CINTURON'"
rs.Open SQL, oConn, 1, 2
Response.Write("SELECT Zona1 FROM Web WHERE Zona1 LIKE 'CINTURON CINTURON': <br>")
do while not rs.EOF
Response.Write(rs("Zona1")&"<br>")
rs.movenext
loop
rs.Close

Esto me va a volver loco...

Un saludo.

[daniel00]

Que tal, buen día.

Podrías por favor publicar en algun lado tu archivo de access ( con la tabla que mencionas ), para descargarlo y ver con más detalle que es lo que pasa.



Saludos.

[UP-CREATIVE]

Hola, en w w w. inversionesmediterraneo . es / BBDD.mdb puedes descargarla, verás como en la tabla Web, columan Zona1 los valores muestran CINTURON y OTRAS ZONAS, sin duplicar...

[AlZuwaga]

Iniciado por UP-CREATIVE

Hola, en w w w. inversionesmediterraneo . es / BBDD.mdb puedes descargarla, verás como en la tabla Web, columan Zona1 los valores muestran CINTURON y OTRAS ZONAS, sin duplicar...

Abrí la tabla WEB en el MS Access y con el puntero del mouse agrandá el alto de una de las filas:

[UP-CREATIVE]

Pues y es verdad, quiero pedir perdon por mi incompetencia. La verdad es que fué lo primero que miré pero solo agrandé la celda de ancho, no de alto, por eso no vi que el duplicado se encontraba bajo el otro valor.

MUCHAS GRACIAS POR SU AYUDA.

UN SALUDO.

[AlZuwaga]

nah, no te preocupes... suele ocurrir :)