Mais Uma Duvida De Soma

fhermel · Setembro 26, 2004

Ai galerinha do ASP

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

Ele busca mais não 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_fone
id = 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, objConn
If objrs.EOF Then
Response.Write("<center><b>Nenhum registro foi encontrado</b></center>")
Else
end if
strsql= "SELECT SUM(compra.valor) AS tvalor, SUM(compra.quanto) AS tqto FROM compra where comcli='"&id&"'"
Response.Write strsql
%>

VALEUZIS

Graymalkin · Setembro 27, 2004

Os nomes dos campos estão corretos? E, pelo que vi, você não está abrindo um recordset com a segunda SQL, mas sim apenas escrevendo-a.

Abraços,

Graymalkin

fhermel · Setembro 27, 2004

Sim os nomes estão corretos , mais sera que não é a orden do SQL ???

Primeiro ele busca e depois soma , na parte que busca ele esta OK mais quando é para somar da aquele erro.

Mais se alterado ele soma OK mais não busca e da o mesmo erro ?

que duvida cruel

VALEUZIS

dark0 · Setembro 27, 2004

Qual destas linhas é a 110?

fhermel · Setembro 27, 2004

esta abaixo

&nbsp;&nbsp;VALOR: <b><%=objrs("tvalor")%></b>&nbsp;&nbsp;QUANTIDADE: <b><%=objrs("tqto")%></b>

dark0 · Setembro 27, 2004

Então,

<%=objrs("tvalor")%>

e

<%=objrs("tqto")%>

são objetos/campos existentes na tabela?

fhermel · Setembro 27, 2004

Sim da forma correta ???

dark0 · Setembro 27, 2004

Sim da forma correta ???

han?

o que você quis dizeR?

fhermel · Setembro 27, 2004

Ai galerinha agora esta OK busca e da o total das colunas no final

o code esta abaixo para teste

VALEUZIS Dark0

<%
Dim objConn, objrs, strsql, id, texto, olha_fone
id = 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, objConn

If objrs.EOF Then
Response.Write("<center><b>Nenhum registro foi encontrado</b></center>")
Else
end if

set RS=server.createobject("adodb.recordset")
strsql_2= "SELECT SUM(compra.valor) AS tvalor, SUM(compra.quanto) AS tqto FROM compra where comcli='"&id&"'"
'Response.Write strsql
RS.Open strsql_2, objConn

if RS.EOF then
Response.Write("<center><b>Nenhum registro foi encontrado</b></center>")
else
end if
%>
<html>
<head>
	<title>Untitled</title>
</head>
<body>
<%do while not objRS.eof%>
&nbsp;&nbsp;VALOR: <b><%=objRS("valor")%></b>&nbsp;&nbsp;QUANTIDADE: <b><%=objRS("quanto")%></b><br>
  <%objrs.movenext
loop%>
<br>
&nbsp;&nbsp;VALOR: <b><%=RS("tvalor")%></b>&nbsp;&nbsp;QUANTIDADE: <b><%=RS("tqto")%></b>
</body>
</html>
<%
objconn.close
set objconn = nothing
%>

Entrar

Mais Uma Duvida De Soma

Pergunta

fhermel

Link para o comentário

Compartilhar em outros sites

8 respostass a esta questão

Posts Recomendados

Graymalkin

Link para o comentário

Compartilhar em outros sites

fhermel

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

fhermel

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

fhermel

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

fhermel

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades