Jump to content
Fórum Script Brasil
  • 0

Dúvidas form Login e Comando de Gravar


Wakim
 Share

Question

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 to comment
Share on other sites

2 answers to this question

Recommended Posts

  • 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 to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.9k
    • Total Posts
      648.7k
×
×
  • Create New...