AJUDA COM FORM DE LOGIN COM BANCO DE DADOS.

RDPIZA 30/03/2013 20:38:58
#421295
ola estou a criar um form de login e senha com banco de dados dao.

ta tudo certo faço o cadastro dos ussuarios ate ai blz ,mas quando vo fazer o login só consigo fazer com o user name e senha do primeiro registro os demais NÃO( login ou senha incorretos)ajudem-me.

Aqui o codigo.

Dim dados As dao.Database
Dim users As dao.Recordset
Private Sub CmdCadastrar_Click()

users.AddNew
users([Ô]nome[Ô]) = Text1
users([Ô]senha[Ô]) = Text2
users.Update

End Sub
Private Sub CmdLogin_Click()

Dim nome As String
Dim senha As String

nome = users([Ô]nome[Ô])
senha = users([Ô]senha[Ô])

If nome = Text1.Text And senha = Text2.Text Then
MsgBox ([Ô]Voçê esta logado![Ô]), vbInformation, [Ô]Login[Ô]
Else
MsgBox ([Ô]Login ou senha incorretos![Ô]), vbCritical, [Ô]Erro[Ô]

End If

End Sub
Private Sub Form_Load()

Set dados = OpenDatabase([Ô]C:\VB6 paroquia\cad.mdb[Ô])
Set users = dados.OpenRecordset([Ô]Usuarios[Ô], dbOpenTable)
users.Index = [Ô]cod[Ô]

End Sub
OMAR2011 31/03/2013 08:28:47
#421300
Set users = dados.OpenRecordset([Ô]Usuarios[Ô], dbOpenTable)
Só pega o primeiro registro.
Para registros desejados.
Set users = dados.OpenRecordset([Ô]Select * From Usuarios Where nome=[ô][Ô] & Text1.Text & [Ô][ô] and senha= [ô][Ô] & Text2.Text & [Ô][ô][Ô], dbOpenDynaset)
Ai vai dar certo,porém.............
RDPIZA 31/03/2013 12:32:39
#421308
Agora ta erro:

Run-time error [Ô]3265[Ô]

Item not found in this collection.
OMAR2011 31/03/2013 13:47:24
#421309
Verifica.
RDPIZA 01/09/2013 17:09:28
#428367
ajuda com este erro...
RDPIZA 01/09/2013 17:11:56
#428368
este erro
ADILSOO 01/09/2013 21:11:13
#428373 
 Dim rs as Recordset

sSQL = [Ô]SELECT Usuario, Senha FROM tabela WHERE Usuario = [ô][Ô]& txtUsuario.text &[Ô][ô] and Senha = [ô][Ô]& txtSenha.text &[Ô][ô][Ô]
Set rs = Conexao.Execute.sSQL

If not (rs.EOF = True and rs.BOF = True) Then
[ô]Logado, faça o que quiser agora
Else
Msgbox [Ô]Usuário ou senha Incorreta[Ô], VbInformation + VbOkOnly, [Ô]Acesso negado[Ô]
End If


Amigo, basicamente seria isso!!!
LUCASVA 02/09/2013 09:26:06
#428384
bom começa aprender a identar teu código, vai evita muito problemas;

depois vai estudar os nomes das tabelas e campos;

não quiz ser agressivo, apenas objetivo;
MARCELO.TREZE 02/09/2013 10:07:44
#428387 Resposta escolhida
DAO é tão primitivo que acabamos esquecendo como se usa, tenta assim:

Dim dados As dao.Database
Dim users As dao.Recordset


Private Sub CmdCadastrar_Click()
Set users = dados.OpenRecordset([Ô]Usuarios[Ô], dbOpenTable)
users.Index = [Ô]cod[Ô]
users.AddNew
users([Ô]nome[Ô]) = Text1
users([Ô]senha[Ô]) = Text2
users.Update
users.Close
End Sub


Private Sub CmdLogin_Click()
Set users = dados.OpenRecordset([Ô][Ô]Select * From Usuarios Where nome=[ô][Ô] & Text1.Text & [Ô][ô] and senha= [ô][Ô] & Text2.Text & [Ô][ô][Ô], dbOpenDynaset)

If not (users.EOF = True And users.BOF = True) Then
MsgBox ([Ô]Voçê esta logado![Ô]), vbInformation, [Ô]Login[Ô]
    Else
MsgBox ([Ô]Login ou senha incorretos![Ô]), vbCritical, [Ô]Erro[Ô]
End If
End Sub


Private Sub Form_Load()
Set dados = OpenDatabase([Ô]C:\VB6 paroquia\cad.mdb[Ô])
End Sub



bom se não funcionar da uma lida neste link de 9 anos atrás

http://www.vbweb.com.br/dicas_visual.asp?Codigo=3185&Classificacao=
RDPIZA 02/09/2013 23:31:13
#428422
Citação:

:

 Dim rs as Recordset

sSQL = [Ô]SELECT Usuario, Senha FROM tabela WHERE Usuario = [ô][Ô]& txtUsuario.text &[Ô][ô] and Senha = [ô][Ô]& txtSenha.text &[Ô][ô][Ô]
Set rs = Conexao.Execute.sSQL

If not (rs.EOF = True and rs.BOF = True) Then
[ô]Logado, faça o que quiser agora
Else
Msgbox [Ô]Usuário ou senha Incorreta[Ô], VbInformation + VbOkOnly, [Ô]Acesso negado[Ô]
End If


Amigo, basicamente seria isso!!!
OMAR2011 03/09/2013 09:14:47
#428428
Olha onde está o erro.
Set users = dados.OpenRecordset([Ô]Select [txt-color=#e80000]login,[/txt-color]* From Login Where Nome = [ô][Ô] & Text1.Text & [Ô][ô] and Senha = [ô][Ô] & Text2.Text & [Ô][ô][Ô], dbOpenDynaset)

Set users = dados.OpenRecordset([Ô]Select * From Login Where Nome = [ô][Ô] & Text1.Text & [Ô][ô] and Senha = [ô][Ô] & Text2.Text & [Ô][ô][Ô],
dbOpenDynaset)

ou

Set users = dados.OpenRecordset([Ô]Select Nome,Senha From Login Where Nome = [ô][Ô] & Text1.Text & [Ô][ô] and Senha = [ô][Ô] & Text2.Text & [Ô][ô][Ô], dbOpenDynaset)


Cabra,coloque seu banco onde está a pasta do projeto e abra desta forma.

Set dados = OpenDatabase(App.Path & [Ô]\basedados.mdb[Ô], False, False)
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar