Vagner Nunes

Prezados, Preciso da ajuda dos senhores mais uma vez! Tenho um banco chamado Estoque e uma tabela chamada produtos, e nesta tabela tenho vários campos, porém quero trabalho o campo estoque, valor e total. Campo Estoque = numero Campo valor = Moeda Campo Total = Moeda Banco: Access Gostaria de multiplicar o campo Valor e Numero e aparecer o resultado automaticamente no total realizar o cadastro. Te como? Sds, Vagner Nunes

Prezados, Boa tarde. Gostaria de saber o seguinte, moro no estado do Espírito Santo, e utilizo o Velox Empresarial para me conectar na internet, porém o número que estava utilizando parou de funcionar derrepente, consegui um número do Rio de janeiro. Estou conectando normalmente, porém queria saber se têm algum problema eu morando no Espirito Santo, e acessar com um telefone do Rio de janeiro. Sds, Vagner Nunes

Leandro, Valeu pelas dicas Sds, Vagner Nunes

Apita uma vez só cada ciclo... Como posso fazer para configurar corretamente a BIOS ou até mesmo algo do tipo RESETAR, tem como? Outra questão, é entre no site da ASUS, e lá tinha drivers para atualização de Bios, como funciona isso? Preciso de um programa especial para atualizar? Sds, Vagner Nunes

Prezados, Bom dia. Montei uma máquina recentemente com uma placa-mãe que arrumei, daí ele estava funcionando perfeitamente, derrepente me deparei com a máquina apitando, quando liga, ela apita e para depois de uns segundos apita novamente e para, fica assim e não dá vídeo. Daí de tando insistir no Power e Reset a máquina liga, faz a contagem de memória, reconhece hd, leitor de cd, e por aí vai, mas depois aparece a seguinte mensagem e pedido para acessar o setup: The system was not correctly shut down and now working in safe mode speed. O que seria este erro. Tenho um pente de memória nele DDR 256mb funcionando e uma placa de vídeo bem antiga, pois pretendo comprar uma logo. Placa ASUS A7N8X-X Gostaria muito da ajuda dos senhores Sds, Vagner Nunes

Prezado, Funcionou beleza. Obrigado pela dica. Sds, Vagner Nunes

Prezados, Tenho um banco de cadastro de revistas, no meu relatório gostaria que fosse feita a soma de registros de cada seção. Ex.: tenho a seção Revistas Correntes e Não Correntes. Correntes = 10 revistas cadastradas Não Correntes = 5 revistas cadastradas. Gostaria que este relatório some os grupos de Correntes e Não Correntes. Sds, Vagner Nunes

Estava chamando a função erroneamente: Modo errado: Municipios__SemAcentos = Request.QueryString("cidade") Modo Correto: Municipios__SemAcentos = RemoveAcentos(Request.QueryString("cidade")) Agora funcionou beleza. Valeu pela ajuda. Sds, Vagner Nunes

Valeu cara! Agora funcionou beleza. Muito Obrigado. Sds, Vagner Nunes

Prezados, Alguém poderia me explicar como faço para fazer aquele recurso do Google de Auto-completar em um formulário de busca. Ex.: Digitar Aba Aparecer Op. Abba Abacate Abacaxi Daí seleciona um dos termos cadastrado no banco Access e pedir para localizar o termo. Seria muito grato se alguém poder me ajudar Sds, Vagner Nunes

Prezado, A busca continua não localizando com ou sem acentuação. A algo de errado que estou fazendo? <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="../Connections/Conn.asp" --> <% Function RemoveAcentos(ByVal Texto) Dim ComAcentos Dim SemAcentos Dim Resultado Dim Cont 'Conjunto de Caracteres com acentos ComAcentos = "ÁÍÓÚÉÄÏÖÜËÀÌÒÙÈÃÕÂÎÔÛÊáíóúéäïöüëàìòùèãõâîôûêÇç" 'Conjunto de Caracteres sem acentos SemAcentos = "AIOUEAIOUEAIOUEAOAIOUEaioueaioueaioueaoaioueCc" Cont = 0 Resultado = Texto Do While Cont < Len(ComAcentos) Cont = Cont + 1 Resultado = Replace(Resultado, Mid(ComAcentos, Cont, 1), Mid(SemAcentos, Cont, 1)) Loop RemoveAcentos = Resultado End Function %> <% Dim Municipios__ComAcentos Municipios__ComAcentos = "1" If (Request.QueryString("cidade") <> "") Then Municipios__ComAcentos = Request.QueryString("cidade") End If %> <% Dim Municipios__SemAcentos Municipios__SemAcentos = "2" If (Request.QueryString("cidade") <> "") Then Municipios__SemAcentos = Request.QueryString("cidade") End If %> <% Dim Municipios Dim Municipios_numRows Set Municipios = Server.CreateObject("ADODB.Recordset") Municipios.ActiveConnection = MM_Conn_STRING Municipios.Source = "SELECT * FROM cadastro WHERE cidade LIKE '%" + Replace(Municipios__ComAcentos, "'", "''") + "%' OR cidade LIKE '%" + Replace(Municipios__SemAcentos, "'", "''") + "%'" Municipios.CursorType = 0 Municipios.CursorLocation = 2 Municipios.LockType = 1 Municipios.Open() Municipios_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Municipios_numRows = Municipios_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>RH - &Aacute;rea Administrativa</title> <style type="text/css"> <!-- body { background-color: #F4F4F4; } .style1 { font-family: Verdana, Arial, Helvetica, sans-serif; font-weight: bold; color: #FFFFFF; } .style2 { font-family: Verdana, Arial, Helvetica, sans-serif; font-weight: bold; } .style4 { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; } --> </style></head> <body> <table width="770" border="0" align="center"> <tr> <td bgcolor="#FFFFFF"><table width="770" border="0"> <tr> <td colspan="2"><div align="center"><img src="../imagens/logomarca.gif" width="170" height="100" /></div></td> </tr> <tr> <td colspan="2" bgcolor="#333333"><div align="center" class="style1">RH - Banco de Curriculos </div></td> </tr> <tr> <td colspan="2" bgcolor="#F2F20F"><div align="center" class="style2">&Aacute;rea Administrativa </div></td> </tr> <tr> <td colspan="2" valign="top"><table width="817" border="0" align="center"> <tr> <td width="35"><span class="style4">ID</span></td> <td width="175"><span class="style4">nome</span></td> <td width="54"><span class="style4">cpf</span></td> <td width="92"><span class="style4">cidade</span></td> <td width="158"><span class="style4">email</span></td> <td width="67"><span class="style4">telefone</span></td> <td width="82"><span class="style4">celular</span></td> </tr> <% While ((Repeat1__numRows <> 0) AND (NOT Municipios.EOF)) %> <tr> <td><span class="style4"><%=(Municipios.Fields.Item("ID").Value)%></span></td> <td><span class="style4"><A HREF="curriculos_detalhe.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "ID=" & Municipios.Fields.Item("ID").Value %>"><%=(Municipios.Fields.Item("nome").Value)%></A></span></td> <td><span class="style4"><%=(Municipios.Fields.Item("cpf").Value)%></span></td> <td><span class="style4"><%=(Municipios.Fields.Item("cidade").Value)%></span></td> <td><span class="style4"><%=(Municipios.Fields.Item("email").Value)%></span></td> <td><span class="style4"><%=(Municipios.Fields.Item("telefone").Value)%></span></td> <td><span class="style4"><%=(Municipios.Fields.Item("celular").Value)%></span></td> </tr> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Municipios.MoveNext() Wend %> </table> <p> </tr> <tr> <td colspan="2" bgcolor="#F2F20F"><div align="right"><a href="admin.asp" class="style4">Voltar</a></div></td> </tr> </table></td> </tr> </table> </body> </html> <% Municipios.Close() Set Municipios = Nothing %> Sds, Vagner Nunes

Prezados, Boa tarde. Tenho um formulário em ASP e com o banco access, onde a pesquisa não consegui retornar os valores cadastrados que contenha acentos. Ex.: Tenho um campo, onde está cadastrado Vitória (com acento), porém quando alguém pesquisa Vitoria (sem acento), o formulário não retorna nenhum resultado. Haveria possibilidade de que no Access, haja uma forma desta busca ser realizada independente de usar ou não acentuação? Alguma configuração? Ou algo parecido? Sds, Vagner Nunes

Estou usando a linguagem ASP e banco ACCESS. Sds, Vagner Nunes

Prezado, Tenho uma função, aqui, mas não funcionou minha pesquisa. Teria como você me indicar uma função de acentuação, para fazer uns testes.

Ok! Valeu pela ajuda...

Prezados, Boa tarde. Preciso da ajuda dos senhores. A situação é a seguinte, tenho uma página onde é feito uma busca de municípios, porém quando o visitante digita um determinado Municipio que contém acento, o sistema não retorna resultados. Ex.: No banco de dados no campo locais, está cadastrado Vitória, daí se o visitante digitar Vitoria (sem acento) o sistema não retorna resultados, porém se eu cadastrar o municipio sem acento, ele busca normalmente. Tem como configurar a busca para retornar resultados independentemente se estiver ou não com acentuação no Dreamweaver? Obrigado. Sds, Vagner Nunes

Mas qualquer das duas, Like ou =, a busca pega todas as escolas cadastradas, não faz o filtro. Estou usando local em minha máquina com IIS instalado, tem algum problema? Sds, Vagner Nunes

Prezados, Boa tarde, tem alguma função em Javascipt, onde posso inserir acentuação em um formulário de busca? O visitante digite Vitoria sem acento e a busca fazer a pesquisa Vitória com acento..... Ou uma pesquisa com Vitória ou Vitoria.... Seria grato se alguém poder me ajudar Sds, Vagner Nunes

Quero resolver a questão da acentuação, porém aquela função estava = e esta está com o LIKE. "SELECT * FROM escolas WHERE escola LIKE '%" & palavrasem(txtPesquisa) & "%' OR escola LIKE '%" & palavracom(txtPesquisa) & "%'" Acho que me atrapalhei, com os exmplo das funções. Esse negócio de acentuação está acabando comigo, não tem nenhuma função, que posso inserir junto do formulário, se quando o cara digitação com acentuação, o formulário automaticamente retirar essa acentuação. Ou até mesmo um javascript com função de acentuação? Sds, Vagner Nunes

Prezados, Agora da busca vem, porém está vindo todas as escolas. Segue parte do código da página abaixo: <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!--#include file="Connections/conexao.asp" --> <% Dim Didaticos Dim Didaticos_cmd Dim Didaticos_numRows Set Didaticos_cmd = Server.CreateObject ("ADODB.Command") Didaticos_cmd.ActiveConnection = MM_conexao_STRING Didaticos_cmd.CommandText = "SELECT * FROM escolas WHERE escola LIKE '%" & palavrasem(txtPesquisa) & "%' OR escola LIKE '%" & palavracom(txtPesquisa) & "%'" Didaticos_cmd.Prepared = true Set Didaticos = Didaticos_cmd.Execute Didaticos_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Didaticos_numRows = Didaticos_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>&lt;&lt; Logos Livraria :: seja bem-vindo!&gt;&gt;</title> <style type="text/css"> <!-- body,td,th { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color: #000000; } body { background-image: url(imagens/fundo.jpg); background-repeat: repeat-x; background-color: #F7F7F7; } a { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color: #000000; } a:link { text-decoration: none; } a:visited { text-decoration: none; color: #666666; } a:hover { text-decoration: none; color: #999999; } a:active { text-decoration: none; color: #333333; } #apDiv2 { position:absolute; width:301px; height:83px; z-index:1; left: 473px; top: 30px; } .style3 { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8px; } .style4 { color: #FFFFFF; font-weight: bold; } .style5 {color: #FFFFFF} .style6 {font-weight: bold} .style8 {color: #000000; font-weight: bold; } --> </style> <script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script> <script type="text/javascript"> <!-- function MM_callJS(jsStr) { //v2.0 return eval(jsStr) } //--> </script> <% txtPesquisa = request.querystring ("txtPesquisa") function palavrasem(txtPesquisa) palavrasem = Replace(txtPesquisa,"a","[a, á , ã]") palavrasem = Replace(palavrasem,"A","[A, Á, Ã]") palavrasem = Replace(palavrasem,"e","[e, é , è , ê]") palavrasem = Replace(palavrasem,"E","[E , É , Ê]") palavrasem = Replace(palavrasem,"i","[i , í , ì]") palavrasem = Replace(palavrasem,"I","[I , Í]") palavrasem = Replace(palavrasem,"o","[o , ó , ò , ô , õ]") palavrasem = Replace(palavrasem,"O","[O , Ó , Ô , Õ]") palavrasem = Replace(palavrasem,"u","[u , ú , ù]") palavrasem = Replace(palavrasem,"U","[U , Ú]") palavrasem = Replace(palavrasem,"c","[c , ç]") palavrasem = Replace(palavrasem,"C","[C , Ç]") palavrasem = palavrasem end function function palavracom(txtPesquisa) palavracom = Replace(txtPesquisa,"ã","[a]") palavracom = Replace(palavracom,"Ã","[A]") palavracom = Replace(palavracom,"á","[a]") palavracom = Replace(palavracom,"Á","[A]") palavracom = Replace(palavracom,"ê","[e]") palavracom = Replace(palavracom,"Ê","[E]") palavracom = Replace(palavracom,"í","[i]") palavracom = Replace(palavracom,"Í","[I]") palavracom = Replace(palavracom,"õ","[o]") palavracom = Replace(palavracom,"Õ","[O]") palavracom = Replace(palavracom,"ú","[u]") palavracom = Replace(palavracom,"Ú","[U]") palavracom = Replace(palavracom,"ç","[c]") palavracom = Replace(palavracom,"Ç","[C]") palavracom = palavracom end function %> </head> <% While ((Repeat1__numRows <> 0) AND (NOT Didaticos.EOF)) %> <tr> <td bgcolor="#F5F5F5"><a href="livrosdidaticos_detalhe.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "ID=" & Didaticos.Fields.Item("ID").Value %>"><%=(Didaticos.Fields.Item("escola").Value)%></a></td> <td bgcolor="#F5F5F5"><%=(Didaticos.Fields.Item("municipio").Value)%></td> </tr> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Didaticos.MoveNext() Wend %> <% Didaticos.Close() Set Didaticos = Nothing %> A algo de errado? Sds, Vagner Nunes

Método GET!

Prezado, Tentei, mas agora não retorna nenhum resultado. Segue linhas que inseri: <% Dim Didaticos Dim Didaticos_cmd Dim Didaticos_numRows Set Didaticos_cmd = Server.CreateObject ("ADODB.Command") Didaticos_cmd.ActiveConnection = MM_conexao_STRING Didaticos_cmd.CommandText = "SELECT * FROM escolas WHERE escola = '"&palavrasem&"' AND escola = '"&palavracom&"'" Didaticos_cmd.Prepared = true Set Didaticos = Didaticos_cmd.Execute Didaticos_numRows = 0 %> E as funções: <% pesq = request.form ("txtPesquisa") function palavrasem(pesq) palavrasem = Replace(pesq,"a","[a, á , ã]") palavrasem = Replace(palavrasem,"A","[A, Á, Ã]") palavrasem = Replace(palavrasem,"e","[e, é , è , ê]") palavrasem = Replace(palavrasem,"E","[E , É , Ê]") palavrasem = Replace(palavrasem,"i","[i , í , ì]") palavrasem = Replace(palavrasem,"I","[I , Í]") palavrasem = Replace(palavrasem,"o","[o , ó , ò , ô , õ]") palavrasem = Replace(palavrasem,"O","[O , Ó , Ô , Õ]") palavrasem = Replace(palavrasem,"u","[u , ú , ù]") palavrasem = Replace(palavrasem,"U","[U , Ú]") palavrasem = Replace(palavrasem,"c","[c , ç]") palavrasem = Replace(palavrasem,"C","[C , Ç]") palavrasem = palavrasem end function function palavracom(pesq) palavracom = Replace(pesq,"ã","[a]") palavracom = Replace(palavracom,"Ã","[A]") palavracom = Replace(palavracom,"á","[a]") palavracom = Replace(palavracom,"Á","[A]") palavracom = Replace(palavracom,"ê","[e]") palavracom = Replace(palavracom,"Ê","[E]") palavracom = Replace(palavracom,"í","[i]") palavracom = Replace(palavracom,"Í","[I]") palavracom = Replace(palavracom,"õ","[o]") palavracom = Replace(palavracom,"Õ","[O]") palavracom = Replace(palavracom,"ú","[u]") palavracom = Replace(palavracom,"Ú","[U]") palavracom = Replace(palavracom,"ç","[c]") palavracom = Replace(palavracom,"Ç","[C]") palavracom = palavracom end function %> Depois tentei denovo e apareceu o seguinte erro: Informações técnicas (para a equipe de suporte) Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A01C2) Número de argumentos incorreto ou atribuição de propriedade inválida: 'palavrasem' /logos/livrosdidaticos_escolas.asp, line 10 Tipo de navegador: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; InfoPath.2) Página: GET /logos/livrosdidaticos_escolas.asp Hora: quinta-feira, 29 de janeiro de 2009, 20:19:12 O que pode estar acontecendo? Obrigado Sds, Vagner Nunes

Prezados bom dia. Recentemente fiz um site, para uma livraria, porém eles optaram por não ter uma loja virtual no momento, por diversos motivos, um deles, a logística, etc. Porém futuramente creio que eles vão querer, aplicar uma loja no site, porém, tenho umas páginas de teste que funciona beleza, seleciona o produto na página, atualiza carrinho, etc. daí quando finaliza a compra, aparece uma tela onde o cliente preenche os dados e envia o pedido. Mas gostaria que além deste preenchimento de dados pessoais, aparece opção de pagamento se vai ser em boleto ou cartão, valor do frete, etc. É muito complicado fazer este tipo coisa? A empresa tem que ter alguma parceria com bancos, operadoras de cartões, etc? Só para clarear, ter uma idéia de como é feito todo procedimento, para que quando for solicitado, não fique perdido igual cego no tiroteio. Obrigado pela ajuda que os senhores vem me dando, pois muitas coisas que apliquei nos site que já fiz, tem a orientação dos senhores. Valeu pessoal!!! Sds, Vagner Nunes

Obrigado Rafael... Vou tentar aqui novamente....

Tá mas como faço para chamar esta função. Haveria possibilidade de me mostrar esta função já aplicada em alguma página, pois estou apanhando muito. Obrigado pela ajuda. Sds, Vagner Nunes