Ciclo estrazione records tabella

**wegawhite** · 09-03-2005, 11:59

Buongiorno.

Cosa c'è di errato in questo ciclo? perchè estrae tutti i records del dbase, tranne l'ultimo?

codice:

tabella_clienti = ""
clienti_totale = 0
if IsArray(listaClientiOutput) then
	clienti_totale = Ubound(listaClientiOutput,2)
	For risultato = 0 to clienti_totale
...
Next
end if

**supergeniux** · 09-03-2005, 15:29

Prova cosi:

codice:

tabella_clienti = ""
clienti_totale = 0
if IsArray(listaClientiOutput) then
	clienti_totale = Ubound(listaClientiOutput,2)
	For risultato = 0 to clienti_totale+1
...
Next
end if

**wegawhite** · 09-03-2005, 15:59

restituisce sulla riga modificata:

codice:

 Error Type:
Microsoft VBScript runtime (0x800A0009)
Indice non incluso nell'intervallo.: 'risultato'

**supergeniux** · 09-03-2005, 16:02

codice:

tabella_clienti = ""
clienti_totale = 0
if IsArray(listaClientiOutput) then
	clienti_totale = Ubound(listaClientiOutput,2)
        clienti_totale = clienti_totale+1
	For risultato = 0 to clienti_totale
...
Next
end if

**wegawhite** · 09-03-2005, 16:07

grazie, restituisce errore sull'ultima riga:

codice:

tabella_clienti = ""
clienti_totale = 0
if IsArray(listaClientiOutput) then
	clienti_totale = Ubound(listaClientiOutput,2)
	clienti_totale = clienti_totale+1
	For risultato = 0 to clienti_totale
		tabella_clienti = tabella_clienti & "<tr style=""vertical-align:middle;"">"
			tabella_clienti = tabella_clienti & "<td style=""text-align:center;border:.5pt solid;"">"& listaClientiOutput(0,risultato) &"</td>"

**wegawhite** · 09-03-2005, 18:16

Non riesco a risolvere... registro un primo record al quale assegno un numero di appartenenza e non lo estrae... registro un secondo record con lo stesso nuemro di appartenenza e mi vede il primo e non il secondo...

**wegawhite** · 10-03-2005, 15:09

up

**deivnet** · 10-03-2005, 15:16

Scusa ma come lo crei l'array listaClientiOutput?
Prova a postare come lo valorizzi.

**wegawhite** · 10-03-2005, 16:13

grazie, ecco qui:

codice:

'Evito la memorizzazione in cache/proxy della pagina
'e cancello le sessioni del pannello riservato
response.expires = -1500 
response.AddHeader "PRAGMA", "NO-CACHE"
response.CacheControl = "PRIVATE"

session.LCID = 1040

dbPath = server.mapPath("mdb-database/db.mdb")
dbConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& dbpath

'Lista dei clienti
'INPUT: connessione
'OUTPUT: array a due dimensioni con le informazioni del recordset
sub listaClienti(objConn,byRef listaClientiOutput)
	sql = "SELECT * FROM STATO_AVANZAMENTO_LAVORI WHERE ID_CPRMR = "& strVAR &" ORDER BY ID"	'response.write sql':response.end
	set rs = server.createObject("ADODB.Recordset")
	rs.open sql, objConn, 1, 3
	if not rs.eof then
		listaClientiOutput = rs.getrows()
	end if
	rs.close
	set rs = nothing
end sub

sub dbConnect(objConn,connString)
	set objConn = server.createObject("ADODB.Connection")
	objConn.open connString
end sub

sub dbDisconnect(objConn)
	objConn.close
	set objConn = nothing
end sub

'Generazione di un numero casuale per nominare il file Excel
Function genera(Max, Min, MaxChar) 
	Dim codice, cifra
	For i = 1 To MaxChar 
		Randomize timer
		codice = Int((Max * Rnd()) + 1) 
		cifra = cifra & codice
	Next 
	genera = cifra
End Function 

'Nome temporaneo del file Excel
temp_excel_file = lcase(genera(91, 48, 5)) '5 = numero caratteri di cui è composta

Set fs = CreateObject("Scripting.FileSystemObject")
path_modello = server.mappath("public/modello_excel.txt")
path_temp = server.mappath("public/"& temp_excel_file &".xls")
Set a = fs.OpenTextFile(path_modello)
file_letto = a.readall
a.Close

call dbConnect(conn,dbConnString)
call listaClienti(conn,listaClientiOutput)
call dbDisconnect(conn)

tabella_clienti = ""
clienti_totale = 0
if IsArray(listaClientiOutput) then
	clienti_totale = Ubound(listaClientiOutput,2)
	'clienti_totale = clienti_totale+1
	For risultato = 0 to clienti_totale
		tabella_clienti = tabella_clienti & "<tr style=""vertical-align:middle;"">"
			tabella_clienti = tabella_clienti & "<td style=""text-align:center;border:.5pt solid;"">"& listaClientiOutput(0,risultato) &"</td>"
			tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(1,risultato) &"</td>"
			tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(2,risultato) &"</td>"
			tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(3,risultato) &"</td>"
			tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(4,risultato) &"</td>"
			tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(5,risultato) &"</td>"
			tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(6,risultato) &"</td>"
			tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(7,risultato) &"</td>"
			tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(8,risultato) &"</td>"
			tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(9,risultato) &"</td>"
			tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(10,risultato) &"</td>"
            tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(11,risultato) &"</td>"
			tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(12,risultato) &"</td>"
			tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(13,risultato) &"</td>"
			tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(14,risultato) &"</td>"
			tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(15,risultato) &"</td>"
			tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(16,risultato) &"</td>"
			tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(17,risultato) &"</td>"
			tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(18,risultato) &"</td>"
			tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(19,risultato) &"</td>"
			tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(20,risultato) &"</td>"
            tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(21,risultato) &"</td>"
			tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(22,risultato) &"</td>"
			tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(23,risultato) &"</td>"
			tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(24,risultato) &"</td>"
			tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(25,risultato) &"</td>"
			tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(26,risultato) &"</td>"
			tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(27,risultato) &"</td>"
			tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(28,risultato) &"</td>"
			'tabella_clienti = tabella_clienti & "<td style=""border:.5pt solid;"">"& listaClientiOutput(29,risultato) &"</td>"
		tabella_clienti = tabella_clienti & "</tr>"
	Next
end if

'Scrive sul file di testo il nuovo valore
Set a = fs.CreateTextFile(path_temp, True)
file_letto = replace(file_letto, "[clienti_totale]", clienti_totale+1)
file_letto = replace(file_letto, "[clienti]", tabella_clienti)
a.write (file_letto)
a.Close
set fs = nothing

**deivnet** · 10-03-2005, 16:15

Sostituisci questa riga

For risultato = 0 to clienti_totale

con questa

For risultato = 0 to (clienti_totale-1)

Discussione: Ciclo estrazione records tabella

Strumenti discussione

Ricerca discussione

Visualizza

Ciclo estrazione records tabella

Permessi di invio