Ir para conteúdo
Fórum Script Brasil
  • 0

Dúvidas form Login e Comando de Gravar


Wakim

Pergunta

boa tarde pessoal,

sou iniciante em VB e estou tentando fazer um form de login. No entanto, quero que ele acesse a tabela de usuários e verifique se o nome e senha estão cadastrado, se estiverem, deve avançar para outro formulário, se não apresenta uma mensagem de erro:

Estou usando a seguinte programação, mas não sei se está correta, pois está dando uma mensagem de erro:

Public bd as Database

Public Usuarios as Recordset

If txtlogin.Text = Usuarios("Usuario") And txtsenha.Text = Usuarios("Senha") Then

formprincipal.Show

Else

MsgBox "Usuário ou senha não cadastrados!", vbExclamation + vbOKOnly, "ALERTA"

End If

End Sub

Outra dúvida é quanto à rotina para gravar os dados dos usuarios:

No formulário usuário tenho os seguintes dados: Código, Usuário, Senha, Novo, Salvar e Sair. Eu gostaria de o campo código fosse gerado automaticamente como no Access, como fazer?

O código que estou usando é esse, no entanto, não consigo gravar na tabela.

Private Sub Form_Load()

Dim dbname as string

dbname = "\bd.mdb"

Set bd = DBEngine.Workspaces(0).OpenDatabase(App.Path & dbname)

Set Usuarios = bd.OpenRecordset("Usuarios", dbOpenTable)

txtcodigo.Enabled = False

txtusuario.Enabled = False

txtsenha.Enabled = False

cmdnovo.Enabled = True

cmdsalvar.Enabled = False

cmdsair.Enabled = True

End Sub

Private Sub cmdnovo_Click()

cmdnovo.Enabled = False

cmdsalvar.Enabled = True

cmdsair.Enabled = True

txtcodigo.Enabled = True

txtusuario.Enabled = True

txtsenha.Enabled = True

Usuarios.AddNew

txtcodigo.SetFocus

End Sub

Private Sub cmdsalvar_Click()

If txtcodigo.Text = Empty Then

MsgBox "O cadastro do código é necessário!", vbExclamation + vbOKOnly, "ALERTA"

txtcodigo.SetFocus

atualiza = False

Exit Sub

End If

If txtusuario.Text = Empty Then

MsgBox "O cadastro do nome de usuário é necessário!", vbExclamation + vbOKOnly, "ALERTA"

txtusuario.SetFocus

atualiza = False

Exit Sub

End If

If txtsenha.Text = Empty Then

MsgBox "O cadastro da senha é necessária!", vbExclamation + vbOKOnly, "ALERTA"

txtsenha.SetFocus

atualiza = False

Exit Sub

End If

Usuarios!("Codigo") = IIf(IsNull(codigo), "", codigo)

Usuarios!("Usuário") = IIf(IsNull(Usuario), "", Usuario)

Usuarios!("Senha") = IIf(IsNull(Senha), "", Senha)

End Sub

Se alguém puder me dá uma luz onde estou errando ficarei grato.

Abraços

Vasconcelos

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

Fala Wakim !

Na boa, use a TAG "Code" (a última opção no menú de ferramentas) que o código fica mais legível :rolleyes:

Quanto a sua dúvida, que tipo de conexão você está usando ??? pelo visto não é ADO...

Tenho um projeto-exemplo bem simples que fiz para praticar, mas a conexão é ADO.

Se quiser, avisa que posto o link.

VALEU ! :)

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...