aiuto codice

**deivnet** · 18-11-2004, 16:42

Allora sostituisci questo :

codice:

	if tmpCliente = objrs("CLIENTE") then 
		strsql2 = "SELECT * FROM codici WHERE CLIENTI = " & objrs("CLIENTE") 
		objrs2.Open strsql2 	
		
		do while not objrs2.EOF   
			' questa è la famosa riga dove si ripetono i clienti 
			response.Write objrs2("parametro1") & " - " & objrs2("parametro2") & " - " & objrs2("parametro3") & "
" & "
" 

			objrs2.MoveNext 
		loop 
		'Qui devi chiudere
		objrs2.close   
        else
             tmpCliente = objrs("CLIENTE") 
	end if

con questo :

codice:

	strsql2 = "SELECT * FROM codici WHERE CLIENTI = " & objrs("CLIENTE") 
		objrs2.Open strsql2 	
		
		do while not objrs2.EOF   
			' questa è la famosa riga dove si ripetono i clienti 
			response.Write objrs2("parametro1") & " - " & objrs2("parametro2") & " - " & objrs2("parametro3") & "
" & "
" 

			objrs2.MoveNext 
		loop 
		'Qui devi chiudere
		objrs2.close

**giannipie** · 18-11-2004, 17:13

mi sembra di non finire mai:

Operazione non consentita per un oggetto che fa riferimento a una connessione chiusa o non valida.
/miletto/lettura2.asp, line 36

forse sarà la posizione di objrs.close?

**deivnet** · 18-11-2004, 17:22

La tua pagina dovrebbe essere così :

codice:

<%@language=VBScript%> 
<%option explicit%> 
 

<html> 
<body> 
<%
dim objconn 
set objconn = server.createobject("adodb.connection") 
objconn.connectionstring = "dsn=datamiletto.dsn" 
objconn.open 
dim strsql, strsql2 
strsql = "select * from integrazione where cliente like '%' order by cliente " 
dim objrs 

set objrs = server.CreateObject("ADODB.Recordset") 
' ache senza puntatore scorrevole da lo stesso problema... 
objrs.open strsql, objconn, adopenkeyset 
dim objrs2 
set objrs2 = server.CreateObject("ADODB.Recordset") 
response.Write "Ci sono" & objrs.recordcount & "cliente" 
response.Write "

" 
dim tmpcliente 

do while not objrs.eof 

	response.write "cliente " & objrs("cliente") & "
" 
	response.write "codice cliente " & objrs("codice cliente") & "
" 

		strsql2 = "SELECT * FROM codici WHERE CLIENTI = " & objrs("CLIENTE") 
		objrs2.Open strsql2 	
		
		do while not objrs2.EOF   
			' questa è la famosa riga dove si ripetono i clienti 
			response.Write objrs2("parametro1") & " - " & objrs2("parametro2") & " - " & objrs2("parametro3") & "
" & "
" 

			objrs2.MoveNext 
		loop 
		'Qui devi chiudere
		objrs2.close   

	objrs.movenext 
loop 

'Qui chiudi il recordset principale
objrs.close 
set objrs = nothing 
set objrs2 = nothing 

objconn.close 
set objconn = nothing 
%> 
</table> 
</body> 
</html>

**giannipie** · 18-11-2004, 17:33

praticamente si, ma continua ad uscire quell'errore su questa riga:

objrs2.Open strsql2

...se ci sei ci sentiamo sta sera...grazie per la pazienza

**deivnet** · 18-11-2004, 17:37

Stranissimo, il file è corretto...
Stasera non ci sono ...
A domani nel caso.

**giannipie** · 18-11-2004, 23:53

sto provando tutta la sera senza risultato, come vado a togliere il ciclo if then esce quell'errore.

**deivnet** · 19-11-2004, 09:40

Fai un tentativo con questo codice, il campo cliente della tabella è numerico o testuale? Io l'ho modificato per leggerlo testuale.

