I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
E' un commento allo script #556
Sonika
Sonika
il 9 marzo 2004 alle 12:48
1.245 messaggi dal 03 marzo 2004
Ho qualche problema facendo caricare i dati dal db perchè mi da un errore:

sistema = Split(sistema, ";")
uten = Split(uten, ";")


Sistema sostituisce intestazione e uten sostituisce valori.
Precedentemente ho creato le stringhe sistema e uten caricando i dati dal db, dividendo i campi da ;
Visualizzandole in output la loro creazione è corretta.

---

L'errore è:
Tipo di errore:
Oggetto risposta, ASP 0106 (0x80020005)
È stato individuato un tipo di dati privo di handle.
/giblors/sonia/grafico2.asp
L'infinito è... ASP.NET
RispondiQuoting
Daniele Bochicchio
Daniele Bochicchio
il 9 marzo 2004 alle 15:25
15.593 messaggi dal 31 agosto 1998
Contributi
daniele.aspitalia.com | Blog
sembra un errore che non ha nulla a che vedere con il grafico. forse usi altri oggetti nella pagina che lo causano, prova a ridurre al minimo il codice.
Daniele Bochicchio | ASPItalia.com | Libri
Chief Operating Officer@iCubed
Microsoft Regional Director & MVP
RispondiQuoting
Sonika
Sonika
il 10 marzo 2004 alle 10:52
1.245 messaggi dal 03 marzo 2004
Purtroppo no :(

Per fare le cose semplice per ora ho creato tramite asp solo la stringa di intestazione e quella dei valori. Per ora il valore massimo l'ho lasciato staticco.

Le stringhe le creo in questo modo:

do while not rs1.eof
if sistema = "" then
sistema = rs1.Fields("so").Value
else
sistema = sistema + ";" + rs1.Fields("so").Value + ";"
end if
Rs1.MoveNext
Loop

Ho provato a commentare tutto il codice relativo al grafico e a mettere in output solo le due stringhe e le visualizza correttamente...
Il problema si presenta quando toglo il commento da:

sistema = Split(sistema, ";")
uten = Split(uten, ";")

Grazie per la disponibilità :)
L'infinito è... ASP.NET
RispondiQuoting
Daniele Bochicchio
Daniele Bochicchio
l'11 marzo 2004 alle 10:01
15.593 messaggi dal 31 agosto 1998
Contributi
daniele.aspitalia.com | Blog
e se usi

sistema = Split(CStr(sistema), ";") ti funziona?
Daniele Bochicchio | ASPItalia.com | Libri
Chief Operating Officer@iCubed
Microsoft Regional Director & MVP
RispondiQuoting
Sonika
Sonika
l'11 marzo 2004 alle 11:31
1.245 messaggi dal 03 marzo 2004
ho promavo ma...
Tipo di errore:
Oggetto risposta, ASP 0106 (0x80020005)
È stato individuato un tipo di dati privo di handle

---
ADESSO IL CODICE è COSI:

<html>
<head></head>
<body>
<%

Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open ("driver={Microsoft Access Driver (*.mdb)}; dbq="+_
Server.MapPath("../fpdb/prova.mdb"))

Dim rs
Set rs1 = Server.CreateObject("ADODB.Recordset")
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs1.Open "SELECT * FROM sistop", conn
rs2.Open "SELECT * FROM sistop", conn


do while not rs1.eof
if sistema = "" then
sistema = rs1.Fields("so").Value
else
sistema = sistema + ";" + rs1.Fields("so").Value + ";"
end if
Rs1.MoveNext
Loop

do while not rs2.eof
if uten = "" then
uten = rs2.Fields("utenti").Value
else
uten = uten + ";" + rs2.Fields("utenti").Value + ";"
end if
Rs2.MoveNext
Loop

' intestazione = sistema e valori = uten

%>

<%
'lunghezza massima della barra in pixel
lunghezza = 150

' definizione colori
colori = "yellow;red;"
colori = Split(colori, ";")

'sistema = Split(sistema, ";")
'uten = Split(uten, ";")
sistema = Split(CStr(sistema), ";")
uten = Split(CStr(uten), ";")

' leggere valore massimo dal db
massimo = 200
Response.Write(sistema)
Response.Write("<br>")
Response.Write(uten)

%>

<table border=0>
<%
for i = 0 to ubound(sistema)-1
%>
<tr><td>
<%
' calcolo lunghezza della cella
cella = CInt((100*uten(i)/massimo)*(lunghezza/100))

' output a video della tabella
Response.Write("<table width=" & cella & "><tr>")
Response.Write("<td bgcolor=" & colori(i) & ">&nbsp;</td></tr></table>")
Response.Write("</td><td><b>" & sistema(i) & "</b></td></tr>")

next

%>
</table>
</body>
</html>
---------
Grazie :)
Modificato da Sonika il 11 marzo 2004 11.32 -
L'infinito è... ASP.NET
RispondiQuoting
Sonika
Sonika
il 12 marzo 2004 alle 10:40
1.245 messaggi dal 03 marzo 2004
Adesso ho lo stesso problema, però ho tolto CINT da sistema e l'ho lasciato a uten. Sistema è una stringa di testo mentre uten di numeri!
L'infinito è... ASP.NET
RispondiQuoting

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.