Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

omm62

Soma de valores

Por , em ASP Clássico

Recommended Posts

Marcelo Barcellos    0

Marcelo Barcellos
Postado

Cara tem vários possíveis erros, mas tente assim:

 

Troque isto

ASP

[*]

 

[*]Dim Rstotal

 

[*]Set Rstotal = Server.CreateObject("ADODB.Recordset")

 

[*]Rstotal.open Sql, Objconn, AdOpenStaic

 

[*]

 

Por isso

 

ASP

[*]

 

[*]Dim Rstotal

 

[*]Set Rstotal = Server.CreateObject("ADODB.Recordset")

 

[*]RsTotal.CursorLocation = 3

 

[*]Rstotal.open Sql, Objconn, 2,2,1

 

[*]

 

e Isso

ASP

[*]

 

[*]Redim Vetortt1(numregistros)

 

[*]Redim Vetortt2(numregistros)

 

[*]Redim Vetortt3(numregistros)

 

[*]

Por isso

ASP

[*]

 

[*]Redim Vetortt1(RsTotal.RecordCount - 1)

 

[*]Redim Vetortt2(RsTotal.RecordCount - 1)

 

[*]Redim Vetortt3(RsTotal.RecordCount - 1)

 

[*]

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marcelo Barcellos    0

Marcelo Barcellos
Postado

Cara, Eu refiz toda a página.

Coloque assim no seu código.

Utilizando somente Recordsets, os Array só vao complicar !

ASP

[*]

 

[*]<%@LANGUAGE="VBSCRIPT"%> 

 

[*]<%

 

[*]set conexao_ssub = Server.CreateObject("ADODB.Connection")

 

[*]conexao_ssub.ConnectionString="dsn=prev_rancho;uid=albatroz;pwd=albatroz;"

 

[*]conexao_ssub.open

 

[*]

 

[*]SQL = "Select SUM(t_of_sem) AS soma1, SUM(t_sosgt_sem) AS soma2, SUM(t_cbsd_sem) AS soma3 WHERE semana ='" & Request.Form("txt_semana") & "'"

 

[*]Set ttz = conexao_ssub.execute(sql)

 

[*]%>

 

[*]

 

[*]<html>

 

[*]<head>

 

[*]<title>::.. Consulta Previsões ..::</title>

 

[*]<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

 

[*]</head>

 

[*]<body background="../../Imagens/fundo_ssub.png" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

 

[*]<div align="center">

 

[*]<p align="center"> </p>

 

[*]<table width="70%" border="0" align="center">

 

[*]<tr bordercolor="#000000"> 

 

[*]<td height="22" colspan="3"><font color="#000066" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#FF0000"> 

 

[*]</font></font> <div align="center"><strong><font color="#000066" size="2" face="Verdana, Arial, Helvetica, sans-serif">SISTEMA 

 

[*]DE PREVISÃO DE RANCHO</font></strong></div></td>

 

[*]</tr>

 

[*]<tr bordercolor="#000000"> 

 

[*]<td height="22"> </td>

 

[*]<td colspan="2"> </td>

 

[*]</tr>

 

[*]<tr bordercolor="#000000"> 

 

[*]<td height="22" colspan="3"><div align="center"><font color="#000066"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> 

 

[*]CONSULTA DE PREVISÕES </font></strong></font></div></td>

 

[*]</tr>

 

[*]<tr bordercolor="#000000"> 

 

[*]<td height="22"> </td>

 

[*]<td colspan="2"> </td>

 

[*]</tr>

 

[*]<tr bordercolor="#000000"> 

 

[*]<td height="22" colspan="3"> <div align="center"><font color="#000066" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>TOTALIZAÇÃO 

 

[*]SEMANAL </strong></font></div></td>

 

[*]</tr>

 

[*]<tr> 

 

[*]<td colspan="3"><div align="center"><font color="#000066" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Semana 

 

[*]de</strong>: <font color="#FF0000"> </font><font color="#000066" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#FF0000"> 

 

[*]</font></font></font></div></td>

 

[*]</tr>

 

[*]<tr> 

 

[*]<td width="15%"> <div align="left"><strong><font color="#000066" size="1" face="Verdana, Arial, Helvetica, sans-serif">OFICIAIS</font> 

 

[*]</strong></div></td>

 

[*]<td width="25%"> <div align="center"><strong><font color="#000066" size="1" face="Verdana, Arial, Helvetica, sans-serif">SO/SGT</font></strong></div></td>

 

[*]<td width="29%"> <div align="center"><strong><font color="#000066" size="1" face="Verdana, Arial, Helvetica, sans-serif">CB/SD/TF 

 

[*]</font></strong></div></td>

 

[*]</tr>

 

[*]<tr> 

 

[*]<td><div align="left"><strong><font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=ttz("SOMA1")%> 

 

[*]</font></strong></div></td>

 

[*]<td><div align="center"> 

 

[*]<div align="center"><strong><font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=ttz("SOMA2")%> 

 

[*]</font></strong></div>

 

[*]<strong></strong></div></td>

 

[*]<td><div align="center"><strong><font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=ttz("SOMA3")%> 

 

[*]</font></strong></div></td>

 

[*]</tr>

 

[*]<tr> 

 

[*]<td>  </td>

 

[*]<td> </td>

 

[*]<td><strong><font color="#FF0033" size="1" face="Verdana, Arial, Helvetica, sans-serif"></font></strong></td>

 

[*]</tr>

 

[*]</table>

 

[*]

 

[*]<div align="left"></div>

 

[*]<p align="left">  </p>

 

[*]</div>

 

[*]</body>

 

[*]</html>

 

[*]<%

 

[*]ttz.Close

 

[*]Set ttz = nothing

 

[*]conexao_ssub.Close

 

[*]Set conexao_ssub = nothing

 

[*]%>

 

[*]

Compartilhar este post

Link para o post
Compartilhar em outros sites

omm62    1

omm62
Postado

Meu amigo, q bronca... vê só o erro agora...Erro de tempo de execução do Microsoft VBScript erro '800a0007' Memória insuficiente /Previsoes/Consulta/le_default.asp, line 23 Se vç prefere q eu passe a usar aquele cód sem vetores eh soh dizer...

Compartilhar este post

Link para o post
Compartilhar em outros sites

omm62    1

omm62
Postado

Bem, vamo lá... O erro agora com o q vç me passou:Microsoft OLE DB Provider for ODBC Drivers erro '80040e14' [MySQL][ODBC 3.51 Driver][mysqld-4.0.13-nt]Você tem um erro de sintaxe no seu SQL próximo a 'WHERE semana ='13/06/05-17/06/05'' na linha 1 /Previsoes/Consulta/le_default_a.asp, line 15 O parâmetro semana tô enviando com POST...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marcelo Barcellos    0

Marcelo Barcellos
Postado

Quais os valores q tem dentro deste campo.???Tá meio estranho esse valor do campo text "'13/06/05-17/06/05''.você guarda as informações no Banco assim mesmo ?você está usando as ASPAS simples do jeito que te passei ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

omm62    1

omm62
Postado

As informações são armazenadas no campo nesse formato "d1d1/mm/aa-d2d2/mm/aa" q refere-se a um intervalo de dias. O cód tá exatamento como vç me mandou...SQL = "Select SUM(t_of_sem) AS soma1, SUM(t_sosgt_sem) AS soma2, SUM(t_cbsd_sem) AS soma3 WHERE semana ='" & Request.Form("txt_semana") & "'"Set ttz = conexao_ssub.execute(SQL)

Compartilhar este post

Link para o post
Compartilhar em outros sites

omm62    1

omm62
Postado

Nada cara, q bronca...Microsoft OLE DB Provider for ODBC Drivers erro '80040e14' [MySQL][ODBC 3.51 Driver][mysqld-4.0.13-nt]Você tem um erro de sintaxe no seu SQL próximo a 'semana ='13/06/05-17/06/05'' na linha 1 /Previsoes/Consulta/le_default_a.asp, line 15

Compartilhar este post

Link para o post
Compartilhar em outros sites

omm62    1

omm62
Postado

Colega, vç ñ sabe... Esse tempo todo nós ñ vimos q tava faltando FROM tabela ahahah... desculpa cara e muito obrigado pela força.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Colega,  vç ñ sabe...

  Esse tempo todo nós ñ vimos q tava faltando FROM tabela ahahah...

 

    desculpa cara e muito obrigado pela força.

muito bem observado, eheheh

 

e toma procurar erro no WHERE...

 

as isso acontece comigo tb http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito