plotting graph using ASP or VB script ?

Ugene · #1 September 8th, 2008, 05:22 PM

Does any one know how to plot this kind of graph ? Go to this kind to see the graph?

http://www.ekopower.nl/index.htm

Help...help me !

DrBunchman · #2 September 9th, 2008, 08:07 AM

Hi Ugene,

Welcome to Bytes.com! Any of these any good to you?

Dr B

Ugene · #3 September 9th, 2008, 09:31 AM

hey DrBunchman ...thanks alot...this is a great site..

Ugene · #4 September 9th, 2008, 10:30 AM

hey DrBunchman but i wanted to change my graph from histogram/bar graph to the zig-zag kind of graph...i find mostly is pie charts..how ?

DrBunchman · #5 September 9th, 2008, 10:40 AM

How about this line graph example? Is that what you wanted?

Dr B

Ugene · #6 September 10th, 2008, 03:17 AM

Yes ! but i want to hardcode my figure in ..can i ?

Ugene · #7 September 10th, 2008, 03:28 AM

I tried by copying the database and the source code into the server side so then from the client side i unable to process the graph i saw it on the link u gave me ...how come ? Is it i have to change to file name and path and so on ?

Ugene · #8 September 10th, 2008, 09:00 AM

after i tried changing the path and stuff i only can get the graph by hardcoding the data..so i cannot get the data thru connecting the database given ..

but now i want to let it read the data from a excel file..how to read it ?how to set the connection ?

Ugene · #9 September 12th, 2008, 02:45 AM

hey DrBunchman do u know how to set the connection to read the figures on microsoft excel?i am able to set the and see the graph only when i hardcode in the figure...help !

DrBunchman · #10 September 12th, 2008, 07:57 AM

Hi Ugene,

What code have you got so far? I presume that it is possible to use these graph objects with a connection so it's probably just a case of getting it set up correctly.

Dr B

Ugene · #11 September 18th, 2008, 10:29 AM

hi DrBunchman,i currently have these codes
---------------------------------------------------------------------------------------------------------------

Expand|Select|Wrap|Line Numbers

 <!doctype html public "-//w3c//dtd html 4.0 transitional//en">
 
<%@ Language=VBScript %>

<%

' Set Connection Params

Set oConn = Server.CreateObject("ADODB.connection")

oConn.Open "Driver={Microsoft Excel Driver (*.xls)}; DriverId=790;" &_

"DBQ=C:\Inetpub\wwwroot\InfoWeb\14Apr08_NUS_hr_Data.xls;" &_

"DefaultDir = C:\Inetpub\wwwroot\InfoWeb\"
 
Set RS=Server.CreateObject("ADODB.recordset")
 
 ' Write the SQL Query
 
RS.open "SELECT * FROM my_range", oConn
 
do until RS.EOF

Response.Write ( RS("Item No") & " -- " & RS("Item Description") & "<br>")

RS.movenext

Loop
 
'Close the recordset/connection
 
RS.Close

oConn.Close

Set RS = Nothing

%>
 
<html>

<head>

    <title>Pressure Chart</title>

</head>

<body>
 
<applet codebase="new" code="linegraph.class" height=220 width=360>

    <param name="title" value="Sales">

    <param name="NumberOfVals" value="<%=sqlQuery.RecordCount%>">

    <param name="NumberOfLabs" value="<%=sqlQuery.RecordCount%>">

    <PARAM NAME=ymax VALUE=<%=(Fix(sqlQuery("M")/10000)+1)*10000%>>

    <PARAM NAME=ymin VALUE=0>

    <PARAM NAME=mode VALUE=0>

    <PARAM NAME=border VALUE="20">    <PARAM NAME=Grid VALUE="true">

    <PARAM NAME=LineColor_R_L1 VALUE=53>

    <PARAM NAME=LineColor_G_L1 VALUE=153>

    <PARAM NAME=LineColor_B_L1 VALUE=51>    

<%

i = 1

while (not sqlQuery.EOF) %>

    <param name="VAL<%=i%>_L1" value="<%=sqlQuery("SalesTotal")%>">

    <param name="LAB<%=i%>" value="<%=MonthName(Month(sqlQuery("Date")))%>">

<%

i = i + 1

sqlQuery.MoveNext

wend %>
 
</APPLET><p>
 
</body>

</html>

-------------------------------------------------------------------------------------------------------
So how do i set my range which i underline? there are error in the codes could you point out to me ?

this is the error:
Microsoft OLE DB Provider for ODBC Drivers error '80040e37'

[Microsoft][ODBC Excel Driver] The Microsoft Jet database engine could not find the object 'my_range'. Make sure the object exists and that you spell its name and the path name correctly.

/Infoweb/pressure.asp, line 15

Ugene · #12 September 23rd, 2008, 04:14 AM

hey DrBunchman..

Now i have got the connection correct..and now its able to display the data in the excel file on a browser in a table form..so now i have to plot it i alraedy got the applet working but now is how to get the connect between the applet with the data ?

below is the correct data for the connection between excel and ASP..so if any 1 need it can play around with it..

This is the working code between my ASP and excel..
------------------------------------------------------------------------------------------------------------

Expand|Select|Wrap|Line Numbers

 <% Option Explicit %>

<html>

<body>
 
<%

Dim objConn, objRS, strSQL

Dim x, curValue
 
Set objConn = Server.CreateObject("ADODB.Connection")

objConn.Open "DRIVER={Microsoft Excel Driver (*.xls)}; IMEX=1; HDR=NO; "&_

    "DBQ=C:\Inetpub\wwwroot\InfoWeb\14Apr08_NUS_hr_Data.xls;"
 
strSQL = "SELECT * FROM D1:D170"

Set objRS=objConn.Execute(strSQL)

Response.Write("<table border=""1"">")

Response.Write("<tr>")

For x=0 To objRS.Fields.Count-1

   Response.Write("<th>" & objRS.Fields(x).Name & "</th>")

Next

Response.Write("</tr>")

Do Until objRS.EOF

    Response.Write("<tr>")

    For x=0 To objRS.Fields.Count-1

        curValue = objRS.Fields(x).Value

        If IsNull(curValue) Then

            curValue="N/A"

        End If

        curValue = CStr(curValue)

        Response.Write("<td>" & curValue & "</td>")

    Next

    Response.Write("</tr>")

    objRS.MoveNext

Loop

objRS.Close

Response.Write("</table>")
 
objConn.Close

Set objRS=Nothing

Set objConn=Nothing

%>
 
</body>

</html>

--------------------------------------------------------------------------

Below is the code of applet to plot the graph how to connect it?
that is a hardcoded in the applet.how to use this graph with the data displayed?
hope u could help me .
-------------------------------------------------------------------------

Expand|Select|Wrap|Line Numbers

 <APPLET CODE="linegraph.class" HEIGHT=220 WIDTH=360>

<PARAM NAME=NumberOfVals VALUE=36>

<PARAM NAME=NumberOfLabs VALUE=4>

<PARAM NAME=KeyWidth VALUE=70>
 
<PARAM NAME=LineColor_R_L1 VALUE=0>

<PARAM NAME=LineColor_G_L1 VALUE=0>

<PARAM NAME=LineColor_B_L1 VALUE=200>
 
<PARAM NAME=LineColor_R_L2 VALUE=200>

<PARAM NAME=LineColor_G_L2 VALUE=0>

<PARAM NAME=LineColor_B_L2 VALUE=0>
 
<PARAM NAME=yMax VALUE=30>

<PARAM NAME=yMin VALUE=-10>

<PARAM NAME=Mode VALUE=0>

<PARAM NAME=Lines VALUE=2>

<PARAM NAME=Title VALUE="NET PROFIT (K$)">

<PARAM NAME=Border VALUE="30">

<PARAM NAME=Grid VALUE="true">
 
<PARAM NAME=VAL1_L1 VALUE=10.3>

<PARAM NAME=VAL2_L1 VALUE=11.0>

<PARAM NAME=VAL3_L1 VALUE=14.5>

<PARAM NAME=VAL4_L1 VALUE=12.20>

<PARAM NAME=VAL5_L1 VALUE=15.0>

<PARAM NAME=VAL6_L1 VALUE=12.5>

<PARAM NAME=VAL7_L1 VALUE=20.5>

<PARAM NAME=VAL8_L1 VALUE=22.5>

<PARAM NAME=VAL9_L1 VALUE=18.8>

<PARAM NAME=VAL10_L1 VALUE=24>

<PARAM NAME=VAL11_L1 VALUE=27.8>

<PARAM NAME=VAL12_L1 VALUE=29>

<PARAM NAME=VAL13_L1 VALUE=26.9>

<PARAM NAME=VAL14_L1 VALUE=22.4>

<PARAM NAME=VAL15_L1 VALUE=18.0>

<PARAM NAME=VAL16_L1 VALUE=14.8>

<PARAM NAME=VAL17_L1 VALUE=7.5>

<PARAM NAME=VAL18_L1 VALUE=3.2>

<PARAM NAME=VAL19_L1 VALUE=-4.6>

<PARAM NAME=VAL20_L1 VALUE=-2.0>

<PARAM NAME=VAL21_L1 VALUE=1.8>

<PARAM NAME=VAL22_L1 VALUE=2.5>

<PARAM NAME=VAL23_L1 VALUE=-1.1>

<PARAM NAME=VAL24_L1 VALUE=2.5>

<PARAM NAME=VAL25_L1 VALUE=11.9>

<PARAM NAME=VAL26_L1 VALUE=16.6>

<PARAM NAME=VAL27_L1 VALUE=12.6>

<PARAM NAME=VAL28_L1 VALUE=18.7>

<PARAM NAME=VAL29_L1 VALUE=23.9>

<PARAM NAME=VAL30_L1 VALUE=19.9>

<PARAM NAME=VAL31_L1 VALUE=19.5>

<PARAM NAME=VAL32_L1 VALUE=23.5>

<PARAM NAME=VAL33_L1 VALUE=19.0>

<PARAM NAME=VAL34_L1 VALUE=22.5>

<PARAM NAME=VAL35_L1 VALUE=22.9>

<PARAM NAME=VAL36_L1 VALUE=24.6>
 
<PARAM NAME=VAL1_L2 VALUE=14.3>

<PARAM NAME=VAL2_L2 VALUE=12.0>

<PARAM NAME=VAL3_L2 VALUE=11.5>

<PARAM NAME=VAL4_L2 VALUE=17.20>

<PARAM NAME=VAL5_L2 VALUE=12.0>

<PARAM NAME=VAL6_L2 VALUE=13.5>

<PARAM NAME=VAL7_L2 VALUE=25.5>

<PARAM NAME=VAL8_L2 VALUE=21.5>

<PARAM NAME=VAL9_L2 VALUE=11.8>

<PARAM NAME=VAL10_L2 VALUE=14>

<PARAM NAME=VAL11_L2 VALUE=17.8>

<PARAM NAME=VAL12_L2 VALUE=19>

<PARAM NAME=VAL13_L2 VALUE=16.9>

<PARAM NAME=VAL14_L2 VALUE=22.4>

<PARAM NAME=VAL15_L2 VALUE=28.0>

<PARAM NAME=VAL16_L2 VALUE=24.8>

<PARAM NAME=VAL17_L2 VALUE=9.5>

<PARAM NAME=VAL18_L2 VALUE=6.2>

<PARAM NAME=VAL19_L2 VALUE=4.6>

<PARAM NAME=VAL20_L2 VALUE=12.0>

<PARAM NAME=VAL21_L2 VALUE=8.8>

<PARAM NAME=VAL22_L2 VALUE=9.5>

<PARAM NAME=VAL23_L2 VALUE=11.1>

<PARAM NAME=VAL24_L2 VALUE=7.5>

<PARAM NAME=VAL25_L2 VALUE=14.9>

<PARAM NAME=VAL26_L2 VALUE=15.6>

<PARAM NAME=VAL27_L2 VALUE=16.6>

<PARAM NAME=VAL28_L2 VALUE=11.7>

<PARAM NAME=VAL29_L2 VALUE=21.9>

<PARAM NAME=VAL30_L2 VALUE=16.9>

<PARAM NAME=VAL31_L2 VALUE=13.5>

<PARAM NAME=VAL32_L2 VALUE=25.5>

<PARAM NAME=VAL33_L2 VALUE=19.9>

<PARAM NAME=VAL34_L2 VALUE=22.9>

<PARAM NAME=VAL35_L2 VALUE=22.1>

<PARAM NAME=VAL36_L2 VALUE=24.1>
 
<PARAM NAME=LAB1 VALUE="1999">

<PARAM NAME=LAB2 VALUE="2000">

<PARAM NAME=LAB3 VALUE="2001">

<PARAM NAME=LAB4 VALUE="2002">
 
<PARAM NAME=Key_L1 VALUE="ABC Corp">

<PARAM NAME=Key_L2 VALUE="XYZ Corp">
 
</APPLET>

-----------------------------------------------------------------------

Ugene · #13 September 29th, 2008, 02:23 AM

hey DrBunchman,

did u miss my post?

DrBunchman · #14 September 29th, 2008, 08:14 AM

Hi Ugene,

I've not used an applet like this before but I presume that you can build the applet dynamically using your asp code the same way that you have built a table from quering the excel spreadsheet.

Does this make sense?

Dr B

Ugene · #15 September 30th, 2008, 02:55 AM

DrBunchman ,

It sounds logical..to display in a table form is via <tr> & <td>. So what are the tags to display it into a line graph? It would be much easier as i don't have to pass it to another method. But do u konw how to go about doing this way ?

DrBunchman · #16 September 30th, 2008, 08:11 AM

You have the tags already in your applet example.....rather than using <tr> & <td> you could maybe build the applet tags (e.g. <param />) using the server side code.

I don't know if this is actually possible - any other experts got any experience with this?

Dr B

Ugene · #17 October 2nd, 2008, 01:53 AM

hey DrBunchman ,
i manage to get the code out after playing around with it..thanks so much for the help and advise you gave me ! you have been a great help..

DrBunchman · #18 October 3rd, 2008, 08:56 AM

Hey Ugene, I'm really pleased to hear you got it working. Perhaps you could let us know how you did it in case anyone else has a similar problem?

Thanks

Dr B

Ugene · #19 October 7th, 2008, 09:28 AM

This is the final code which able to let user retrieve data from selected range of the excel file and plot it on a line graph. its here for any 1 that need :)

Expand|Select|Wrap|Line Numbers

 <% Option Explicit %>

<html>

<HEAD><TITLE>Line Graph Of Wind Speed</TITLE></HEAD>

<body>
 
<APPLET CODE="linegraph.class" HEIGHT=400 WIDTH=900>
 
<%

Dim objConn, objRS, strSQL

Dim x, i, curValue
 
Set objConn = Server.CreateObject("ADODB.Connection")

objConn.Open "DRIVER={Microsoft Excel Driver (*.xls)}; IMEX=1; HDR=NO; "&_

    "DBQ=C:\Inetpub\wwwroot\InfoWeb\14Apr08_NUS_hr_Data.xls;"
 
%>
 
<PARAM NAME=NumberOfVals VALUE="24">

<PARAM NAME=NumberOfLabs VALUE="24">
 
<PARAM NAME=LineColor_R_L1 VALUE=0>

<PARAM NAME=LineColor_G_L1 VALUE=0>

<PARAM NAME=LineColor_B_L1 VALUE=255>
 
<PARAM NAME=ymax VALUE=4>

<PARAM NAME=ymin VALUE=0>

<PARAM NAME="lines" VALUE=10>

<PARAM NAME="borderright" VALUE=20>

<PARAM NAME="borderleft" VALUE=30>

<PARAM NAME="bordertop" VALUE=20>

<PARAM NAME="borderbase" VALUE=20>

<PARAM NAME="bg_r" VALUE=220>

<PARAM NAME="bg_g" VALUE=240>

<PARAM NAME="bg_b" VALUE=255>

<PARAM NAME="border_r" VALUE=100>

<PARAM NAME="border_g" VALUE=100>

<PARAM NAME="border_b" VALUE=250>

<PARAM NAME="linewidth" VALUE=2>

<PARAM NAME="showpoints" VALUE=1>

<PARAM NAME=fontsize VALUE=13>

<PARAM NAME=Title VALUE="Wind Speed (m/s)">

<PARAM NAME=Border VALUE="30">

<PARAM NAME=Grid VALUE="true">
 
<PARAM NAME=LAB1 VALUE="0100">

<PARAM NAME=LAB2 VALUE="0200">

<PARAM NAME=LAB3 VALUE="0300">

<PARAM NAME=LAB4 VALUE="0400">

<PARAM NAME=LAB5 VALUE="0500">

<PARAM NAME=LAB6 VALUE="0600">

<PARAM NAME=LAB7 VALUE="0700">

<PARAM NAME=LAB8 VALUE="0800">

<PARAM NAME=LAB9 VALUE="0900">

<PARAM NAME=LAB10 VALUE="1000">

<PARAM NAME=LAB11 VALUE="1100">

<PARAM NAME=LAB12 VALUE="1200">

<PARAM NAME=LAB13 VALUE="1300">

<PARAM NAME=LAB14 VALUE="1400">

<PARAM NAME=LAB15 VALUE="1500">

<PARAM NAME=LAB16 VALUE="1600">

<PARAM NAME=LAB17 VALUE="1700">

<PARAM NAME=LAB18 VALUE="1800">

<PARAM NAME=LAB19 VALUE="1900">

<PARAM NAME=LAB20 VALUE="2000">

<PARAM NAME=LAB21 VALUE="2100">

<PARAM NAME=LAB22 VALUE="2200">

<PARAM NAME=LAB23 VALUE="2300">

<PARAM NAME=LAB24 VALUE="0000">
 
<%

strSQL = "SELECT * FROM G2:G26"

Set objRS=objConn.Execute(strSQL)
 
i=1

Do Until objRS.EOF
 
    For x=0 To objRS.Fields.Count-1

%>        

    <PARAM NAME="VAL<%=i%>_L1" VALUE="<%=objRS.Fields(x).Value%>">

<%    Next

    i = i + 1

    objRS.MoveNext

Loop

objRS.Close

%>
 
<%

objConn.Close

Set objRS=Nothing

Set objConn=Nothing

%>
 
</APPLET>
 
</body>

</html>

What is Bytes?

Popular Articles