<%@language=VBScript%>
<%option explicit%>

<html>
<body>
<%
dim objconn
set objconn = server.createobject("adodb.connection")
objconn.connectionstring = "dsn=datamiletto.dsn"
objconn.open
dim strsql, strsql2
strsql = "select * from integrazione where cliente like '%' order by cliente "
dim objrs

set objrs = server.CreateObject("ADODB.Recordset")
' ache senza puntatore scorrevole da lo stesso problema...
objrs.open strsql, objconn, adopenkeyset
dim objrs2
set objrs2 = server.CreateObject("ADODB.Recordset")
response.Write "Ci sono" & objrs.recordcount & "cliente"
response.Write "

"
dim tmpcliente

do while not objrs.eof

response.write "cliente " & objrs("cliente") & "
"
response.write "codice cliente " & objrs("codice cliente") & "
"

strsql2 = "SELECT * FROM codici WHERE CLIENTI = '" & objrs("CLIENTE") &"'"
objrs2.Open strsql2

do while not objrs2.EOF
' questa è la famosa riga dove si ripetono i clienti
response.Write objrs2("parametro1") & " - " & objrs2("parametro2") & " - " & objrs2("parametro3") & "
" & "
"

objrs2.MoveNext
loop
'Qui devi chiudere
if objRecordset.State = adStateOpen Then
objrs2.close
End If

objrs.movenext
loop

'Qui chiudi il recordset principale
objrs.close
set objrs = nothing
set objrs2 = nothing

objconn.close
set objconn = nothing
%>
</table>
</body>
</html>

**giannipie** · 19-11-2004, 15:35

niete da fere:

Connessione chiusa o non valida in questo contesto. Impossibile utilizzarla per eseguire l'operazione.

...alla solita riga:

objrs2.open

**deivnet** · 19-11-2004, 15:39

Che pistola che sono

se non specifico la connessione col cavolo che va

<%@language=VBScript%>
<%option explicit%>

<html>
<body>
<%
dim objconn
set objconn = server.createobject("adodb.connection")
objconn.connectionstring = "dsn=datamiletto.dsn"
objconn.open
dim strsql, strsql2
strsql = "select * from integrazione where cliente like '%' order by cliente "
dim objrs

set objrs = server.CreateObject("ADODB.Recordset")
' ache senza puntatore scorrevole da lo stesso problema...
objrs.open strsql, objconn, adopenkeyset
dim objrs2
set objrs2 = server.CreateObject("ADODB.Recordset")
response.Write "Ci sono" & objrs.recordcount & "cliente"
response.Write "

"
dim tmpcliente

do while not objrs.eof

response.write "cliente " & objrs("cliente") & "
"
response.write "codice cliente " & objrs("codice cliente") & "
"

strsql2 = "SELECT * FROM codici WHERE CLIENTI = '" & objrs("CLIENTE") &"'"
objrs2.Open strsql2 , objconn, adopenkeyset

do while not objrs2.EOF
' questa è la famosa riga dove si ripetono i clienti
response.Write objrs2("parametro1") & " - " & objrs2("parametro2") & " - " & objrs2("parametro3") & "
" & "
"

objrs2.MoveNext
loop
'Qui devi chiudere
objrs2.close

objrs.movenext
loop

'Qui chiudi il recordset principale
objrs.close
set objrs = nothing
set objrs2 = nothing

objconn.close
set objconn = nothing
%>
</table>
</body>
</html>

**giannipie** · 19-11-2004, 23:19

..eccomi dopo una lunga giornata di lavoro, provo il tuo codice e...

ci siamo.....finalmente...te ne ho fatto perdere di tempo! Ora posso concentrarmi a migliorare l'output, perché visualizzare i dati in quel modo non è molto intuitivo a capire..grazie mille

Discussione: aiuto codice

Strumenti discussione

Ricerca discussione

Visualizza

Permessi di invio