Jump to content
Fórum Script Brasil

Bruno Pola

Membros
  • Posts

    21
  • Joined

  • Last visited

About Bruno Pola

  • Birthday 05/22/1989

Contatos

  • Website URL
    http://fotolog.com/zoera_
  • ICQ
    0

Perfil

  • Gender
    Male
  • Location
    Bauru

Bruno Pola's Achievements

0

Reputation

  1. Num tem jeito mesmo?! aziuhaeiue Abraçooos!
  2. rs = DtUser.Database.OpenRecordset("SELECT * FROM Tb_Usuario WHERE Nome='" & Nome.Text & "'") MsgBox Nome If rs.EOF Then MsgBox "Usuário já existente", vbInformation, "Aviso" DtUser.Recordset.CancelUpdate Else If Sim.Value = True Then DtUser.Recordset("Administrador") = "S" ElseIf não.Value = True Then DtUser.Recordset("Administrador") = "N" End If DtUser.Recordset.Update habilitabotoes End If End Sub
  3. Vish véio.. eu dei print, só que não tá aparecendo para eu postar a imagem aqui. Mas dá um erro que o objeto não suporta essa propriedade ou metodo.. na linha do If rs.eof then E não entendi esse negócio do codigo.. hehehe... vlww
  4. Nada ainda, os mesmos erros.. Será que não tem nenhuma propriedade, ou função que eu tenha que atribuir no meu Data? Se bem que eu já fucei em tudo que é possivel, alterei até o que não sabia e nada!! Mas, talvez eu não tenha mudado alguma coisa que falta.... Vlww!!
  5. Dá a mesma coisa cara.... Os mesmos erros!
  6. Ele dá um erro no If Not... Sinceramente não sei o que acontece.. Se eu troco o If Not pelo If só: If rs.EOF <> 0 And rs.BOF <> 0 then ou somente: If rs<>0 then Ele dá a mensagem: "Erro de Automatização" Nunca vi essas coisas aieuhiaeuheiu Mas valeeu!
  7. Olha.. eunão entendi muito bem o que ue você quis dizer... Mas com o exitsub lá.. ele pára de funcionar tudo... até quando eu clico no cancelar, ele avisa que não existe nenhum addnew ou edit... e se eu troco o nome que eu digitei, ele me avisa falando que existe esse registro e altera o ultimo da tabela... Exemplo tenho um registro Bruno tento adicionar outro Bruno, ele me avisa que já existe e pára. ai eu digito zé(que não existe), ele me avisa que já tem o zé e altera o Bruno que eu tinha para zé, só que o programa não sai dai. Se eu tento fazer alguma coisa, ele fala que eu não tenho nenhum addnew ou edit em evidencia..... vai entender essas coisas! aeiueahieauheiauheaiua vlwww!
  8. Hmm Isso também já tentei.. Mas tipo.. Assim ele vai cancelar tudo, até o registro criado. Eu queria que avisasse que existe o usuário e voltasse pro text para quem estiver cadastrando poder alterar, não começar tudo denovo entendeu? Mas de inicio, eu pensei em deixar assim, pois são poucos campos. Só que mais pra frente, vai ser uma ficha completa dos usuários! Aí complica se cancelar tudo né? Mas valeu mesmo assim!! Tem como eu fazer uma pesquisa com outro data? Ou melhor, tem como me dar um toque, sobre como fazer assim? porque não saiu nada aqui xheheh
  9. Putz.. nem tinha pensado nisso.... É por isso o erro então... Só uma coisa que eu não entendi... Mas se ele finaliza, porque ele salva na tabela os dados que eu digitei? E como eu vou fazer essa pesquisa antes do AddNew(mas isso eu vou pensar!!!) E valeu cara!! Me ajudou bst!!
  10. É assim, ele dá o erro como se não tivesse add new.... E dá a mensagem que já existe o usuário cadastrado.. A linha que dá o erro, são 2 options que dizem se o usuário cadastrado é administrador ou não... Mas, mesmo assim ele salva na tabela...
  11. Eu achei esse link do Turbo Pascal 7.0: http://www.simonhuggins.com/courses/progbe...ascal/download/ Tem o 1.5 que você acha no google fácil. Se você quiser eu tento te mandar no seu email o instalador do Pascal 2.0. Só me dar um toque. abraço!
  12. Ah cara, já tentei de tudo.. Dá o mesmo erro.. E mesmo assim, eu tenho o botão novo. Lá tá o add new.. como sempre fiz.. só que eu nunca tinha feito um controle de senhas..
  13. Talvez isso fosse verdade há 5 anos. Hoje em dia, eu recomendaria Python. aiaiai na faculdade eu e uns maluco discutimo isso numa lista de discussao e qsuae saiu porrada. recomendo o pascal com certeza já que o pascal tem a estrutura base pra todas as linguagens mas usadas. python já é uma linguagem bem diferente de tudo que já conhece. conhecendo primeiro pascal, o cara teria mais facilidade de se adaptar as otras linguagens. comecando por python isso seria mais dificil. Com certeza, acho que para pegar noção de lógica o Pascal ajuda muito. É muito mais fácil de programar. De entender.
  14. Vish, deu certo.. Mas mesmo assim tá salvando... E agora apareceu o erro que tá faltando o addnew pra salvar os dados.. Mas o addnew tá noutro botão... O botão que salva é esse: If Sim.Value = True Then DtUser.Recordset("Administrador") = "S" ElseIf não.Value = True Then DtUser.Recordset("Administrador") = "N" End If Var = "Nome='" & nome.Text & "'" DtUser.Recordset.FindFirst (Var) If Var <> 0 Then MsgBox "Usuário já existente", vbInformation, "Aviso" DtUser.Recordset.CancelUpdate End If DtUser.Recordset.Update [/codebox] alguém pode ajudar? Vlww
  15. Então, tenho que fazer um sisteminha que tem login de usuários. Só que não consigo fazer um controle certinho sobre os usuários cadastrados. Fiz um recordset mas não deu muito certo não: var= "Nome='" * nome.Text * "'" DtUser.Recordset.FindFirst var If aoa = 1 Then MsgBox "Usuário já existente", vbInformation, "Aviso" Else;[/codebox] mas não funciona.. alguém pode me ajudar a clarear as idéias?? vlww ele dá um erro de Type Mismatch, mas mesmo assim salva os dados na tabela...
×
×
  • Create New...