fhermel

Membros

Perfil Explorar Conteúdo

Total de itens
36
Registro em
Julho 12, 2003
Última visita
Novembro 11, 2012

Tipo de Conteúdo

Todas Atividades

Perfis

Fóruns

Tudo que fhermel postou

Soma Em Bd Simples Ou Naum ?!?!

pergunta respondeu ao fhermel de fhermel em ASP

Nada broder Da uma olhada no meu code ai <% Dim objConn, objrs, strsql Set objConn = server.createobject("ADODB.Connection") objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("bds/cadastro.mdb")) set objrs2 = server.createobject("adodb.recordset") 'strsql2 ="SELECT * FROM compra" strsql2 = "SELECT SUM(valor) AS tvalor, SUM(quanto) AS tqt FROM compra" objrs2.open strsql2, objconn,3,1 %> <html> <head> <STYLE> BODY { SCROLLBAR-FACE-COLOR: #000000; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; SCROLLBAR-SHADOW-COLOR: #ffffff; SCROLLBAR-3DLIGHT-COLOR: #000000; SCROLLBAR-ARROW-COLOR: #ffffff; SCROLLBAR-TRACK-COLOR: #ffffff; SCROLLBAR-DARKSHADOW-COLOR: #000000 } </STYLE> <style type="text/css"> a{font-family:verdana;font-size:8pt;color:#ffffff;text-decoration:nome;} input{font-family:verdana;font-size:8pt;color:#ffffff;background-color:#000066;} </style> </head> <body bgcolor="#E0E0E0" ftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <%do while not objrs2.eof%> <%=objrs2("valor")%> | <%=objrs2("tipo")%> | <%=objrs2("data")%> | <%=objrs2("quanto")%> <%=objrs2("tvalor")%>| | | <%=objrs2("tqt")%> <%objrs2.movenext loop%> <% objconn.close set objconn = nothing %> </body> </html> assim como esta da este erro Microsoft JET Database Engine error '80040e07' Tipo de dados imcompatível na expressão de critério. /teste.asp, line 8
- Setembro 19, 2004
- 16 respostas
Soma Em Bd Simples Ou Naum ?!?!

pergunta respondeu ao fhermel de fhermel em ASP

Sim tanto a coluna VALOR quanto a coluna quanto são numeros Mais não tem nenhum parametro semdo enviado apena umapagina que busca no BD e mostra o total tipo isto Valor | Quantidade 10 | 1 20 | 2 total 30 | 3 Valeuzis
- Setembro 19, 2004
- 16 respostas
Soma Em Bd Simples Ou Naum ?!?!

pergunta respondeu ao fhermel de fhermel em ASP

pior q sim amigo o erro é este Microsoft OLE DB Provider for ODBC Drivers error '80040e07' [Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério. /teste.asp, line 8 a linha 7 e 8 são estas 7 - strsql2 = "select SUM(valor) AS tvalor, SUM(quanto) as tqt from compra" 8 - objrs2.open strsql2, objconn,3,2
- Setembro 19, 2004
- 16 respostas
Soma Em Bd Simples Ou Naum ?!?!

pergunta respondeu ao fhermel de fhermel em ASP

Valeu amigo mais não deu era assim o code ??? <% Dim objConn, objrs, strsql Set objConn = server.createobject("ADODB.Connection") objConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &Server.MapPath("bds/cadastro.mdb")) set objrs2 = server.createobject("adodb.recordset") strsql2 = "select SUM(valor) AS tvalor, SUM(quanto) as tqt from compra" objrs2.open strsql2, objconn, 3, 2 %> e mostra assim <%=objrs2("tvalor")%> <%=objrs2("tqt")%>
- Setembro 19, 2004
- 16 respostas
Confirmação Ativa De Cadastro

pergunta respondeu ao ffppereira de fhermel em ASP

Ai meu broder Usa alguma coisa tipo isto "CDONTS" <% Dim Email, str_nome, str_remetente, str_destinatario, str_assunto, str_mensagem, razao, cnpj, inscr, ativ, nom_fanta, endereco, num, compl, bairro, cep, cid, uf str_nome = trim(request.form("razao")) str_remetente = trim(request.form("email")) str_destinatario = trim(request.form("xxxxxxx@yyyy.com.br")) str_assunto = "Cadastro" str_mensagem = "Empresa: " & razao & " Cnpj: " & cnpj & " Inscrição Estadual: " & inscr & " Ramo: " & ativ & " Nome: " & nom_fanta & " Endereço: " & endereco & ", nº " & num & " " & compl & " Bairro: " & bairro & " CEP: " & cep & " Cidade: " & cid & " Estado: " & uf Set Email = Server.CreateObject("CDONTS.NewMail") Email.from = str_nome & "(" & email & ")" Email.to = str_destinatario Email.Subject = str_assunto Email.bodyformat = 0 Email.mailformat = 0 Email.Body = str_mensagem Email.Send Set Email = Nothing response.write "<h2> Mensagem enviada com sucesso...</h2>" response.redirect("ok.html") %>
- Setembro 18, 2004
- 7 respostas
PAGINAÇÃO simples

uma questão postou fhermel Repositório de Scripts - ASP

Ai Galerinha do ASP Tenho este code de PAGINAÇÃO que é muito bom simples e bem funcional. espero ajudar de alguma maneira <% ' Definindo o caminho do banco de dados caminho = "bds/cadastro.mdb" ' Fazendo a conexão com o banco de dados (paginacao.mdb) set objconn = Server.CreateObject("ADODB.Connection") DSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(caminho) objconn.Open DSN ' String SQL para consulta SQL = "select * from cadastro order by cliente" ' Abrindo o registro SET objRS = Server.CreateObject("ADODB.Recordset") objRS.Open SQL,objconn,3 ' Se não encontrar nada escreve a mensagem ' Senão lista os registros If objRS.EOF Then Response.Write("Nenhum registro foi encontrado") Else ' Definindo o número de registros por página objRS.PageSize = 10 ' Recupera o valor da variável pagina pagina = Request.QueryString("pagina") ' Se a variável pagina for vazio, indica que a página sera a primeira ' Senão a variável pagina recebe o valor da página corrente, definida acima If pagina = "" Then objRS.AbsolutePage = 1 pagina = 1 Else objRS.AbsolutePage = pagina End If %> <% ' Imprime o número de registros, o total de páginas e a página atual Response.Write("<table><tr><td>Foram encontrados" & objRS.RecordCount & " registros" & vbcrlf ) Response.Write(" Mostrando página " & pagina & " de " & objRS.PageCount & "" & vbcrlf ) Response.Write(" Busca Avançada <a href='#' onClick=javascript:window.open('../busca_avc.asp','','width=200,height=50,scrollbars=no, resizable=no,left=00,top=0');>aqui</a></td></tr></table>") %> <% ' Criando a barra de navegação ' Se a variável pagina for maior que 1 então imprime o botão Anterior com link ' Senão imprime sem link If CInt(pagina) > 1 Then Response.Write("<center><a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina-1 & "'>Anterior</a> ") Else Response.Write("<center>Anterior") End If ' Lista todas as páginas encontradas if objRs.PageCount < 11 then For i = 1 To objRS.PageCount response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ") Next end if if objRs.PageCount > 10 then inicio=pagina fim=pagina + 9 tot = pagina + 9 if tot > ObjRS.PageCount then inicio = pagina-((pagina+9)-ObjRs.PageCount) fim = inicio+9 end if for i = inicio to fim response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ") next end if ' Se a variável pagina for menor que o total de páginas então imprime o botão Próxima com link ' Senão imprime sem link If CInt(pagina) < objRS.PageCount Then Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina+1 & "'>Próxima</a></center>") Else Response.Write("Próxima</center>") End If End If %> <%While Not objRS.EOF AND cont < objRS.PageSize%> <tr bgcolor="#0099CC" bordercolor="0"> <td height="7" width="110" align="left"><%=objRS("cliente")%></td> <td height="7" width="110" align="center"><%=objRS("fone")%></td> <td height="7" width="83" align="center"><%=objRS("endereco")%></td> <td height="7" width="70" align="center"><%=objRS("numero")%></td> <td height="7" width="107" align="center"><%=objRS("bairro")%></td> <td height="7" width="55" align="center"> <a href="../action_altera.asp?id=<%=objRS("id")%>" OnClick="return confirm('Deseja Realmente Alterar ?')"> <img src="imagens/edit.gif" width="16" height="16" border="0" alt="Clic aqui para Alterar."> </a> </td> <% cont = cont + 1 objRS.MoveNext Wend %> </tr> </table> <% ' Fecha e destroi os objetos RS e conn objRS.Close : objconn.Close Set RS = Nothing : Set objconn = Nothing %> Valeuzis gurizada
- Setembro 18, 2004
Soma Em Bd Simples Ou Naum ?!?!

uma questão postou fhermel ASP

Ai Galeria do ASP É nois de novo com a seguente duvida tenho um BD com o nome "COMPRA" neste tem duas coluna "VALOR" e "QUANTIDADE" Eu gostaria de fazer um busca q ate ai é tranquilo mais no final do resultado quero mostra a soma total das colunas "VALOR" e "QUANTIDADE" Meu code de busca é este o q tenho que agrecentar ? <% Dim objConn, objrs, strsql 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" objrs.open strsql,objconn,3,2 %> Valeuzis curisada Toques polyfonicos e imagens free tem la no meu site WEB MASTER RS
- Setembro 18, 2004
- 16 respostas
Help Na Paginação

pergunta respondeu ao fhermel de fhermel em ASP

Valeu irmão cyberalexxx Bem certinho quebraste o maior galho, boas ondas pro ce broder.
- Setembro 17, 2004
- 6 respostas
Help Na Paginação

pergunta respondeu ao fhermel de fhermel em ASP

Valeu amigo ! Mais não é bem isto, o que eu quero é assim o Anterior 1 2 3 4 5 6 7 8 9 10 . . . Proximo mesmo q tenha 30 pagina mais so mostra de 10 em 10
- Setembro 17, 2004
- 6 respostas
Texto - Asp

uma questão respondeu fhermel em ASP

ola amigo não entendi bem mais acho que é isso, em ASP você pode ocultar o texto com aspas simples (EX: 'response.redirect "senha.asp" ) em HTML (EX: ). espero ter ajudado
- Setembro 17, 2004
- 4 respostas
Help Na Paginação

uma questão postou fhermel ASP

!!! Ola Galerinha do ASP. Tenho um code de paginação bem simples mais estou com um probleminha + ou - simples eu quero que ele mostre um total de 10 pagina de cada vez, mesmo q tenha 30 paginas, e não o total como esta agora meu code esta abixo. OK waleuzis. <% ' Definindo o caminho do banco de dados caminho = "bds/cadastro.mdb" ' Fazendo a conexão com o banco de dados (paginacao.mdb) set objconn = Server.CreateObject("ADODB.Connection") DSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(caminho) objconn.Open DSN ' String SQL para consulta SQL = "select * from cadastro order by cliente" ' Abrindo o registro SET objRS = Server.CreateObject("ADODB.Recordset") objRS.Open SQL,objconn,3 ' Se não encontrar nada escreve a mensagem ' Senão lista os registros If objRS.EOF Then Response.Write("Nenhum registro foi encontrado") Else ' Definindo o número de registros por página objRS.PageSize = 10 ' Recupera o valor da variável pagina pagina = Request.QueryString("pagina") ' Se a variável pagina for vazio, indica que a página sera a primeira ' Senão a variável pagina recebe o valor da página corrente, definida acima If pagina = "" Then objRS.AbsolutePage = 1 pagina = 1 Else objRS.AbsolutePage = pagina End If %> <% ' Imprime o número de registros, o total de páginas e a página atual Response.Write("<table><tr><td>Foram encontrados" & objRS.RecordCount & " registros" & vbcrlf ) Response.Write(" Mostrando página " & pagina & " de " & objRS.PageCount & "" & vbcrlf ) Response.Write(" Busca Avançada <a href='#' onClick=javascript:window.open('../busca_avc.asp','','width=200,height=50,scrollbars=no, resizable=no,left=00,top=0');>aqui</a></td></tr></table>") %> <% ' Criando a barra de navegação ' Se a variável pagina for maior que 1 então imprime o botão Anterior com link ' Senão imprime sem link If CInt(pagina) > 1 Then Response.Write("<center><a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina-1 & "'>Anterior</a> ") Else Response.Write("<center>Anterior") End If ' Lista todas as páginas encontradas For i = 1 To objRS.PageCount response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ") Next ' Se a variável pagina for menor que o total de páginas então imprime o botão Próxima com link ' Senão imprime sem link If CInt(pagina) < objRS.PageCount Then Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina+1 & "'>Próxima</a></center>") Else Response.Write("Próxima</center>") End If End If %> <%While Not objRS.EOF AND cont < objRS.PageSize%> <tr bgcolor="#0099CC" bordercolor="0"> <td height="7" width="110" align="left"><%=objRS("cliente")%></td> <td height="7" width="110" align="center"><%=objRS("fone")%></td> <td height="7" width="83" align="center"><%=objRS("endereco")%></td> <td height="7" width="70" align="center"><%=objRS("numero")%></td> <td height="7" width="107" align="center"><%=objRS("bairro")%></td> <td height="7" width="55" align="center"> <a href="../action_altera.asp?id=<%=objRS("id")%>" OnClick="return confirm('Deseja Realmente Alterar ?')"> <img src="imagens/edit.gif" width="16" height="16" border="0" alt="Clic aqui para Alterar."> </a> </td> <% cont = cont + 1 objRS.MoveNext Wend %> </tr> </table> <% ' Fecha e destroi os objetos RS e conn objRS.Close : objconn.Close Set RS = Nothing : Set objconn = Nothing %>
- Setembro 17, 2004
- 6 respostas

Entrar

fhermel

Total de itens

Registro em

Última visita

Tipo de Conteúdo

Perfis

Fóruns

Tudo que fhermel postou

Soma Em Bd Simples Ou Naum ?!?!

Soma Em Bd Simples Ou Naum ?!?!

Soma Em Bd Simples Ou Naum ?!?!

Soma Em Bd Simples Ou Naum ?!?!

Confirmação Ativa De Cadastro

PAGINAÇÃO simples

Soma Em Bd Simples Ou Naum ?!?!

Help Na Paginação

Help Na Paginação

Texto - Asp

Help Na Paginação

Navegação

Atividades