MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]ajuda login no acess com o vb 6

    avatar
    badkanye
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 34
    Registrado : 20/11/2011

    [Resolvido]ajuda login no acess com o vb 6 Empty [Resolvido]ajuda login no acess com o vb 6

    Mensagem  badkanye 22/2/2012, 11:41

    Decide fazer um outro sistema de login.
    criei dois módulos dois Command button dois TextBox e duas label. Crie um banco de dados em access 2003 onde tem dois campos (utilizador e senha).
    Em visual basic adicionei dois módulo para declarar uma variável global para ser usada em todos os projecto 'a conexão é do tipo Adodb. este ai é primeiro módulo, o código utilizado é este: (Global base As New ADODB.Connection
    Global Rsusuario As New ADODB.Connection). E no segundo Modulo contem o caminho para a conexão, (Sub main()
    With base
    .CursorLocation = adUseClient
    .Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\IE-Borba\Ambiente de trabalho\login em visual basic\usuarios.mdb;Persist Security Info=False"
    frmlogin.Show
    End With
    End Sub

    Sub usuarios()
    With Rsusuario
    If .State = 1 Then .Close
    .Open "select * from senha", base, adOpenStatic, adLockPessimistic
    End With
    End Sub) Esse parênteses a itálico é para vocês não se confundirem!



    Depois de ter declarado as variáveis comei a programar no botão acessar ou entrar.
    só que depois de ter feito tudo executei o programa e surgiu-me o seguinte erro " Run-time error '3704': A operação não é permitida se o objecto estiver fechado". este é o erro que surgiu.
    Mas quando eu não introduzo nenhum dado em textsenha ou txtusuario mostra as mensagens que declarei quando não é introduzido o nome ou senha correcto do utilizador. E quando ponho os dados que estão em base contidos em basede dados access o programa da-me erro que ja foi referido anteriormente.
    O código do botão acessar é este:
    (Private Sub CmdOk_Click()
    If txtusuario.Text = "" Then MsgBox "Degite a sua senha de acesso", vbInformation, "aviso": txtusuario.SetFocus
    If txtusuario.Text = "" Then MsgBox "Digite a sua senha", vbInformation, "Aviso": txtsenha.SetFocus: Exit Sub
    With Rsusuario
    .Requery
    .Find "usuario = '" & Trim(txtusuario.Text) & "'"
    If .EOF Then
    MsgBox "Usuario Incorreto", vbInformation, "Aviso"
    Exit Sub
    Else
    If senha = Trim(txtsenha.Text) Then
    Principal.Show
    Else
    MsgBox "senha Incorreta", vbInformation, "Aviso"
    Exit Sub
    End If
    End If
    End With
    End Sub

    Este programa esta com erro em linha Requery aparece sublinhado amarelo.
    Ficaria imenso grato se poderem me ajudar com esse problema antecipadamente

    Atentamente
    Edmilson da Graça
    avatar
    Convidad
    Convidado


    [Resolvido]ajuda login no acess com o vb 6 Empty Re: [Resolvido]ajuda login no acess com o vb 6

    Mensagem  Convidad 22/2/2012, 11:58

    Olá Amigo

    Já usei o VB apenas para fazer alguns executáveis, coisas simples.
    Poucos aqui no fórum, conhece a linguagem VB embora seja parecida com VBA.
    Porém em alguns casos, o modus operandi é bem diferente.
    Bem nunca usei o VB para conexão com a base de dados.
    Creio que esse erro retornado é justamente porque a base de dados continua fechada.
    Por favor, verifique teu código nessa linha:
    With base
    .CursorLocation = adUseClient
    .Open "Provider=
    End With

    Você está usando as propriedade de base,mas onde ela está declarada e onde é passado o valor para ela?
    É assim mesmo que funciona no VB?
    Porque em VBA seria assim:
    Set base = ....
    e depois podemos usar o with.
    Bem amigo, é o que posso te ajudar.
    Abraços




      Data/hora atual: 28/3/2024, 18:32