USUARIO E SENHA

GESSINGER 09/04/2011 00:08:45
#370898
Fala aia pessoal, estou com um projetinho de Login onde tem 2 campos
Usuario e Senha
banco access

o txtUsuario ja esta funcionando certinho, gostaria q alguem fizsesse com q
a txt senha verificasse se a senha esta correta, usando a mesma logica do txtUruario

Vou postar o CÓDIGO no tópico.
MOREIRA 09/04/2011 00:27:06
#370899
Set Rst = New ADODB.Recordset
Rst.Open [Ô]SELECT * [Ô] & _
[Ô]FROM Tb_Usuar [Ô] & _
[Ô]WHERE Usuario =[ô][Ô] & TxtNome_Usua.Text & [Ô][ô][Ô] & _
[Ô]AND Senha=[ô][Ô] & TxtSenha_Usua.Text & [Ô][ô][Ô], Conexao, adOpenForwardOnly, adLockOptimistic

If Rst.EOF Then
MsgBox [Ô]Nome de Usuário ou Senha Incorreto.[Ô], vbExclamation, [Ô]Erro[Ô]

Else

Mdi_Principal.Show
Unload Me
GESSINGER 09/04/2011 00:34:45
#370900
peço q use a mesma logica do arquivo zip....por favor
KURTGU 09/04/2011 01:15:49
#370901
dificilmente vc vai encontrar um que baixe e faca pra voce o mais facil e voce postar o codigo e pedir pra alguem adicionar o que falta ou corrigir pra voce..... so uma dica.....
TECLA 09/04/2011 01:30:27
#370903
Citação:

:
dificilmente vc vai encontrar um que baixe e faca pra voce o mais facil e voce postar o codigo e pedir pra alguem adicionar o que falta ou corrigir pra voce..... so uma dica.....



Reforçando o que disse o colega, a comunidade existe para AJUDAR os que desejam aprender, e não POR A MÃO NA MASSA para os que desejam simplesmente de um resultado.
Pense nisso e melhore seus tópicos.
GESSINGER 09/04/2011 01:32:48
#370904
ok vou pensar
MSMJUDAS 09/04/2011 08:36:17
#370908
é muito simples isso, PENSE um pouco, use sua lógica.

Se todo mundo fizesse as coisas pra vc, vc nunca iria aprender nada direito.

Sugestão: primeiro verifique se o usuário digitado existe na sua tabela, depois verifique se a senha digitada é igual a que existe no cadastro do usuário.
GUTOTEC 09/04/2011 15:47:44
#370928
Citação:

Private Sub cmdEntra_Click()

If txtUsuario.Text = Empty Then
MsgBox [Ô]Digite o nome do usuário[Ô], vbCritical, [Ô]Atenção[Ô]
txtUsuario.Text = [Ô][Ô]
txtSenha.Text = [Ô][Ô]
txtUsuario.SetFocus
Exit Sub
End If

Dim proc1 As String
Dim rs As New ADODB.Recordset

proc1 = [Ô]Select * from tab where Usuario like [ô][Ô] & txtUsuario & [Ô][ô][Ô]
rs.Open proc1, conex

If rs.BOF = True And rs.EOF = True Then
MsgBox [Ô]Usuario não encontrado[Ô]
txtUsuario.Text = [Ô][Ô]
txtSenha.Text = [Ô][Ô]
txtUsuario.SetFocus
Exit Sub
Else
If txtUsuario.Text = Empty Then
MsgBox [Ô]Digite a Senha Corretamente[Ô], vbCritical, [Ô]Atenção[Ô]
Exit Sub
Else
If txtSenha.Text = rs([Ô]senha[Ô]) Then
Form1.Show vbModal
Else
txtUsuario.Text = [Ô][Ô]
txtSenha.Text = [Ô][Ô]
txtUsuario.SetFocus
MsgBox [Ô]Senha Incorreta[Ô], vbCritical, [Ô]Atenção[Ô]
Exit Sub
End If
End If
End If
rs.Close
End Sub
GUTOTEC 09/04/2011 22:18:12
#370949 Resposta escolhida
o anexo

Tópico encerrado , respostas não são mais permitidas
Voltar