I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio 1 2 3 4
lib3r74
lib3r74
il 17 luglio 2012 alle 17:08
39 messaggi dal 31 maggio 2012
Daniele Bochicchio ha scritto:
un ciclo do...While o While...Wend è la stessa identica cosa. sicuro che la tua query funzioni?

Inviato dall'app per Windows 8

Si senza ciclo la query funziona perfettamente,ho provato anche con 
<%
Do While not rs.viewuserSQL EOF
%>
ma ovviamente non funziona,il record set mi sembra apposto..
RispondiQuoting
Daniele Bochicchio
Daniele Bochicchio
il 17 luglio 2012 alle 19:35
15.593 messaggi dal 31 agosto 1998
Contributi
daniele.aspitalia.com | Blog
mi sembra alquano strano, perché è giusto While Not rs.EOF.

provato a fare set rs = adoCon.Execute(tuosql)?
cambia qualcosa?
Daniele Bochicchio | ASPItalia.com | Libri
Chief Operating Officer@iCubed
Microsoft Regional Director & MVP
RispondiQuoting
lib3r74
lib3r74
il 18 luglio 2012 alle 15:58
39 messaggi dal 31 maggio 2012
Non funziona,ma se faccio:
<%  While not rs_userlist.EOF%>
"contenuto"
<% rs_userlist.MoveNext  wend
end if %>


il ciclo funziona in modo parziale,cioè mi ripete per 3 volte la stessa query senza andare avanti
Modificato da lib3r74 il 18 luglio 2012 15.59 -
Modificato da lib3r74 il 18 luglio 2012 16.00 -
RispondiQuoting
lib3r74
lib3r74
il 6 agosto 2012 alle 15:56
39 messaggi dal 31 maggio 2012
A volte buttare giù tutta la pagina e riscriverla a mano aiuta parecchio ;)

Se a qualcuno dovesse servire:

<!--#include file="controllo_login.asp" --><%
'dichiarazione delle variabili
Dim conn
Dim rs
Dim strconn
Dim strSQL
Dim i
'stringa di connessione al database
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
strconn = strconn + Server.MapPath("mdb-database/utenti.mdb")
'istanze degli oggetti Connection e Recordset
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.Open strconn
'comando SQL
strSQL = "SELECT data,nome,cognome,id,FROM tabella WHERE code='" & str_code & "' " 

'oggetto Recordset
Set rs = conn.Execute(strSQL)
<TABLE BORDER=1>
<TR>
<% For i = 0 to rs.Fields.Count - 1 %>
<TH><% =rs.Fields(i).Name %></TH>
<% Next %>
</TR>
<%
rs.MoveFirst
Do While Not rs.EOF %>
<TR>
<% For i = 0 to rs.Fields.Count - 1 %>
<TD><% =rs.Fields(i).Value %></TD>
<% Next %>
</TR>
<%
rs.MoveNext
Loop
%>
</TABLE>
<%
rs.Close
conn.Close
set rs = nothing
set conn = nothing
%>


:P
Modificato da lib3r74 il 06 agosto 2012 15.57 -
RispondiQuoting
1 2 3 4

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.