Fredcm

ola. o codigo não funciono da um erro e fala que terimo de forma espearada Acredito que seja a " fechando depois do WHERE mas ai passo pra ' e não funciona do mesmo jeito

ola ta ai o pedaço da conexão que faz uma busca na tabela Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open strCon Set objRS = Server.CreateObject("ADODB.Recordset") objRS.CursorLocation = 3 objRS.CursorType = 2 objRS.LockType = 1 objRS.CacheSize = RegPorPag strQ = "SELECT * FROM vendas" If Trim(Request("string_busca")) <> "" Then If Trim(Request("campo_busca")) <> "" Then strQ = strQ & " Where " & Trim(Request("campo_busca")) & " LIKE '%" & Trim(Request("string_busca")) & "%'" Else strQ = strQ & " Where 1 <> 1" strQ = strQ & " Or id_venda LIKE '%" & Trim(Request("string_busca")) & "%'" strQ = strQ & " Or id_cliente LIKE '%" & Trim(Request("string_busca")) & "%'" strQ = strQ & " Or Nome LIKE '%" & Trim(Request("string_busca")) & "%'" strQ = strQ & " Or produtos LIKE '%" & Trim(Request("string_busca")) & "%'" strQ = strQ & " Or preço LIKE '%" & Trim(Request("string_busca")) & "%'" End If End If If Trim(Request.QueryString("Ordem")) <> "" Then strQ = strQ & " ORDER BY " & Request.QueryString("Ordem") End If objRS.Open strQ, objCon, , , &H0001 objRS.PageSize = RegPorPag Set objRS_indice = Server.CreateObject("ADODB.Recordset") objRS_indice.CursorLocation = 2 objRS_indice.CursorType = 0 objRS_indice.LockType = 2 strQ_indice = "SELECT * FROM vendas WHERE 1 <> 1" objRS_indice.Open strQ_indice, objCon, , , &H0001 indice = "" For Each item In objRS_indice.Fields If item.properties("IsAutoIncrement") = True Then indice = item.name Exit For End If Next objRS_indice.Close Set objRS_indice = Nothing Set strQ_indice = Nothing Set objRS.ActiveConnection = Nothing objCon.Close Set objCon = Nothing %> vlw!!!!!!

Boa noite EDIT. Funciono parte. ele fex a conta mas conto todos que tão cadastradono na tabela <% <% Set objCon1 = Server.CreateObject("ADODB.Connection") objCon1.Open strCon strsql1 = "select SUM (preço) as total from vendas WHERE ' & id_cliente & '" Set ObjRs1 = objCon1.Execute(strsql1 ) %> <TD>Total <% response.write ObjRs1("total") %></TD> preciso que apareça somente os da consulta Vlw!!!!!!!! PS. tive que troca as aspas duplas pelas aspas simples (" por ') no campo id pra poder rodar o codigo o preço ta sem "Ç" eu colo "c" mas aparece "ç" strsql1 = "select SUM (preço)

Ola a todos. Pessoal to com o mesmo probla mas não sei como fazer, sou iniciante. vo tentar explicar resumido tenho um db access que tem uma tabela chamada VENDAS a tabela VENDAS tem os campos (ID | NOME | PRODUTO| VALOR) quando faço a venda preencho com o id do cliente | nome do cliente | produto vendido | Valor e é cadastrado no db. beleza. tenho uma pagina que faz uma consulta pelo ID do cliente e mostra tudo que ele já compro, ex: Nome | Produto | Valor José | Meia | R$ 5,00 José | Sapato | R$ 15,00 eu gostaria de adicinar uma campo total embaixo dos valores mas não tenho nem ideia de como fazer o pedaço que monta a tabela é esse <% For Cont = 1 to objRS.PageSize %> <TR class=exibe_registros onMouseOver="this.style.backgroundColor='<%=cor_linha_selecionada%>';" onMouseOut="this.style.backgroundColor='';"> Response.Write " </TD>" Response.Write "</FORM>" End If %> <TD><%=(objRS.Fields.Item("Nome").Value)%></TD> <TD><%=(objRS.Fields.Item("produtos").Value)%></TD> <TD><%=(objRS.Fields.Item("preço").Value)%></TD> </TR> <% objRS.MoveNext If objRS.Eof then Exit For Next Set Cont = Nothing %> o valor já esta em moeda no banco de dados eu gostaria que ficasse assim Nome | Produto | Valor José | Meia | R$ 5,00 José | Sapato | R$ 15,00 Total | R$ 20,00 PS: pode ser 2 resultados ou 10 depende da quantidade de resposta da consulta que eu fizer!!!! vlw galera!!!!!!!!!!!!!

era isso mesmo!!!!! deu certo fize dessa forma o link <a href="parcela_inclusao.asp?id_cliente=<%=(objRS.Fields.Item("id_cliente").Value)%>&nome=<%=(objRS.Fields.Item("nome").Value)%>">Parcelas</a> na outra pagina que é o form eu fiz assim <% id = Request.QueryString("id_cliente") nome = Request.QueryString("nome") %> ai dentro da propiedade value do campo do formulario eu coloquei <INPUT style="width=350" type="text" name="id_cliente" maxlength="255" value="<% Response.Write id %>" onKeyPress="desabilita_cor(this)" df_verificar="sim" class=campos_formulario> ]<INPUT style="width=350" type="text" name="id_cliente" maxlength="255" value="<% Response.Write nome %>" onKeyPress="desabilita_cor(this)" df_verificar="sim" class=campos_formulario> muito obrigado pela ajuda !!!!!!! sepre que tiver novas duvidas e isso sera logo eu acho eu posto ai vlw mesmo !!!!!!!

Entendi essa ideia sua e funciona, so que acho que falei de mais e me enrolei. vo fala em poucas palavar tenho um link html <a href="pagina.asp"> quando clico nele ele abre uma nova pagina em uma nova janela, que é um formulario para o cadastro das parcelas ok? o que eu gostaria. que quando clicar no link abra o form com o campo id_cliente peenchido por um valor que o link mando. eu tentei esse link mas não funfo. <a href="parcela_inclusao.asp?id_cliente=<%=(objRS.Fields.Item("Nome").Value)%>">Parcelas</a> eu preciso que o link mande a variavel, para o forme entende??? vlw pela ajuda!!!! Obrigado.