Ir para conteúdo

POWERED BY:

Arquivado

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

fhermel

busca e soma

Por , em ASP Clássico

Recommended Posts

fhermel    0

fhermel
Postado

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif Ai galerinha do ASP

 

Estou fazendo um code que busca e some mais esta dando um erro da uma olha no code.

Ele buca mais naum soma da este erro

ADODB.Fields error '800a0cc1' ADO não pôde encontrar o objeto na coleção correspondente ao nome ou à referência ordinal solicitada pelo aplicativo. /vendas.asp, line 110

<%Dim objConn, objrs, strsql, strsql_2, id, texto, olha_foneid = request("id")Set objConn = server.createobject("ADODB.Connection")objConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &Server.MapPath("bds/cadastro.mdb"))set objrs=server.createobject("adodb.recordset")strsql= "SELECT * from compra where comcli = '"&id&"' order by data"objrs.Open strsql, objConnIf objrs.EOF ThenResponse.Write("<center><b>Nenhum registro foi encontrado</b></center>")Elseend ifstrsql= "SELECT SUM(compra.valor) AS tvalor, SUM(compra.qto) AS tqto FROM compra where comcli='"&id&"'"Response.Write strsql%>

VALEUZIS

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Verifique se não é algum erro de digitação, pois a mensagem de erro está claramente informando que o campo não foi encontrado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

lfbadwolf    0

lfbadwolf
Postado

Olá, Verifique se as variaveis estao escritas corretamente nas consultas, posis você esta conparando COMCLI suponho que seja CODCLI.Verifique se esta pegando um valor para ide no codigostrsql= "SELECT SUM(compra.valor) AS tvalor, SUM(compra.qto) AS tqto FROM compra where comcli='"&id&"'"não precisa colocar SUM(compra.valor) somente SUM (VALOR).E na ultima linha você esta imprimindo a variavel strsql para que??? ela ainda não foi executadaEspero ter ajudado

Compartilhar este post

Link para o post
Compartilhar em outros sites

fhermel    0

fhermel
Postado

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif Ai galerinha agora esta OK busca e da o total das coluna no final

 

o code esta abaixo para teste

 

VALEUZIS

 

 

<%Dim objConn, objrs, strsql, id, texto, olha_foneid = request("id")Set objConn = server.createobject("ADODB.Connection")objConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &Server.MapPath("bds/cadastro.mdb"))set objrs=server.createobject("adodb.recordset")strsql= "SELECT * from compra where comcli = '"&id&"' order by data"objrs.Open strsql, objConnIf objrs.EOF ThenResponse.Write("<center><b>Nenhum registro foi encontrado</b></center>")Elseend ifset RS=server.createobject("adodb.recordset")strsql_2= "SELECT SUM(compra.valor) AS tvalor, SUM(compra.qto) AS tqto FROM compra where comcli='"&id&"'"'Response.Write strsqlRS.Open strsql_2, objConnif RS.EOF thenResponse.Write("<center><b>Nenhum registro foi encontrado</b></center>")elseend if%><html><head>	<title>Untitled</title></head><body><%do while not objRS.eof%>  VALOR: <b><%=objRS("valor")%></b>  QUANTIDADE: <b><%=objRS("qto")%></b><br>  <%objrs.movenextloop%><br>  VALOR: <b><%=RS("tvalor")%></b>  QUANTIDADE: <b><%=RS("tqto")%></b></body></html><%objconn.closeset objconn = nothing%>

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