Ir para conteúdo

caguerra

Members
  • Total de itens

    4
  • Registro em

  • Última visita

Reputação

0 Comum

Sobre caguerra

  1. caguerra

    Ajuda Vba Banco De Dados De Inventario

    Eu não tenho muita experiência no desenvolver um código VBA. Estou tentandocriar um DataBase, mas está indo totalmente muito bem.Os dados que eu preciso já está no arquivo do excelEu estu tentando atualizar a lista, adicionar, excluir pessoasou itens, mas está indo tudo errado ele nao adiciona ou muda nenhum dados da planilhaO botão (pesquisa, adicionar e outros funcionam,mas não fazem a ação corretaEu não sei o que eu fiz de erradodesde ja agardeco pela ajuda Option Explicit Dim blnNew As Boolean Dim TRows, i As Long Private Sub AddNew_Click() blnNew = True TextVendor.Text = "" TextPON.Text = "" TextPartNo.Text = "" TextSN.Text = "" TextItemCondition.Text = "" TextDescription.Text = "" TextPOP.Text = "" TextDR.Text = "" CloseButton.Caption = "Cancel" SaveButton.Enabled = False DeleteButton.Enabled = False End Sub Private Sub CloseButton_Click() If CloseButton.Caption = "Close" Then Unload Me Else CloseButton.Caption = "Close" AddNew.Enabled = True DeleteButton.Enabled = True End If 'If Trim(TextVendor.Text) = "" Then 'MsgBox "Enter Vendor Name", vbCritical, "Save" 'End If 'Call prSave End Sub Private Sub DeleteButton_Click() TRows = Worksheets("Inventory Assets").Range("A1").CurrentRegion.Rows.Count Dim strDel strDel = MsgBox("Delete ?", vbYesNo, "Delete") If strDel = vbYes Then For i = 2 To TRows If Trim(Worksheets("Inventory Assets").Cells(i, 1).Value) = Trim(VendorSelect.Text) Then 'Sheet1.Range(i & ":" & i).Delete Worksheets("Inventory Assets").Range(i & ":" & i).Delete TextVendor.Text = "" TextPON.Text = "" TextPartNo.Text = "" TextSN.Text = "" TextItemCondition.Text = "" TextDescription.Text = "" TextPOP.Text = "" TextDR.Text = "" Call ComboBoxFill Exit For End If Next i If Trim(VendorSelect.Text) = "" Then SaveButton.Enabled = False DeleteButton.Enabled = False Else SaveButton.Enabled = True DeleteButton.Enabled = True End If ' If Trim(PON.Text) = "" Then ' cmdSave.Enabled = False ' cmdDelete.Enabled = False ' Else ' cmdSave.Enabled = True ' cmdDelete.Enabled = True ' End If ' If Trim(PartNoSelect.Text) = "" Then ' cmdSave.Enabled = False ' cmdDelete.Enabled = False ' Else ' cmdSave.Enabled = True ' cmdDelete.Enabled = True ' End If ' If Trim(SNSelect.Text) = "" Then ' cmdSave.Enabled = False ' cmdDelete.Enabled = False ' Else ' cmdSave.Enabled = True ' cmdDelete.Enabled = True ' End If ' If Trim(ItemCondtionSelect.Text) = "" Then ' cmdSave.Enabled = False ' cmdDelete.Enabled = False ' Else ' cmdSave.Enabled = True ' cmdDelete.Enabled = True ' End If ' If Trim(DescriptionSelect.Text) = "" Then ' cmdSave.Enabled = False ' cmdDelete.Enabled = False ' Else ' cmdSave.Enabled = True ' cmdDelete.Enabled = True ' End If ' If Trim(POPSelect.Text) = "" Then ' cmdSave.Enabled = False ' cmdDelete.Enabled = False ' Else ' cmdSave.Enabled = True ' cmdDelete.Enabled = True ' End If ' If Trim(DRSelect.Text) = "" Then ' cmdSave.Enabled = False ' cmdDelete.Enabled = False ' Else ' cmdSave.Enabled = True ' cmdDelete.Enabled = True ' End If End If End Sub Private Sub SaveButton_Click() If Trim(TextVendor.Text) = "" Then MsgBox "Enter Vendor Name", vbCritical, "Save" End If Call prSave End Sub Private Sub SearchButton_Click() blnNew = False TextVendor.Text = "" TextPON.Text = "" TextPartNo.Text = "" TextSN.Text = "" TextItemCondition.Text = "" TextDescription.Text = "" TextPOP.Text = "" TextDR.Text = "" TRows = Worksheets("Inventory Assets").Range("A3").CurrentRegion.Rows.Count For i = 3 To TRows If Val(Trim(Worksheets("Inventory Assets").Cells(i, 1).Value)) = Val(Trim(VendorSelect.Text)) Then TextVendor.Text = Worksheets("Inventory Assets").Cells(i, 1).Value TextPON.Text = Worksheets("Inventory Assets").Cells(i, 2).Value TextPartNo.Text = Worksheets("Inventory Assets").Cells(i, 3).Value TextSN.Text = Worksheets("Inventory Assets").Cells(i, 4).Value TextItemCondition.Text = Worksheets("Inventory Assets").Cells(i, 5).Value TextDescription.Text = Worksheets("Inventory Assets").Cells(i, 6).Value TextPOP.Text = Worksheets("Inventory Assets").Cells(i, 7).Value TextDR.Text = Worksheets("Inventory Assets").Cells(i, 8).Value Exit For End If Next i If TextVendor.Text = "" Then Else SaveButton.Enabled = True DeleteButton.Enabled = True End If End Sub Private Sub prSave() If blnNew = True Then TRows = Worksheets("Inventory Assets").Range("A1").CurrentRegion.Rows.Count With Worksheets("Inventory Assets").Range("A1") .Offset(TRows, 0).Value = TextVendor.Text .Offset(TRows, 1).Value = TextPON.Text .Offset(TRows, 2).Value = TextPartNo.Text .Offset(TRows, 3).Value = TextSN.Text .Offset(TRows, 4).Value = TextItemCondition.Text .Offset(TRows, 5).Value = TextDescription.Text .Offset(TRows, 6).Value = TextPOP.Text .Offset(TRows, 7).Value = TextDR.Text End With TextVendor.Text = "" TextPON.Text = "" TextPartNo.Text = "" TextSN.Text = "" TextItemCondition.Text = "" TextDescription.Text = "" TextPOP.Text = "" TextDR.Text = "" Call ComboBoxFill Else For i = 2 To TRows If Trim(Worksheets("Inventory Assets").Cells(i, 1).Value) = (VendorSelect.Text) Then Worksheets("Inventory Assets").Cells(i, 1).Value = TextVendor.Text Worksheets("Inventory Assets").Cells(i, 2).Value = TextPOP.Text Worksheets("Inventory Assets").Cells(i, 3).Value = TextPartNo.Text Worksheets("Inventory Assets").Cells(i, 4).Value = TextSN.Text Worksheets("Inventory Assets").Cells(i, 5).Value = TextItemCondition.Text Worksheets("Inventory Assets").Cells(i, 6).Value = TextDescription.Text Worksheets("Inventory Assets").Cells(i, 7).Value = TextPOP.Text Worksheets("Inventory Assets").Cells(i, 8).Value = TextDR.Text TextVendor.Text = "" TextPOP.Text = "" TextPartNo.Text = "" TextSN.Text = "" TextItemCondition.Text = "" TextDescription.Text = "" TextPOP.Text = "" TextDR.Text = "" Exit For End If Next i End If blnNew = False End Sub Private Sub ComboBoxFill() TRows = Worksheets("Inventory Assets").Range("A1").CurrentRegion.Rows.Count VendorSelect.Clear For i = 2 To TRows ComboBox.AddItem.Worksheets("Inventory Assets").Cells(i, 1).Value Next i End Sub ''Private Sub ComboBoxFill() ' TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count ' PON.Clear ' For i = 2 To TRows ' ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value ' Next i 'End Sub ''Private Sub ComboBoxFill() ' TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count ' PartNoSelect.Clear ' For i = 2 To TRows ' ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value ' Next i 'End Sub ''Private Sub ComboBoxFill() ' TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count ' SNSelect.Clear ' For i = 2 To TRows ' ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value ' Next i 'End Sub ''Private Sub ComboBoxFill() ' TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count ' ItemCondtionSelect.Clear ' For i = 2 To TRows ' ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value ' Next i 'End Sub ''Private Sub ComboBoxFill() ' TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count ' DescriptionSelect.Clear ' For i = 2 To TRows ' ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value ' Next i 'End Sub ''Private Sub ComboBoxFill() ' TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count ' POPSelect.Clear ' For i = 2 To TRows ' ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value ' Next i 'End Sub ''Private Sub ComboBoxFill() ' TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count ' DRSelect.Clear ' For i = 2 To TRows ' ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value ' Next i 'End Sub 'Rows(7).Select 'Columns(2).Select( para pegar a coluna e fileira Private Sub Test_Initialize() Call prCommBoxFill SaveButton.Enable = False DeleteButton.Enable = False End Sub Private Sub VendorSelect_Change() TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count VendorSelect.Clear For i = 2 To TRows ComboBox.AddItem.Worksheets("Inventory Assets").Cells(i, 1).Value Next i End Sub Private Sub PONSelect_Change() TRows = Workplace("Inventory Assets").Range("B2").CurrentRegion.Rows.Count PON.Clear For i = 2 To TRows ComboBox.AddItem.Worksheets("Inventory Assets").Cells(i, 1).Value Next i End Sub Private Sub PartNoSelect_Change() 'Private Sub ComboBoxFill() TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count PartNoSelect.Clear For i = 2 To TRows ComboBox.AddItem.Worksheets("Inventory Assets").Cells(i, 1).Value Next i End Sub Private Sub SNSelect_Change() 'Private Sub ComboBoxFill() TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count SNSelect.Clear For i = 2 To TRows ComboBox.AddItem.Worksheets("Inventory Assets").Cells(i, 1).Value Next i End Sub Private Sub ItemConditionSelect_Change() 'Private Sub ComboBoxFill() TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count ItemCondtionSelect.Clear For i = 2 To TRows ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value Next i End Sub Private Sub DescriptionSelect_Change() 'Private Sub ComboBoxFill() TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count DescriptionSelect.Clear For i = 2 To TRows ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value Next i End Sub Private Sub POPSelect_Change() 'Private Sub ComboBoxFill() TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count POPSelect.Clear For i = 2 To TRows ComboBox.AddItem.Worksheets("Inventory Assets").Cells(i, 1).Value Next i End Sub Private Sub DRSelect_Change() 'Private Sub ComboBoxFill() TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count DRSelect.Clear For i = 2 To TRows ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value Next i End Sub Private Sub Search_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) End Sub
  2. caguerra

    Desenvolvimento de Chat com JSP

    ola boa tarde estou precisando de ajuda pra termina um programa estou com muita dificuldade em concluir se eu estiver perto de concluir lo eu tenho que fazer o seguinte : desenvolver uma aplicação web destinada à troca de mensagens de texto Esta aplicação permite que usuários enviem mensagens de texto, e estas mensagens podem ser visualizadas por todos os usuários que acessarem a aplicação. Requisitos: a) Gerenciamento de sessão de Usuários, através das funções de login e logout. b- Exibir o nome do usuário autenticado c) Exibir a quantidade de Usuário online d) Usuários autenticados podem enviar mensagens. Estas mensagens podem ser vistas por qualquer usuários que acesse a aplicação (logado ou não logado). e)Fazer a verificação (login vazio); f)Fazer o cadastro(tem que ter o Array para cadastrar); g)nserir os textos(tem que ter o Array para cadastrar). essa e a primeira parte do que eu tenho que fazer o que eu consegui fazer e foi seguinte no net beans algumas classes por favor eu realmente preciso de ajuda !!! cadastro.jsp <%@Page contentType="text/html" pageEncoding="UTF-8"%> <!DOCTYPE html> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> </head> <body> <p>Digite o formulario abaixo</p> <form action="cadastroServet" method="POST"> Login <input type="text" name="login" /> <br /> Senha <input type="password" name="senha"/> <br /> <input type="submit" value="Cadastrar" /> </form> </body> </html> index.jsp <%@Page contentType="text/html" pageEncoding="UTF-8"%> <!DOCTYPE html> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> </head> <body> <h3>Bem vindo</h3> <% String erro = request.getParameter("erro"); if(erro.equals("1")){ out.print("<b>Tente Novamente</b>"); } %> <p>Para se cadastrar, <a href="cadastro.jsp">clique aqui</a></p> <form action="loginServet" method="POST"> Login <input type="text" name="login" /> <br /> Senha <input type="password" name="senha"/> <br /> <input type="submit" value="Login" /> </form> </body> </html> principal.jsp <%@PagecontentType="text/html" pageEncoding="UTF-8"%> <!DOCTYPE html> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> </head> <body> <h3>Bem vindo <%=session.getAttribute("login").toString() %></h3> <p>Digite sua mensagem: </p> <form> <textarea rows="5"></textarea> <br /> <input type="submit" name="enviar"/> </form> <form action="logoutServet" method="POST"> <input type="submit" name="Logout"/> </form> </body> </html> loginServet.java package servlets; import java.io.IOException; import java.io.PrintWriter; import javax.servlet.ServletException; import javax.servlet.annotation.WebServlet; import javax.servlet.http.HttpServlet; import javax.servlet.http.HttpServletRequest; import javax.servlet.http.HttpServletResponse; import javax.servlet.http.HttpSession; @WebServlet(urlPatterns = {"/loginServet"}) public class loginServet extends HttpServlet { @override protected void doPost(HttpServletRequest request, HttpServletResponse response) throws ServletException, IOException { String login = request.getParameter("login"); String senha = request.getParameter("senha"); if(login.isEmpty()){ response.sendRedirect("index.jsp?erro=1"); }else{ HttpSession session = request.getSession(); session.setAttribute("login", login); response.sendRedirect("principal.jsp"); } } @override public String getServletInfo() { return "Short description"; } }
  3. colega eu não to pedindo pra vc faze isso pra mim se vc quiser td bem, como vc percebeu eu ja fiz umas parte so que esta dando erro eu não so tao bom nisso por isso eu pedi pela a ajuda o texto que eu coloquei acima do código e o que eu tenho que faze eu consegui fazer ate onde eu sei eu esto pedindo ajuda como diz o nome do topico e não fazer meu trabalho por mim por favor se vc não que ajudar não venha falando que eu estou pedindo pra vc ou qualquer outra pessoa fazer isso pra mim estou pedindo uma ajuda pq eestou com difilcudade em terminar o codigo que fiz ate agora att
  4. ola boa noite estou precisando de ajuda pra termina um programa estou com muita dificuldade em concluir se eu estiver perto de concluir lo eu tenho que fazer o seguinte : desenvolver uma aplicação web destinada à troca de mensagens de texto Esta aplicação permite que usuários enviem mensagens de texto, e estas mensagens podem ser visualizadas por todos os usuários que acessarem a aplicação. Requisitos: a) Gerenciamento de sessão de Usuários, através das funções de login e logout. B) Exibir o nome do usuário autenticado c) Exibir a quantidade de Usuário online d) Usuários autenticados podem enviar mensagens. Estas mensagens podem ser vistas por qualquer usuários que acesse a aplicação (logado ou não logado). e)Fazer a verificação (login vazio); f)Fazer o cadastro(tem que ter o Array para cadastrar); g)nserir os textos(tem que ter o Array para cadastrar). essa e a primeira parte do que eu tenho que fazer o que eu consegui fazer e foi seguinte no net beans algumas classes por favor eu realmente preciso de ajuda !!! cadastro.jsp <%@Page contentType="text/html" pageEncoding="UTF-8"%> <!DOCTYPE html> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> </head> <body> <p>Digite o formulario abaixo</p> <form action="cadastroServet" method="POST"> Login <input type="text" name="login" /> <br /> Senha <input type="password" name="senha"/> <br /> <input type="submit" value="Cadastrar" /> </form> </body> </html> index.jsp <%@Page contentType="text/html" pageEncoding="UTF-8"%> <!DOCTYPE html> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> </head> <body> <h3>Bem vindo</h3> <% String erro = request.getParameter("erro"); if(erro.equals("1")){ out.print("<b>Tente Novamente</b>"); } %> <p>Para se cadastrar, <a href="cadastro.jsp">clique aqui</a></p> <form action="loginServet" method="POST"> Login <input type="text" name="login" /> <br /> Senha <input type="password" name="senha"/> <br /> <input type="submit" value="Login" /> </form> </body> </html> principal.jsp <%@PagecontentType="text/html" pageEncoding="UTF-8"%> <!DOCTYPE html> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> </head> <body> <h3>Bem vindo <%=session.getAttribute("login").toString() %></h3> <p>Digite sua mensagem: </p> <form> <textarea rows="5"></textarea> <br /> <input type="submit" name="enviar"/> </form> <form action="logoutServet" method="POST"> <input type="submit" name="Logout"/> </form> </body> </html> loginServet.java package servlets; import java.io.IOException; import java.io.PrintWriter; import javax.servlet.ServletException; import javax.servlet.annotation.WebServlet; import javax.servlet.http.HttpServlet; import javax.servlet.http.HttpServletRequest; import javax.servlet.http.HttpServletResponse; import javax.servlet.http.HttpSession; @WebServlet(urlPatterns = {"/loginServet"}) public class loginServet extends HttpServlet { @override protected void doPost(HttpServletRequest request, HttpServletResponse response) throws ServletException, IOException { String login = request.getParameter("login"); String senha = request.getParameter("senha"); if(login.isEmpty()){ response.sendRedirect("index.jsp?erro=1"); }else{ HttpSession session = request.getSession(); session.setAttribute("login", login); response.sendRedirect("principal.jsp"); } } @override public String getServletInfo() { return "Short description"; } }
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.