Graficar con ASP ?

[Fabu_dina]

Microsoft Office 2003

[Bravenap]

¿Qué tienes en la línea 38? Y así salimos de dudas y elucubraciones.

[Fabu_dina]

este seria el codigo de la linea 38

pie.Export tFile

[Bravenap]

Pues me da que va a ser un tema de permisos de escritura en el directorio.

[Fabu_dina]

Tengo permiso para escribir en esa carpeta

[Bravenap]

Pues... no sé. Puede que esté mal la línea anterior

tFile = Server.MapPath("pie.gif")

aunque si no la has cambiado.....

[Fabu_dina]

Alguien sabe que extension tengo que tener instalada en el servidor para poder graficar con este metodo

[Adonay]

Como Cambio el tamaño de la fuente de los ejes X y Y? el gráfico siempre me queda con la fuente por defecto que es 14, se que es con el objeto Axes, pero me falla cuando ejecuto esto:

pie.Axes.TickLabels.Font.size = 8

Que puedo hacer, necesito ayuda, muchas gracias

[sjam7]

supongo que este error se debe a que no tengo el componente o que?:

Objeto Server error 'ASP 0177 : 800401f3'
Error en Server.CreateObject
/hoteles/prueba.asp, line 10
ProgID no válido. Para recibir información adicional referente a este mensaje, visite el sitio Web de soporte técnico de Microsoft que se encuentra en: http://www.microsoft.com/contentredirect.asp

[univercity]

Yo creo que si, yo lo rpbé en mi localhost y todo Ok. luego subí la aplicacion al hosting y m da este mismo error. asi que estoy esperando a los del hosting para preguntarles.

Slds.

[univercity]

hey me comunique con los del hosting y me dicen que tienen instalado Office Xp, ahora mi duda es si estan contando un cuento o no... se puede instalar office Xp, sobre Win 2000, alguien sabe????

[AlZuwaga]

¿ofXP sobre win2K? Claro que se puede

[univercity]

Miren me respondieron de mi hosting:

Alejandro.
Efectivamente, los servidores no cuentan con office, ya que al ser
servidores de explotacion, no requieren de Office, al mismo tiempo, que las
versiones 2000 y XP manejan una serie de bugs o errores que comprometen la
seguridad del servidor que aloje el sitio web.



haber ahora que puedo hacer, por la respuesta no quieren instalar officce, entonces como lo hago para graficar, si les pido que instalen solo los componentes MSGraph.Chart, como habría que decirlo, es decir si uno ve los componentes de office, tiene la posibilidad de instalar esos componentes unicamente?????...

les pido consejos porque de esto ni luces...


Slds.

[vito_gris]

Hola probe el ejemplo y me sale este error

Technical Information (for support personnel)

Error Type:
Server object, ASP 0177 (0x80080005)
Server execution failed
/plus_server/frafico.asp, line 2


Donde la lines 2 es

Set pie =Server.CreateObject( "MSGraph.Chart" )

Tengo instalado el office 2000 premium

[univercity]

bueno es el mismo error que me dio a mi cuando lo quize probar en el servidor del servicio de hosting, ellos no tenian instalado el componente, lo instalaron y ahora cero problema, deberias revisar si realmente lo tienes.

revisalo dentro de xp, esta en esta url
C:\Archivos de programa\Microsoft Office\Office10
chart.exe

y tiene la imagen de un grafico...

espero que de algo te sirva


ahhh, y otra cosa me imagino que abristes la sentencia de ASP
<%


slds.

[vito_gris]

no encontre ese archivo pero el que tiene como icono de grafico se llama
GRAPH9.exe

Office 2000 premium

[vito_gris]

acado de reinstalar el office pero tampoco funciono

[vito_gris]

cambie el Set pie = Server.CreateObject( "MSGraph.Chart" ) por
Set pie = CreateObject( "MSGraph.Chart" )
y surge el siguiente error
Error Type:
Microsoft VBScript runtime (0x800A01AD)
ActiveX component can't create object: 'MSGraph.Chart'
/plus_server/g/frafico.asp, line 2

