Senha

[adriana yui 0]

Como faço para autenticar/verifcar uma senha cadastrada no banco de dados (Access) no VB6?

[jolienai 0]

Você deve criar uma conexão com o banco de dados que pode ser por exemplo:Dim CN as ADODB.ConnectionSet CN = New ADODB.ConnectionCN.Provider = "Microsoft.Jet.OLEDB.4.0"CN.Open "C:\BancoDados\DadosFrequencia.MDB", "admin"depois você pode criar um recordset como por exemplo:Set rs = New ADODB.Recordset rs.ActiveConnection = CN rs.Open "Select * from Usuario Where NomeUsuario ='"& txtNomeUsuario.Text &"' and SenhaUsuario ='" & txtSenha.Text &"'"IF rs.EOF thenMsgbox"Usuario não cadastrado ou usuario e ou senha não confere!"elseabre um form ....end if Qualquer coisa pode me liga 11-8111-3167 Um Abraço e espero que tenha ajudado..beijo

[William Rodrigues 0]

Æ brother....

Dá uma olhadinha nesse código, acho que ele vai te ajudar bastante...

Botão entrar :Private Sub cmdEntrar_Click()Set rs = CreateObject("ADODB.Recordset")With rs.Open "select usuario, senha, cod_usuario from usuarios where usuario='" & txtUsuario.Text & "' and senha='" & txtSenha.Text & "'", cn, adOpenKeyset, adLockOptimisticIf .RecordCount = 0 ThenMsgBox "Usuário ou senha inválida!", vbExclamation, "Erro"Elsecodigo = CLng(rs("cod_usuario"))frmPrincipal.ShowUnload MeEnd If.CloseEnd WithEnd SubBotão sair:Private Sub cmdSair_Click()cn.CloseUnload MeEnd Sub

Abraços,

William Rodrigues

[Dieek 0]

Bom, oi como vai/

 

Bom você pode fazer o seguinte.

 

Cria uma função para procurar no BD,

ai se ele num achar, reporta uma menssagem

de erro.

 

Ex.

 

Se tiver usando ADO:

 

Adodc1.recordset.Find "Usuario = '" & txtUsuario & "'", adSearchForward

if adodc1.recordset.eof = true then msgbox "Usuario Invalido!"

 

Se for DAO:

 

data1.recordset.FindFirst "Usuario = '" & txtUsuario & "'"

if data1.recordset.nomatch then msgbox "Usuario Invalido!"

 

Espero que tenha ajudado!

 

dicajualves@hotmail.com

té + http://forum.imasters.com.br/public/style_emoticons/default/joia.gif