AJUDA COM LOGIN E SENHA COM BANCO DE DADOS COM DAO

RDPIZA 14/03/2012 07:54:01
#397108
to criando form de login e senha com dados DAO no form cadastrar consegui só que no form login quando digito login e senha nao loga da login ou senha incorretos oq esta errado?

Private Sub cmdentrar_Click()
If txtnome.Text = ([Ô]C:\Dados\Login\Nome[Ô]) Then
MsgBox [Ô]Você esta logado[Ô]
Else
MsgBox [Ô]Nome ou Senha Incorretos![Ô]
If txtsenha.Text = ([Ô]C:\Dados\Login\Senha[Ô]) Then
MsgBox [Ô]Você esta logado[Ô]
Else
MsgBox [Ô]Nome ou Senha Incorretos![Ô]
End If
End If
End Sub

Precisa Disso?

Private Sub Form_Load()
Dim dados As Database
Dim login As Recordset
Set dados = OpenDatabase([Ô]c:\Dados\Login[Ô])
Set login = dados.OpenRecordset([Ô]Login[Ô], dbOpenTable)

End Sub
ADILSOO 14/03/2012 08:02:16
#397110 Resposta escolhida
Private Sub cmdentrar_Click()
If txtnome.Text = Tabela([Ô]Nome[Ô]).Value and txtsenha.text = Tabela([Ô]Senha[Ô]).Value Then
MsgBox [Ô]Você esta logado[Ô], vbinformation+vbokonly, [Ô]Acesso Permitido[Ô]
Else
MsgBox [Ô]Nome ou Senha Incorretos![Ô], vbcritical + vbokonly, [Ô]Acesso Negado[Ô]
End If
End Sub

voce precisa declarar as variaveis,

SeuBanco como DATABASE
SuaTabela como RECORDSET

EX:

Dim Banco as DAO.DATABASE
Dim Tabela as DAO.RECORDSET

é issso aew.
RDPIZA 14/03/2012 08:16:47
#397112
Brigadão vlw msm.
Tópico encerrado , respostas não são mais permitidas
Voltar