sonde linea dos es
Set pie = CreateObject( "MSGraph.Chart" )

[univercity]

Set pie = CreateObject( "MSGraph9.Chart" )

y por las dudas lo probastes así?????

[vito_gris]

sabes tampoco me resulto

[vito_gris]

que diferencia hay entre

Server.CreateObject("MSGraph.Chart") y

Server.CreateObject("OWC.Chart")

[orharo2003]

Que gachos non, nadie te ayuda : checa el siguiente ejemplo :)

Por cierto : Con los 2 te sirven para lo mismo:

Componentes Web de Office (Office Web Componentes o OWC) que, una vez instalados en el servidor web, permiten (al igual que ocurre en la suite ofimática instalada en modo local) crear gráficos muy similares a los que se pueden conseguir en la aplicación Excel.


Este si te var a funcionar:


<% @language="vbscript" %>

<html>

<head><title></title>

</head>

<!--#include file="adovbs.inc" -->

<body>

<%

dim fichero, conn, rs, objRS,objChartSpace, objChart, c

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

conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("datos.mdb")

Set objRS=Server.CreateObject("ADODB.Recordset")

set objRS.ActiveConnection = conn

set objChartSpace = Server.CreateObject("OWC.Chart")

set objChart = objChartSpace.Charts.Add()

set c = objChartSpace.Constants



fichero=server.mappath("gif_tmp_export.gif")

objRS.CursorType = adOpenStatic

objRS.CursorLocation = adUseClient

objRS.Open "select * from tbl_notas order by test" ‘Ordenación para que los números de los test sean correlativos en el eje de categorías

objChart.Type = c.chChartTypeLine

objChart.HasLegend = True

set objChartSpace.DataSource = objRS

objChart.SetData c.chDimSeriesNames, 0, "estudiante"

for each objSeries in objChart.SeriesCollection

objSeries.SetData c.chDimCategories, 0, "test"

objSeries.SetData c.chDimValues, 0, "nota"

next

for each axis in objChart.Axes

axis.HasTitle = True

if axis.Type = c.chCategoryAxis then

axis.Title.Caption = "Test"

else

axis.Title.Caption = "Nota"

end if

next

objChartSpace.ExportPicture fichero, "gif", 800, 500

Response.Write("<center><IMG SRC='gif_tmp_export.gif'>")

objRs.close

set objRS=nothing

conn.close

set conn=nothing

%>

</body></html>

[vito_gris]

bueno tampoco me funciono (realizando una consulta valida a una bd), pero encontre esto y si me funciono el porque no lo se

<%
path=left(Request.ServerVariables("PATH_INFO"),Ins trRev(Request.ServerVariables("PATH_INFO"),"/"))
path=right(path,len(path)-1)
if InStr(path,"/") then
path=left(path,len(path)-1)
end if

Dim catnom(), valor(), caminho
caminho="/"&path

With Server.CreateObject("OWC.Chart")
set c = .constants
With .charts.add
.HasTitle=True
if .HasTitle then
.Title.Caption = "Frutas Hoje"
.Title.Font.Size = 10
.Title.Font.Name = "Tahoma"
.Title.Font.Bold = True
.Title.Font.Italic = False
.Title.Font.Underline = False
end if

.HasLegend = True
if .HasLegend then
.Legend.Font.Size = 10
.Legend.Font.Name = "Tahoma"
.Legend.Font.Bold = False
.Legend.Font.Italic = False
.Legend.Font.Underline = False
end if

tipo=11
Select Case tipo
Case 1
.Type = c.chChartTypeArea
Case 2
.Type = c.chChartTypeAreaStacked
Case 3
.Type = c.chChartTypeBarClustered
Case 4
.Type = c.chChartTypeBarStacked
Case 5
.Type = c.chChartTypeBubble
Case 6
.Type = c.chChartTypeColumnClustered
Case 7
.Type = c.chChartTypeColumnStacked
Case 8
.Type = c.chChartTypeLine
Case 9
.Type = c.chChartTypeLineMarkers
Case 10
.Type = c.chChartTypeLineStacked
Case 11
.Type = c.chChartTypePie
Case Default
'.Type = c.chChartTypeArea3D

'.Type = c.chChartTypeBar3D
'.Type = c.chChartTypeColumn3D
'.Type = c.chChartTypeColumnStacked3D
'.Type = c.chChartTypeCombo
'.Type = c.chChartTypeCombo3D
End Select

x=5
ReDim catnom(x), valor(x)

catnom(0) = "Pera"
valor(0) = 10
catnom(1) = "Maça"
valor(1) = 20
catnom(2) = "Uva"
valor(2) = 10
catnom(3) = "Banana"
valor(3) = 20
catnom(4) = "Kiwi"
valor(4) = 30
catnom(5) = "Laranja"
valor(5) = 20

With .seriescollection.add
.caption = "Frutas"
.setdata c.chdimcategories,c.chdataliteral, catnom
.setdata c.chdimvalues,c.chdataliteral, valor
End With
End With

.border.color = c.chColorNone

Set arquivo=Server.CreateObject("Scripting.FileSystemO bject")
arquivo=arquivo.GetTempname & ".gif"
.ExportPicture Server.MapPath(caminho) &"/"& arquivo, "gif", 200, 200
Response.Write "<img src="""&arquivo&""">"
End With
%>

[univercity]

porque no colocas el scripts completo del que NO TE FUNCIONA, please

slds.

[vito_gris]

Este es el script con el cual tengo problemas:
<%
Set pie = server.CreateObject("MSGraph.Chart")
Set ds = pie.Application.DataSheet
ds.Cells.Clear
pie.Width = 500
pie.Height = 500
ds.Cells(1, 2).Value = "TITI alain"
ds.Cells(2, 2).Value = "11,20"
ds.Cells(1, 3).Value = "vient gérard"
ds.Cells(2, 3).Value = "15"
ds.Cells(1, 4).Value = "TOTO FABRICE"
ds.Cells(2, 4).Value = "17"
ds.Cells(1, 5).Value = "EMILE CLAUDE"
ds.Cells(2, 5).Value = "19"
ds.Cells(1, 6).Value = "BERNARD BERNARD"
ds.Cells(2, 6).Value = "20"
ds.Cells(1, 7).Value = "TUTU ALAIN"
ds.Cells(2, 7).Value = "22"
pie.ChartType = 99
pie.HasLegend = true
pie.HasTitle = true
pie.ChartTitle.Text = "A test Chart"
pie.Legend.Font.Size = 50
pie.Legend.AutoScaleFont = false
pie.ApplyDataLabels
pie.SeriesCollection(1).DataLabels.AutoScaleFont = True
pie.SeriesCollection(1).DataLabels.Font.Size = 8
pie.ChartArea.Interior.ColorIndex = 2
pie.PlotArea.Width = 200
pie.PlotArea.Height = 200
tFile = Server.MapPath("pie.gif")
pie.Export tFile
%>
<img src="pie.gif">

y el erroer es :

Technical Information (for support personnel)

Error Type:
Server object, ASP 0177 (0x80080005)
Server execution failed
/plus_server/g/frafico.asp, line 2

[univercity]

mmmm, no se que decirte a mi me funco a la primera.
definitivamente no tienes instalado el mismo componente, yo por lo menos tengo officce xp y cero royo.

[AlZuwaga]

Por el error 0x80080005, revisá esto: http://www.aspfaq.com/show.asp?id=2134

[amguajardo]

Buenos Dias a todos

Mi problema es que no puedo cambiar, o no se como hacerlo, el tamaño de la letra de los ejes X e Y, es decir, quiero reducir el tamaño del font pero no se donde moverle.

Agradesco mucho su ayuda.

Saludos

[NicolasVai]

Hola a todos. A ver si alguien sabe esto: Genero el grafico y me aparece una imagen con una cruz como cuando pones un link a una imagen que no existe, le doy actualizar un par de veces a la pagina y lo genera perfecto. Que podra ser?

Gracias

[orharo2003]

mmm cuantas visitas ha tenido este tema. y eso que ya esta media obsoleta esa técnica.