Bruno Pola

Num tem jeito mesmo?! aziuhaeiue Abraçooos!

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

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

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!!

Dá a mesma coisa cara.... Os mesmos erros!

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!

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!

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

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!!

É 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...

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!

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..

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.

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

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...

aH.. entendi.. é aquele negocio de "(...)regsvr32.exe(...)"?! aeuhaeiu deu certo agora!! vlw!

Não.. é sim.. Eu não tinha reparado certinho no erro.. Consegui fazer sim.. eu só mudei de posição o ultimo record set, deixei assim: DtMov.Recordset("Tp_Movimento") = ttipomov DtMov.Recordset.Update[/codebox] O add new tá noutro botão..xD Eu deixei não tava pensando muito bem na lógica!! mas vlwww!

Então.. Estou tentando salvar os dados de uma tabela em outra, selecionando por um DBCombo. Não sei se é o certo mas eu pensei assim: Data1.Recordset("NOME DO CAMPO NA TABELA") = DBCombo1 está assim: DtMov.Recordset.Update DtMov.Recordset("Tp_Movimento") = ttipomov E o data que estou chamando no ttipomov é o DtTipo em outra tabela certo? Só que ele aparece um erro. Será que é alguma propriedade que eu tenha que alterar não sei.. alguém pode me ajudar aí? O print com o erro está anexo.. vlww!! Vlww! Deu certo! .xD

Hum.. e esse negocio de registrar DLL?

Não consegui fazer isso não... alguém pode me explicar melhor?? Onde eu jogo os arquivos?

Bom dia! Eu tenho pronto um sisteminha simples, meio que um HelpDesk... So que toda vez que alguém digita alguma coisa, eu peço que me mandem um email pra que eu saiba que foi digitado. Assim eu entro no banco e vejo o que foi digitado, assim posso ajudar... Queria uma forma de toda vez que confirmarem os dados, sei lá, enviar um email me avisando quais os dados digitados. Já pensei em gerar um relatório que eles possam me enviar depois, um documento TXT ou com o próprio Crystal Reports Mas queria algo mais específico.. alguém pode me ajudar? valeuus! ;D