Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

Forum
  SUPPORTO TECNICO VECCHIE VERSIONI
      FUNZIONALITA' BASE
         Elenco dati database

Elenco dati database

Autore Messaggio
adam

Principiante
Principiante
4 Discussioni


Profilo - adam 		05 febbraio 2008 alle 22:01:51 Profilo - adamInvia un messaggio privato Rispondi quotando
Ciao a tutti, è una giornata che mi scervello e non riesco a venirne fuori, dovrei elencare dei dati presenti nel database di access, fin quì tutto ok, non riesco però a tirare fuori un elenco completo, mi da o il primo o l'ultimo recordset. Mi potete dare una mano.
Grazie anticipatamente.

queste e la pagina dipendenti.asp

<!-- #include file='includes/includes-inc.asp' -->
<%
if sPseudo = "" Then
ReleaseObjects
Response.Redirect GLOBAL_SITE_PATH & GLOBAL_SITE_DENIED_PAGE
Response.End
end if
%>
<%
sTitlePage = "dipendenti"
%>
<!-- #include file='includes/toppage-inc.asp' -->
<%
createtoptable "tabella","DIPENDENTI"
%>
<!-- #includes file='includes/dipendenti-inc.asp' -->
<%
CreateBottomTable ""
%>
<!-- #include file='includes/bottompage-inc.asp' -->
<!-- #include file='includes/clearitall-inc.asp' -->


invece questa e dipendenti-inc.asp

<%
Dim oCn, oRs, rSQL, iLine
Set oCn = DBConnexion(DB_MAIN)
RSQL ="SELECT * FROM users ORDER BY uLogin DESC"
Set oRs = DBRecordset(oCn, rSQL)
If not oRs.EOF Then

Response.Write GLOBAL_SITE_SUBTABLE & vbCRLF
Response.Write "<table>" & vbCRLF
Response.Write " <tr class=""tablelinemain"">" & vbCRLF
Response.Write " <td> " & Server.HTMLEncode(oRs("uLogin")) & "</td>" & vbCRLF
Response.Write " <td> " & Server.HTMLEncode(oRs("uEMail")) & "</td>" & vbCRLF
Response.Write " <td> " & Server.HTMLEncode(oRs("uURL")) & "</td>" & vbCRLF
Response.Write " </tr> " & vbCRLF
Response.Write "</table>" & vbCRLF

End If

oRs.Close
Set oRs=nothing
oCn.Close
Set oCn=nothing
%>
djveleno

Amministratore

Esperto
Esperto
1025 Discussioni


Profilo - djveleno 		05 febbraio 2008 alle 22:20:49 Profilo - djvelenoInvia un messaggio privato Rispondi quotando
Per elencare tutti i records disponibili si deve usare il costrutto:
While
Wend
Movenext

While not oRs.EOF Then
......... istruzioni di visualizzazione

oRs.Movenext
Wend

oRs.Close
Set oRs=nothing
oCn.Close
Set oCn=nothing


---------------
A lavare la testa ai somari, ci si rimette l'acqua e il sapone!

http://aspnuke208.somee.com/Default.asp
adam

Principiante
Principiante
4 Discussioni


Profilo - adam 		05 febbraio 2008 alle 22:21:49 Profilo - adamInvia un messaggio privato Rispondi quotando
grazie adesso provo
adam

Principiante
Principiante
4 Discussioni


Profilo - adam 		05 febbraio 2008 alle 22:51:49 Profilo - adamInvia un messaggio privato Rispondi quotando
Sei stato molto gentile e soprattutto velocissimo, risolto, eliminando "Then"
da questa riga: While not oRs.EOF Then

Log in

Login
Password
Memorizza i tuoi dati:

Cerca

 

Sostieni AspNuke

Un piccolo gesto per aiutarci a mantenere AspNuke.it online

Promo

MusicWebItalia.it
Video Testi Traduzioni Spot Colonne sonore Accordi e Spartiti gratis.

Visitatori

Visitatori Correnti : 102
Membri : 0 offline Anna

Iscritti

 Utenti: 18940
Ultimo iscritto : glauco
Lista iscritti
Messaggi privati: 3373 Commenti: 2210 Immagini: 39 Downloads: 144 Articoli: 49 Pagine: 101 Siti web: 558 Notizie: 180 Sondaggi: 11 Preferiti: 5685381 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi