|
|
Postada em 26/11/2008 19:08 hs
cara eu uso ADO e eu crio um sql para fazer essa tarefa...
tipo sSql = "select * from tbl_usuarios where usuario='" & txtUsuario & " and senha='" & txtSenha & "'"
eu uso e da certo... espero ter ajudado!! 
|
|
|
|
|
|
Marcos Soares
não registrado
|
|
Postada em 27/11/2008 18:01 hs
Private Sub CmdEntrar_Click()
On error goto ERRO
if TextNomeUser.Text = "" then
msgbox "Insira um Login válido!",vbexclamation,"Login"
exit sub
elseif TextSenha.Text = "" then
msgbox "Insira a senha!",vbexclamation,"Login"
exit sub
end if
tbuser.Index = "IndLogin"
tbuser.seek "=",TextNomeUser.text
If tbuser.NoMatch = False Then
if tbuser.indsenha = TextSenha.Text then
Formcadastro.show
else
msgbox "Senha Invalida",vbexclamation,"Senha"
end if
else
msgbox "Usuário Inválido!",vbexclamation,"Login"
end if
exit sub
ERRO:
msgbox "Erro #" & err.number
end sub
FormCadastro.Show
End Sub
|
|
|
|
Marcos Soares
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 27/11/2008 18:05 hs
Desculpe amigo. Só corrigindo...
Retire a Última e a Penúltima linha desta instrução.
Valeu!!!
|
|
|
|
|
|
Postada em 27/11/2008 19:33 hs
Private Function logar()
Dim cnnComando As New ADODB.Command
Dim rsSelecao As New ADODB.Recordset
With cnnComando
.ActiveConnection = cNn 'sua conexão
.CommandType = adCmdText
.CommandText = "SELECT * FROM users WHERE username = '" & txtUsername.Text & "'"
Set rsSelecao = .Execute
End With
With rsSelecao
If .BOF And .EOF Then
MsgBox "Nome de Usuário Incorreto", vbApplicationModal + vbCritical + vbOKOnly, "Erro"
Else
'compara senha digita com a senha real
If txtSenha.Text = !senha Then
frmPincipal.Show
Unload Me
Exit Function
Else
MsgBox "", vbApplicationModal + vbOKOnly + vbCritical, "Senha Incorreta"
End If
End If
End With
End Function
|
|
|
|
|
|
Postada em 28/11/2008 16:29 hs
Ola André, tbém faço da forma q o pirata indicou....funciona 100%
só mastigando ainda + p vc
data1.recordsource="select * from tabela_usuarios where usuario='" & txtusuario.text & "' and senha='" & txtsenha.text & "'"
data1.refresh
if data1.recordset.eof=true then
msgbox "Não encontrou o usuario"
else
msgbox "Encontrou o usuario"
endif
Só um toque, se cadastra no site ai André....vlw
Espero ter ajudado
|
|
|
|
