Login em VB

[Anakia 0]

Gente eu ja dei uma, pesquisa aqui no forum e nao encontrei nenhum topico que ensine fazer um login passo a passo, bom sera que alguem poderia me ajudar por favor..

 

eu ja fiz os botoes e tudo ja tenho toda a janela de login feita mais nao tenho a programação em si e nao sei nada de vb mais gostaria muito de aprender..

[Claudio Neto 3]

Fácil, crie uma tabela contendo nome e senha.

 

No programa, tendo txtNome e txtSenha, basta fazer:

 

rs.open "select * from tab_usuarios where nome = '" & txtnome.text & "' and senha = '" txtSenha.text & "'"

if rs.eof then

msgbox "Nome de usuario ou senha incorretos",vbexclamation, "Erro"

end if

 

Somente isso....

 

Falous...

[CaTiTo 0]

Para aprimorar no text da senha,na propriedade PasswordChar, coloque *!

[Anakia 0]

e nao presisa do conexão com o banco de dados?

[Claudio Neto 3]

Sim, claro. O código que coloquei seria para a conexão já pronta. Achei que você já a tivesse. Não tem?

 

Beleza, vamos lá:

 

1. carregue a biblioteca microsoft activex data control 2.8 no programa

 

2. declare essas variáveis, elas serão sua conexão:

private cn as adodb.connection

private rs as adodb.recordset

 

3. No evento de um botão para averiguar se o usuario existe:

set cn = new adodb.connection

cn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=camino_banco_de_dados_em_acess\nome_arquivo_em_acess.mdb;Persist Security Info=False"

 

'caso não esteja usando acess, o provider vai mudar, ai precisa ver qual está usando para ver qual usar.

 

cn.open

 

set rs = new adodb.recordset

rs.open "select * from tab_usuarios where nome = '" & txtnome.text & "' and senha = '" txtSenha.text & "'"

 

if rs.eof then

msgbox "Nome de usuario ou senha incorretos",vbexclamation, "Erro"

end if

 

rs.close

 

Está feita sua conexão e sua procura. Testa ai, caso de erro é porque esqueci alguma coisa, ai avisa ai que ajudo.

 

Abraços...

[Anakia 0]

Apareceu um errro dizendo que a conexão não pode ser usada para realizar esta operação. Ela está fechada ou é inválida neste contexto. O que eu faço

 

este e o meu codigo

 

Private Sub cmdOk_Click()

 

Set cn = New adodb.Connection

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ControleAcesso.mdb;Persist Security Info=False"

 

cn.Open

 

Set rs = New adodb.Recordset

rs.Open "select * from usuarios where usuario = '" & txtLogin.Text & "' and senha = '" & txtSenha.Text & "'"

 

If rs.EOF Then

MsgBox "Nome de usuario ou senha incorretos", vbExclamation, "Erro"

End If

 

rs.Close

 

este erro aparece no campo em que esta em negrito

[Anakia 0]

tha dificil de fazer um simples login, eu nao sei nada de vb so queria fazer um login nao tenho nada nem a conexao com o banco nada, alçguem me ajuda?

[Claudio Neto 3]

Me passe um e-mail seu, vou te mandar um programinha pronto para isso já com o bd em acess.

 

Não consegui achar o porque do seu erro.

[Marhault 1]

Esqueceu de colocar qual conexão o recordset vai usar...

Dei uma repaginada no seu código e não se esqueça de colocar um código anti sql injection...

Dim cn as New ADODB.Connection
Dim rs as New ADODB.Recordset

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ControleAcesso.mdb;Persist Security Info=False"
cn.Open

sql = "select * from usuarios where usuario = '" & txtLogin.Text & "' and senha = '" & txtSenha.Text & "'"
rs.Open sql, cn

If rs.EOF Then
MsgBox "Nome de usuario ou senha incorretos", vbExclamation, "Erro"
Else
'Sucesso
End If

rs.Close
cn.Close

[Ernane Ramos 0]

Tente por, e fale se deu certo!:

-------------------------------------------------------------------------------------------------------------------------------------------

Dim cn as New ADODB.Connection

Dim rs as New ADODB.Recordset

 

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ControleAcesso.mdb;Persist Security Info=False"

cn.Open

 

sql = "select * from usuarios where usuario = '" & txtLogin.Text & "' and senha = '" & txtSenha.Text & "'"

rs.Open sql, cn, 3, 3

 

If rs.EOF Then

MsgBox "Nome de usuario ou senha incorretos", vbExclamation, "Erro"

Else

'Sucesso

End If

 

rs.Close

cn.Close

[francisco_19 0]

boas pessoal

 

 

bem eu estou com um problema no codigo para fazer o login.

ja li em cima algumas intruçoes, mas na verdade nao foi assim que aprendi a fazer.

mas estou com um problema no seguinte:

 

Try
			Select Case [color="#FF0000"]e.KeyChar[/color]
				Case Convert.ToChar(Keys.Return)
					Call login(TextBox1.Text, TextBox2.Text)
			End Select
		Catch ex As Exception
			MsgBox(ex.Message)
		End Try

da.m um erro ali no e.keychar.

 

alguem sabe porque razao???

quem poder ajudar agradecia...

obrigado

 

cumps