09/08/2002, 15:47
|
| | | Fecha de Ingreso: julio-2002
Mensajes: 219
Antigüedad: 22 años, 10 meses Puntos: 0 | |
| Re: graficar datos
Si te refieres a colocar los datos tipo tabla en panatalla.
<%@ Language=VBScript %>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
'Obtener los datos de la tabla
'Variables a usar
Dim objCon, strSQL
'Conectar a la Base de datos
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("BDPrueba.mdb"))
'Obtener todos los datos de la tabla "MiTabla"
strSQL = "SELECT * FROM MiTabla"
Set RS = objCon.Execute(strSQL)
%>
<table border="0" cellspacing="0" cellpadding="0" bgcolor="#e6e6e6" borderColor="#cccccc" width="800">
<tr>
<th class="columnHdr" id="contextualnav" align="center" bgcolor="#336699" nowrap>
<font color="#FFFFFF">
&nbsp;MES&nbsp;
</font>
</th>
<td height="1" width="4" bgcolor="#336699" nowrap><spacer type="block" width="4" height="1"></td>
<td height="1" width="1" bgcolor="#cccccc" nowrap><spacer type="block" width="1" height="1"></td>
<td height="1" width="4" bgcolor="#336699" nowrap><spacer type="block" width="4" height="1"></td>
<th class="columnHdr" id="contextualnav" align="center" bgcolor="#336699" nowrap>
<font color="#FFFFFF">
&nbsp;MERCADO&nbsp;
</font>
</th>
<td height="1" width="4" bgcolor="#336699" nowrap><spacer type="block" width="4" height="1"></td>
<td height="1" width="1" bgcolor="#cccccc" nowrap><spacer type="block" width="1" height="1"></td>
<td height="1" width="4" bgcolor="#336699" nowrap><spacer type="block" width="4" height="1"></td>
<th class="columnHdr" id="contextualnav" align="center" bgcolor="#336699" nowrap>
<font color="#FFFFFF">
&nbsp;TOTAL&nbsp;
</font>
</th>
</tr>
</b>
<%
while (not RS.Eof)
Dim vMes, vMercado, vTotal
vacio = false
vMes = RS("mes")
vMercado = RS("mercado")
vTotal = RS("total")
RS.MoveNext
%>
<tr>
<td bgcolor="#e6e6e6" align="center">
<font color="#000000">
<%=vMes%>
</font>
....continua |