Ir para conteúdo
Fórum Script Brasil
  • 0

Mais Uma Duvida De Soma


fhermel

Pergunta

smile.gif 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

Link para o comentário
Compartilhar em outros sites

8 respostass a esta questão

Posts Recomendados

  • 0

Qual destas linhas é a 110?

Link para o comentário
Compartilhar em outros sites

  • 0

Então,

<%=objrs("tvalor")%>

e

<%=objrs("tqto")%>

são objetos/campos existentes na tabela?

Link para o comentário
Compartilhar em outros sites

  • 0
Sim da forma correta ???

han?

o que você quis dizeR?

Link para o comentário
Compartilhar em outros sites

  • 0

wink.gif 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
%>

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...