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"
Pergunta
Wakim
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
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.