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

omm62    1

omm62
Postado

Olá amigos, tô c/ dificuldades. Sou iniciante em asp. O problema é o seguinte:imaginem um BD com três colunas de valores v1, v2 e v3 e um outro de setor. como faço para pesquisar no BD todos os valores v1, v2 e v3 de todos os setores e exibí-los na tela por valor, assim total_v1 - total_v2 - total_v3 em ASP.Meu BD é em Mysql. Grato antecipadamente. :wacko:

Compartilhar este post

Link para o post
Compartilhar em outros sites

omm62    1

omm62
Postado

Ok. Mas, o SELECT aceita >> SELECT SUM(V1), SUM(V2) FROM tabela WHERE condicao??? para exibir na tela será : Response.write(Request(SUM(v1))) ??? terei q armazenar esses valores em variável para depois exibí-las ???

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

usa aliasSELECT SUM(V1) AS SOMA1, SUM(V2) AS SOMA2 FROM tabela WHERE condicaoe pega com RS("SOMA1") e tal

Compartilhar este post

Link para o post
Compartilhar em outros sites

omm62    1

omm62
Postado

Amigo, ainda tô enrrolado... Vê o cód q tô usando pra v se vç precebe o erro... Tá dando o erro: Há um problema c/ essa página e ela ñ pode ser exibida...Grato mais uma vez...<%@LANGUAGE="VBSCRIPT"%> <% set conexao_ssub = Server.CreateObject("ADODB.Connection")conexao_ssub.ConnectionString="DSN=prev_rancho"conexao_ssub.open%> <%Set sql = "Select SUM(t_of_sem) AS soma1, SUM(t_sosgt_sem) AS soma2, " & sql = "Select 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"><%=SOMA1%> </font></strong></div></td> <td><div align="center"> <div align="center"><strong><font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=SOMA2%> </font></strong></div> <strong></strong></div></td> <td><div align="center"><strong><font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=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>

Compartilhar este post

Link para o post
Compartilhar em outros sites

omm62    1

omm62
Postado

Ok! arrumei a string SQL. O cod agora é esse e ainda ñ funciona.Já testei se podia ser erro na conexao com o BD. Ao que parece ñ eh.Tô tentando também com vetores. O cód tá logo a seguir do abaixo...Obrigadão...<%@LANGUAGE="VBSCRIPT"%> <% set conexao_ssub = Server.CreateObject("ADODB.Connection")conexao_ssub.ConnectionString="dsn=prev_rancho;uid=albatroz;pwd=albatroz;"conexao_ssub.open%> <%Set 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"><%=SOMA1%> </font></strong></div></td><td><div align="center"> <div align="center"><strong><font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=SOMA2%> </font></strong></div><strong></strong></div></td><td><div align="center"><strong><font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=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>COD USANDO VETORES<%@LANGUAGE="VBSCRIPT"%> <% ' Abrindo a conexao com o BD Dim ObjConnSet ObjConn = Server.CreateObject("ADODB.Connection")ObjConn.open "dsn=prev_rancho;uid=albatroz;pwd=albatroz;"%> <%' Definindo a cláusula SQLDim SqlSet Sql = "SELECT * FROM prev_rancho.tb_previsao WHERE semana =" & Request.Form("txt_semana") %><% Dim RstotalSet Rstotal = Server.CreateObject("ADODB.Recordset")Rstotal.open Sql, Objconn, AdOpenStaic%><%'Definição dos vetores que irão armazenar os totaisDim Vetortt1(), Vetortt2(), Vetortt3()Redim Vetortt1(numregistros)Redim Vetortt2(numregistros)Redim Vetortt3(numregistros)Dim ii = 0 to numregistros - 1 Vetortt1(i) = Rstotal("t_of_sem") Vetortt2(i) = Rstotal("t_sosgt_sem") Vetortt3(i) = Rstotal("t_cbsd_sem") Rstotal.movenext Next%><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"><%=Vetorstt1%> </font></strong></div></td> <td><div align="center"> <div align="center"><strong><font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif"> </font></strong></div> <strong><%=Vetortt2%></strong></div></td> <td><div align="center"><strong><font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=Vetortt3%> </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><% Rstotal.closeSet Rstotal=nothing%><%Objconn.closeSet Objconn=Nothing%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Qual o erro que está dando ?

boa pergunta pois a melhor forma de ser ajudado eh colocar o trecho de codigo(não tudo) onde ocorre o erro e a descrição tb

Compartilhar este post

Link para o post
Compartilhar em outros sites

omm62    1

omm62
Postado

Seguinte:

erro 500 - Erro interno do servidor. Só q quando testo a conexao criando um recordset pelo dwmx a página abre normal... Ou seja a conexao tá funcionando...

O acesso ao BD tá liberado com a devidas permissões... Só me leva a crer ser erro no cód.

E aí... tô http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

Grato ...

Compartilhar este post

Link para o post
Compartilhar em outros sites

omm62    1

omm62
Postado

O erro:Erro de compilação do Microsoft VBScript erro '800a0401' Fim da instrução esperado /Previsoes/Consulta/le_default.asp, line 22 i = 0 to numregistros - 1------^

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

os parenteses nunca me fizeram falta mas o FOR não pode esquecer não, ehehehsenão o compilador entende que eh uma atribuição ai acaba aonde ele apontou mesmo...

Compartilhar este post

Link para o post
Compartilhar em outros sites

omm62    1

omm62
Postado

novo erro:Erro de tempo de execução do Microsoft VBScript erro '800a01a8' Objeto necessário: '[string: "SELECT * FROM prev_r"]' /Previsoes/Consulta/le_default.asp, line 11

Compartilhar este post

Link para o post
Compartilhar em outros sites

omm62    1

omm62
Postado

Ok amigo. Desculpe tá te ocupando com isso, mas deu o seguinte erro agora:Objeto Response erro 'ASP 0106 : 80020005' Tipo incompatível /Previsoes/Consulta/le_default.asp, line 0 Um tipo de dados não identificado foi encontrado. Será q tá linha em q exibe o resultado na tela??? :unsure:

Compartilhar este post

Link para o post
Compartilhar em outros sites

omm62    1

omm62
Postado

Ñ funcionou. Deu o mesmo erro... Olha só, retirei a cláusula condicional pra testar e deu o mesmo erro.

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