Avatar billede djalex Praktikant
27. august 2008 - 19:31 Der er 1 kommentar og
1 løsning

error '800a000d - Type mismatch

Jeg er i gang med at lave en graf (lavet med tabeller) i asp...

Mit grundscript er følgende:
http://www.asp101.com/samples/bar_chart.asp

Jeg har ændret linjen:
ShowChart Array(6, 10, 12, 18, 23, 26, 27, 28, 30, 34, 37, 45, 55), Array("P1", "P2", "P3", "P4", "P5", "P6", "P7", "P8", "P9", "P10", "P11", "P12", "P13"), "Chart Title", "X Label", "Y Label"

Til:
____________________________________________________
Dim sConnection, objConn , objRS, graphvalue, graphlabel

graphvalue = "("
graphlabel = "(" & chr(34)
sConnection = "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost; DATABASE=drivhus; UID=root;PASSWORD=hehe_snydt; OPTION=3"

Set objConn = Server.CreateObject("ADODB.Connection")

objConn.Open(sConnection)

Set objRS = objConn.Execute("SELECT * FROM drivhus")


While Not objRS.EOF
'Response.Write
graphlabel = graphlabel & objRS.Fields("datotid") & chr(34) & "," & chr(34)
graphvalue = graphvalue & objRS.Fields("LuftFugt") & ","
objRS.MoveNext
Wend

objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing

graphvalue = graphvalue & "1)"
graphlabel = graphlabel & " " & chr(34) & ")"

Response.Write("Grafværdier: " & graphvalue)
Response.Write("Graf-label: " & graphlabel)


ShowChart Array(graphvalue), Array(graphlabel), "Luftfugtighed", "Tid", "%"
______________________________

Men nu får jeg bare en fejl:
http://drivhus.wattez.dk/graf.asp

Øverst på siden "printer" jeg de værdier den skal bruge, men jeg er bange for at min måde at snyde den til at lave et array på er forkert, da min streng nok  bliver en "string" ?

Har i en løsning på problemet? :)
Avatar billede djalex Praktikant
27. august 2008 - 19:39 #1
altså med min "streng" snakker jeg om "graphvalue" strengen...
Avatar billede djalex Praktikant
27. august 2008 - 21:59 #2
Nå jeg har selv puslet mig frem til en løsning...

Problemet var at min streng blev tolket som en streng og ikke som et array...

Den rigtige kode til grafen ses nu her:
___________________________________________________

Dim sConnection, objConn , objRS, graphvalue, graphlabel, arrGraphvalue, arrGraphlabel

graphvalue = ""
graphlabel = ""
sConnection = "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost; DATABASE=drivhus; UID=root;PASSWORD=hehe_snydt; OPTION=3"

Set objConn = Server.CreateObject("ADODB.Connection")

objConn.Open(sConnection)

Set objRS = objConn.Execute("SELECT * FROM drivhus")


While Not objRS.EOF
'Response.Write
graphlabel = graphlabel & objRS.Fields("datotid") & ","
graphvalue = graphvalue & cint(objRS.Fields("LuftFugt")) & " "
objRS.MoveNext
Wend

objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing

graphvalue = graphvalue & "0"
'graphlabel = graphlabel & " "

arrGraphvalue = Split(graphvalue," ")
arrGraphlabel = Split(graphlabel,",")

ReDim Preserve arrGraphvalue(UBound(arrGraphvalue) - 1)


ShowChart Array(arrGraphvalue), Array(arrGraphlabel), "Luftfugtighed", "Tid", "%"
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester