Vagner Nunes

Prezados, Boa tarde. Uns meses atrás criei um Controle de Estoque pequeno para um setor da empresa onde trabalho, bem básico, porém o gerente viu gostou e resolveu implantar na empresa toda. Em toda estrutura, existe duas tabelas -> Produtos e Pedidos, e existe um campo chamado estoque tanto na tabela pedido e Produtos. Gostaria de fazer o seguinte: Quando a pessoa responsável do almoxarifado for autorizar a quantidade do material pedido, ele modificada só na tabela pedido, eu queria, que além de modificar o campo da tabela, pedido, modificar o campo estoque, porém gostaria que fosse diminuido a quantidade existente. Ex.: 50 Canetas Bic, daí ela autoriza 5 para o setor solicitante, daí na tabela produtos, fique 45 unidade. Como posso fazer isso? Estou utilizando o banco Access Sds, Vagner Nunes

Prezados, Boa tarde. Como faço para fazer Update somente de 1 registro da tabela no access. Segue abaixo a sintaxe: <!--#include file="../Connections/Conectar.asp" --> <% Dim vaprovado_biblioteca, vnadquiridos, vstatus vaprovado_biblioteca = Request("aprovado_biblioteca") vnadquiridos = Request("nadquiridos") vstatus = Request("status") strQuery = "UPDATE solicitacoes SET aprovado_biblioteca='"&vaprovado_biblioteca&"', nadquiridos='"&vnadquiridos&"', status='"&vstatus&"'" Sds, Vagner Nunes

Ok, é isso mesmo. Muito obrigado pela ajuda. Sds, Vagner Nunes

Prezados, Bomdia. Estou utilizando em meu projeto a seguinte sinxate SQL para criar um filtro em minha página SELECT * FROM solicitacoes WHERE curso = 'Administração'. Porém gostaria de saber como posso fazer para criar dois filtros. Ex.: SELECT * FROM solicitacoes WHERE curso = 'Administração' e também o campo aprovacao, fazer a seleção de todos os registros de administração e todos os aprovados. Como posso fazer estes filtros. Sds, Vagner Nunes

Prezados, Boa tarde, gostaria de saber, como posso fazer para evitar que usuários façam mais do que um cadastro, queria utilizar o campo CPF para isso. Alguém poderia me ajudar? Sds, Vagner Nunes

Prezados o meu script em ASP.NET está apresentando o erro abaixo e aqui na seção ASP me falaram que pode ser Permissão no Access, como faço para averiguar se é este mesmo o problema em meu banco: Sds, Vagner Nunes

Prezados, Boa tarde. Estou aprendendo ASP.NET e estava tudo funcionando ok, até chegar um módulo do curso de INSERT, segui todos os procedimentos corretamente, porém está apresentando o seguinte erro: , o ASP está funcionando perfeitamente, só quando vou fazer trabalhar com o ASP.NET é que aparece o erro acima. Segue código da página que estou estudando : <%@ Page Language="VB" Debug="true" %> <%@ import Namespace="System.Data" %> <%@ import Namespace="System.Data.OleDb" %> <script RUNAT="server"> DIM strConexao As String DIM strCaminho AS String DIM strSQL AS String Sub Page_Load() strCaminho = "C:\Inetpub\wwwroot\aspx\aspnet\database\dbEditora_teste.mdb" strConexao = "Provider=Microsoft.Jet.OLEDB.4.0;" strConexao = strConexao + "Data Source=" + strCaminho mensagem.text = "" End sub Sub Inserir(sender As Object, e As EventArgs) DIM objConexao as New OledbConnection(strConexao) strSQL = "INSERT into Livros " strSQL = strSQL + "(codLivro, categoria, titulo, autor, npaginas, formato, preço, resenha, dataPub, lancamento) values " strSQL = strSQL + "(@codLivro, @categoria, @titulo, @autor, @npaginas, @formato, @preço, @resenha, @dataPub, @lancamento)" DIM objCommand AS New OleDbCommand(strSQL,objConexao) objCommand.parameters.add("@codLivro",txtCodLivro.text) objCommand.parameters.add("@categoria", txtCategoria.selectedItem.text) objCommand.parameters.add("@titulo", txtTitulo.text) objCommand.parameters.add("@autor", txtAutor.text) objCommand.parameters.add("@npaginas", CInt(txtNPaginas.text)) objCommand.parameters.add("@formato", txtFormato.text) objCommand.parameters.add("@preço", CDbl(txtPreco.text)) objCommand.parameters.add("@resenha", txtResenha.text) objCommand.parameters.add("@dataPub", CDate(txtDataPub.text)) objCommand.parameters.add("@lancamento", txtLancamento.selectedItem.text) objConexao.Open() objCommand.ExecuteNonQuery() objConexao.Close() mensagem.text = "O livro: <b>" + txtTitulo.text + "</b> foi inserido com sucesso" End sub </SCRIPT> <HTML> <HEAD> <TITLE></TITLE> </HEAD> <BODY> <FORM RUNAT="server"> <H3>Inclusão de livros</H3> <asp:Label ID="mensagem" runat="server" ForeColor="#0000FF"></asp:Label> <TABLE WIDTH="100%" BORDER="0" CELLSPACING="2" CELLPADDING="0"> <TR> <TD WIDTH="19%" VALIGN="TOP">Código do livro:</TD> <TD WIDTH="81%"> <asp:TextBox ID="txtcodLivro" runat="server" Columns="4" MaxLength="4" ></asp:TextBox> </TD> </TR> <TR> <TD VALIGN="TOP">Categoria:</TD> <TD> <asp:DropDownList ID="txtCategoria" runat="server"> <asp:ListItem Value="Administração">Administração</asp:ListItem> <asp:ListItem Value="Computação Gráfica">Computação Gráfica</asp:ListItem> <asp:ListItem Value="Eletrônica">Eletrônica</asp:ListItem> <asp:ListItem Value="Internet">Internet</asp:ListItem> <asp:ListItem Value="Sistemas Operacionais">Sistemas Operacionais</asp:ListItem> <asp:ListItem Value="Telecomunicaçõees">Telecomunicações</asp:ListItem> </asp:DropDownList> </TD> </TR> <TR> <TD VALIGN="TOP">Título:</TD> <TD> <asp:TextBox ID="txtTitulo" runat="server" Columns="100" MaxLength="100" ></asp:TextBox> </TD> </TR> <TR> <TD VALIGN="TOP">Autor:</TD> <TD> <asp:TextBox ID="txtAutor" runat="server" Columns="100" MaxLength="100" ></asp:TextBox> </TD> </TR> <TR> <TD VALIGN="TOP">Nº de páginas:</TD> <TD> <asp:TextBox ID="txtNPaginas" runat="server" Columns="6" MaxLength="6" ></asp:TextBox> </TD> </TR> <TR> <TD VALIGN="TOP">Formato: </TD> <TD> <asp:TextBox ID="txtFormato" runat="server" Columns="20" MaxLength="20" ></asp:TextBox> </TD> </TR> <TR> <TD VALIGN="TOP">Preço: </TD> <TD> <asp:TextBox ID="txtPreco" runat="server" Columns="12" MaxLength="12" ></asp:TextBox> </TD> </TR> <TR> <TD VALIGN="TOP">Resenha:</TD> <TD> <asp:TextBox ID="txtResenha" runat="server" Width="600" Rows="7" TextMode="MultiLine"></asp:TextBox> </TD> </TR> <TR> <TD VALIGN="TOP">Data da publicação:</TD> <TD> <asp:TextBox ID="txtDataPub" runat="server" Columns="10" MaxLength="10"></asp:TextBox> </TD> </TR> <TR> <TD VALIGN="TOP"> Lançamento: </TD> <TD> <asp:RadioButtonList ID="txtLancamento" runat="server" RepeatColumns="2"> <asp:ListItem Value="S" Selected="true">Sim</asp:ListItem> <asp:ListItem Value="N">Não</asp:ListItem> </asp:RadioButtonList> </TD> </TR> </TABLE> <HR> <asp:Button ID="btn_Inserir" runat="server" OnClick="Inserir" Text="Inserir este livro"></asp:Button> </FORM> </BODY> </HTML> Se alguém poder me exclarecer o porque deste problema, seria muito grato. Sds, Vagner Nunes

Prezados, Resolvi para fazer uns testes aqui, e constatei que o problema está acontecendo quando trabalho com o ASP.NET, porque o ASP está incluíndo normalmente. Sds, Vagner Nunes

Prezado, pesquisei no forum, porém o que foi apresentando já testei e continua a apresentar o erro. Sds, Vagner Nunes

Prezados, Bom dia. Recentemente tive que formatar a minha máquina em minha residencia, instalei tudo certinho, instalei o IIS e está funcionando corretamente como tem que ser, rodando páginas em ASP e ASP.NET. Porém quando crio um código para INSERT no banco está aparecendo um erro, que não me recordo bem agora, que seria algo de consulta atualizavel, enfim procurem em alguns foruns e me falaram que poderia ser questões de permissão do IIS. Fiz os procedimentos para dar permissão e está apresentando o mesmo problema. Estou com um projeto novo para desenvolver, porém sem o IIS não tem como trabalhar. Alguém poderia me ajudar? Sds, Vagner Nunes

Prezados, O site da faculdade onde trabalho tem seu domínio na Locaweb, e os portais de aluno e professor, fica em um servidor na na faculdade, porém quando clica em Portal do Aluno e Portal do Professor, daí aparece o IP fico mais o caminho do portal. Ex.: http://201.00.000.000/aluno/default.aspx Gostaria de saber se há possibilidade de camuflar este IP que aparece. Sds, Vagner Nunes

Prezados, Agora funcionou beleza aqui, porém gostaria de saber porque ele só faz busca se a data estiver no formato: mm/dd/aaaa, gostaria que fosse feito a pesquisa no nosso padrão dd/mm/aaaa. Como faço para a busca ser feita neste padrão? Sds, Vagner Nunes

Prezados, Tenho um código de busca aqui que funciona e busca em um só campo, porém tentei modifica-lo, mas apareceu o se guinte erro: Segue abaixo o código completo da página de resultado: <% vdtInicial = request.form("datainicial") vdtFinal = request.form("datafinal") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("../bd/curriculos.mdb") sqlstmt = "SELECT * FROM academico WHERE data between #"&vdtInicial&"# AND #"&vdtFinal&"#" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp, 3, 3 totalrecs = rs.recordcount x = 0 for x = 1 to totalrecs if rs.eof then exit for else nome = rs("nome") cpf = rs("cpf") email = rs("email") telefone = rs("telefone") bairro = rs("bairro") estado = rs("estado") %> <b>Nome:</b> <%=nome%> <br> <b>CPF:</b> <%=cpf%> <br> <b>email:</b> <%=email%> <br> <b>Telefone:</b> <%=telefone%> <br> <b>Bairro:</b> <%=bairro%> <p> <% rs.MoveNext %> <% end if next %>

Boa tarde. Criei um sistema de banco de currículo atualmente com acesso com Login e Senha, onde o visitante faz seu cadastro, e neste banco existe uma tabela de cadastro e vários campos, incluindo os campos de autenticação de usuário, porém gostaria de saber como posso fazer para que quando um visitante esquecer seu Login e Senha, Clique em, um exemplo, Esqueceu a senha, Clique aqui, e quando ele clicar, daí aparecerá o campo de e-mail onde ele preencherá e se existir este campo no banco, automaticamente será encaminhado para ele o login e a senha cadastrada. Como posso fazer isso? Existe alguma extensão de Lembrete de Senha em ASP, eu consegui achar em PHP, agora em ASP não. Sds, Vagner Nunes

Boa tarde... Gostaria da ajuda dos senhores. Precisava fazer uma busca de registro por períodos. Ex.: 14/01/2009 até 01/04/2009 >> fazer uma busca dos registros cadastrados entre os período de janeiro a abril. Algum exemplo de campos de periodo inicial e periodo final. Como posso fazer isso? Sds, Vagner Nunes

Prezado, Este SELECT "SELECT * FROM academico WHERE data between #"&Request.Form("datainicial") & "# AND #"& Request.Form("datafinal")&"#" está aprsentando o seguinte erro: Sds, Vagner Nunes

Cara, eu me enrolei todo aqui, com este CDOSYS, segue código que estou trabalhando: <%@ LANGUAGE="VBSCRIPT" %> <!--#include file="Connections/Conexao.asp" --> <% Dim objDC, objRS, email, user, pass, sendmail Set objDC = Server.CreateObject("ADODB.Connection") objDC.ConnectionTimeout = 15 objDC.CommandTimeout = 30 email=request.form("email") 'SQL objRS.Open "SELECT * FROM academico WHERE email = '" & email & "'", objDC, 0, 1 %> <head> <title>Envio de senha</title> </head> <body> <% 'checks if email if objrs.EOF then %> <table border="0" cellPadding="0" cellSpacing="1" width="540"> <tr> <td class="title-err" bgcolor="#FF0000"><font color="#FFFFFF"><b> Email Invalido</b></font></td> </tr> </table> <p><span class="text-err">não localizado </span><span class="text3b"> <%=email%></span> <span class="text-err"> na base de dados.</span> </p> <% Else %> <% 'seta variaveis email = request.form("email") ' username e password do database user = objrs.Fields("login") pass = objrs.Fields("senha") Set sendmail = Server.CreateObject("CDONTS.NewMail") sendmail.From = "suporte@mail.br" sendmail.To = email sendmail.Subject = "Informações de Login" sendmail.Body = "Informações de login : " & vbCrlf & vbCrlf _ & "usuario" & user & vbCrlf _ sendmail.Send %> <p class="text2">Foi enviada as informações de login para <%=email%>.<br> Você deverá recebê - lo em breve.</p> <% ' fecha Data Access Objects objDC.Close Set objRS = Nothing Set objDC = Nothing Set sendmail = Nothing %> <%end if%> Segue abaixo o código do CDOSYS, mas não estou entendendo nada deste componente: <% email = request.Form("email") msg = "Nome: '"&(request.Form("nome"))&"'<br>" msg = msg&"Email: '"&(request.Form("email"))&"'<br>" msg = msg&"Telefone: '"&(request.Form("telefone"))&"'<br>" msg = msg&"Mensagem: '"&(request.Form("mensagem"))&"'<br>" 'DEFININDO EMAIL HTML = HTML & "<html>" HTML = HTML & "<head>" HTML = HTML & "<title>Mensagem enviada pelo site</title>" HTML = HTML & "</head>" HTML = HTML & "<body bgcolor=""#FFFFFF"">" HTML = HTML & "" & msg HTML = HTML & "</body>" HTML = HTML & "</html>" 'Cria o objeto para o enviar e-mail Set objCDO = Server.CreateObject("CDO.Message") 'Cria o objeto de configuração do SMTP Set objCDOSYSCon = Server.CreateObject("CDO.Configuration") With objCDOSYSCon 'SMTP .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mbmetais.com.br" 'Porta do SMTP .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Porta do CDO .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Timeout .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 'Validação Email - Autenticação .Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mbmetais@mbmetais.com.br" 'Senha .Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha" 'Atualiza .Fields.update End With 'Atualiza as configurações do CDOSYS para enviar o e-mail Set objCDO.Configuration = objCDOSYSCon With objCDO 'Remetente do e-mail .From = "" & email 'Destinatário do e-mail .To = "mbmetais@mbmetais.com.br" 'Assunto .Subject = "teste" 'Conteúdo da mensagem (Se for apenas texto, mude para TextBody) .HTMLBody = "" & HTML 'Envia o e-mail .Send End With 'Destrói os objetos Set objCDO = Nothing Set objCDOSYSCon = Nothing %>

Queria saber, se este SELECT abaixo está correto: "SELECT * FROM academico WHERE data >=#"&Request.Form("datainicial") & "# AND data <=#"& Request.Form("datafinal")&"#" Testei, ele digitando as datas diretamente, ele buscou no access e funcinou, daí inseri o Request.Form("campo"), daí deu erro. A algo de errado? Sds, Vagner Nunes

Mesmo trocando para CDOSYS apresenta o mesmo erro, todos os códigos de envio de e-mail eu utilizo o CDONTS em outros formulário e funciona beleza aqui. Sds, Vagner Nunes

Prezado, Poderia me explicar melhor como devo proceder, usando o request.form("campo") e como devo preencher os valores: SELECT column_name(s) FROM table_name WHERE column_name BETWEEN value1 AND value2 Se puder me ajudar, seria muito grato. Sds, Vagner Nunes

Prezados, Vocês poderiam me explicar melhor como usar o BETWEEN, fiz umas pesquisas e achei esta linha abaixo: SELECT column_name(s) FROM table_name WHERE column_name BETWEEN value1 AND value2 Porém gostaria de saber como posso fazer para value1 e value2 busque o que for digitado nos campos de formulário de busca. nome dos campos é datainicial e datafinal. Sds, Vagner Nunes

Alguém pode me dizer se tem algo errado neste código: <%@ LANGUAGE="VBSCRIPT" %> <!--#include file="Connections/Conexao.asp" --> <% Dim objDC, objRS, email, user, pass, sendmail Set objDC = Server.CreateObject("ADODB.Connection") objDC.ConnectionTimeout = 15 objDC.CommandTimeout = 30 email=request.form("email") 'SQL objRS.Open "SELECT * FROM academico WHERE email = '" & email & "'", objDC, 0, 1 %> <head> <title>Envio de senha</title> </head> <body> <% 'checks if email if objrs.EOF then %> <table border="0" cellPadding="0" cellSpacing="1" width="540"> <tr> <td class="title-err" bgcolor="#FF0000"><font color="#FFFFFF"><b> Email Invalido</b></font></td> </tr> </table> <p><span class="text-err">não localizado </span><span class="text3b"> <%=email%></span> <span class="text-err"> na base de dados.</span> </p> <% Else %> <% 'seta variaveis email = request.form("email") ' username e password do database user = objrs.Fields("login") pass = objrs.Fields("senha") Set sendmail = Server.CreateObject("CDONTS.NewMail") sendmail.From = "suporte@mail.br" sendmail.To = email sendmail.Subject = "Informações de Login" sendmail.Body = "Informações de login : " & vbCrlf & vbCrlf _ & "usuario" & user & vbCrlf _ sendmail.Send %> <p class="text2">Foi enviada as informações de login para <%=email%>.<br> Você deverá recebê - lo em breve.</p> <% ' fecha Data Access Objects objDC.Close Set objRS = Nothing Set objDC = Nothing Set sendmail = Nothing %> <%end if%> Pois está apresentando o Erro:

Prezados, Boa tarde... Gostaria da ajuda dos senhores. Precisava fazer uma busca de registro por períodos. Ex.: 14/01/2009 até 01/04/2009 >> fazer uma busca dos registros cadastrados entre os período de janeiro a abril. Algum exemplo de campos de periodo inicial e periodo final. Como posso fazer isso? Sds, Vagner Nunes

Prezado, Muito obrigado pela ajuda!!!. Agora funcionou do jeito que quero. Valeu mesmo pela ajuda... Sds, Vagner Nunes

na linha 48 está está o código Set ObjRs = objConn.Execute(strQuery) e o campo solicitante é texto. Segue abaixo código da página completa: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="Solicitantes" MM_authFailedURL="index.asp" MM_grantAccess=false If Session("MM_Username") <> "" Then If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If Not MM_grantAccess Then MM_qsChar = "?" If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" MM_referrer = Request.ServerVariables("URL") if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString() MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer) Response.Redirect(MM_authFailedURL) End If %> <!--#include file="Connections/Conexao.asp" --> <% Dim vsolicitante, vsetor, vpedido, vquantidade, vunidade, vsituacao vsolicitante = Request("solicitante") vsetor = Request("setor") vpedido = Request("pedido") vquantidade = Request("quantidade") vunidade = Request("unidade") vsituacao = Request("situacao") strQuery = "INSERT INTO pedidos (solicitante,setor,pedido,quantidade,unidade,situacao) Values('"&vsolicitante&"','"&vsetor&"','"&vpedido&"',"&vquantidade&",'"&vunidade&"','"&vsituacao&"')" If request.querystring("op") = 1 then Set mail = CreateObject("CDONTS.NewMail") mail.From = request.form("email") ' e-mail de quem esta enviando a mensagem mail.To = "administrativo@email.br" ' e-mail de quem vai receber a mensagem mail.CC = "administrativo@emailt.br" ' Com Cópia 'mail.BodyFormat = 1 ' parametro de formatação 'mail.MailFormat = cdoMailFormatText ' parametro de formatação 'mail.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail mail.Subject = "Solicitação de Materiais - " & request.form("solicitante") mail.Body = "Solicitante: " & request.form("solicitante") & vbCrLf & "Setor: " & request.form("setor") & vbCrLf & "Pedido: " & request.form("pedido") & vbCrLf & "Quantidade: " & request.form("quantidade")& vbCrLf & "-" & request.form("unidade") mail.Send Set mail = Nothing else end if Set ObjRs = objConn.Execute(strQuery) %> <!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>CESAT - Controle de Estoque v.1.0</title> <style type="text/css"> <!-- body,td,th { font-family: Verdana, Arial, Helvetica, sans-serif; color: #000000; } body { background-color: #F3F3F3; } a { font-family: Verdana, Arial, Helvetica, sans-serif; color: #000000; } a:link { text-decoration: none; } a:visited { text-decoration: none; color: #333333; } a:hover { text-decoration: none; color: #666666; } a:active { text-decoration: none; color: #999999; } --> </style> <script type="text/JavaScript"> <!-- function MM_callJS(jsStr) { //v2.0 return eval(jsStr) } //--> </script> </head> <body> <table width="777" border="0" align="center" bgcolor="#FFFFFF"> <tr> <td><table width="777" border="0"> <tr> <td><img src="imagens/topo.gif" width="777" height="120" /></td> </tr> <tr> <td><div align="center"><img src="imagens/computador.jpg" width="48" height="48" /></div></td> </tr> <tr> <td><p>&nbsp;</p> <p align="center"><strong>Pedido encaminhado com sucesso! </strong></p> <p>&nbsp;</p></td> </tr> <tr> <td> <div align="center"> <input name="Submit" type="submit" onclick="MM_callJS('history.go (-1)')" value="Voltar" /> </div></td> </tr> <tr> <td><img src="imagens/rodape.gif" width="777" height="48" border="0" usemap="#Map" /></td> </tr> </table></td> </tr> </table> <map name="Map" id="Map"><area shape="rect" coords="634,22,793,54" href="http://www.gouarts.com" target="_blank" /> </map></body> </html> Sds, Vagner Nunes