Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Ayuda, registros repetidos
 Foro Bloqueado  Tema Bloqueado


Autor Temas
joxe
Starting Member

España
23 Posts
Mensajes - 20 Jan 2005 :  02:11:22  Ver Perfil  Enviar Email
<%
set oConn=server.createobject("ADODB.connection")

oConn.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.Mappath("Mujeres.mdb"))

set rs = CreateObject("ADODB.Recordset")

rs.Open "mujeres", oConn

do until rs.EOF

response.Write(rs.fields("nif"))
response.Write("<br>")

rs.MoveNext
loop
Set rs = Nothing
oConn.close
Set oConn = Nothing
%>

Tengo este codigo, que me saca todos los nif.
En la base de datos tengo la misma mujer en cinco registros y por supuesto los nif son todos los mismos.
Quiero que de esa mujer me imprima en la pantalla un solo nif, no los 5 iguales ya q los demas nif de dicha mujer son iguales. Solo quiero mostrar un nif para saber que esa mujer esta archivada.
Si tengo mas mujeres con el mismo dni en la base de datos quisiera acer lo mismo.
Muchas Gracias de antemano.


wichosaenz
Junior Member

Mexico
211 Posts
Posted - 20 Jan 2005 :  23:56:36  Ver perfil  Enviar e-mail  Enviar wichosaenz un Mensaje Yahoo!e
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = "dsn=mujeres"
Recordset1.Source = "SELECT nif FROM mujeres GROUP BY nif ORDER BY nif ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<%=(Recordset1.Fields.Item("NIF").Value)%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

Wicho Saenz

Recuerda, lo único que te ofrezco es la verdad, nada más.
La pildora roja es para la impotencia, la azul para la diarrea.Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar