Ir para conteúdo
Fórum Script Brasil

Bruno Pola

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    21

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Bruno Pola

  2. Duplicação De Usuários

    em Visual Basic

    Postado 

    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. Duplicação De Usuários

    em Visual Basic

    Postado

    Qual o erro que dá? Em qual linha? E qual o código que você está usando?

    Abraços,

    Graymalkin

    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

  6. Duplicação De Usuários

    em Visual Basic

    Postado · Editado por Bruno Pola

    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!

    post-27395-1175173295_thumb.jpg

  7. Duplicação De Usuários

    em Visual Basic

    Postado · Editado por Bruno Pola

    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. Duplicação De Usuários

    em Visual Basic

    Postado

    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 um problema sério no seu código. Você está usando o mesmo DataControl para adicionar e para fazer a pesquisa (ao mesmo tempo). Provavelmente você está chamando o AddNew (que posiciona o cursor em um novo registro, em branco). Daí, naquele seu código você faz um FindFirst (que posiciona o seu cursor no registro encontrado ou em EOF caso não encontre). Ao fazer isso você está finalizando o seu AddNew. O ideal no caso seria fazer a pesquisa antes de chamar o AddNew, porque você não pode mexer no cursor da tabela enquanto está adicionando um registro.

    Sacou? ;)

    Graymalkin

    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. Duplicação De Usuários

    em Visual Basic

    Postado

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

  13. Cade O Pascal?

    em Outras Linguagens de Programação

    Postado

    porque todo programador sabe que para aprender programação o amsi recomendaod é pascal

    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. Duplicação De Usuários

    em Visual Basic

    Postado

    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. Duplicação De Usuários

    em Visual Basic

    Postado

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

  17. Salvar Os Dados De Outra Tabela

    em Visual Basic

    Postado

    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!

  18. Salvar Os Dados De Outra Tabela

    em Visual Basic

    Postado

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

    post-27395-1173980887_thumb.jpg

    Vlww!

    Deu certo!

    .xD

  21. Enviando Email, Tem Como?

    em Visual Basic

    Postado

    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

×
×
  • Criar Novo...