aclempes
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 01/02/2011 18:20 hs
oi, preciso de uma ajuda, sou novo no uso do VB 2010, tenho um form de Login com o nome Login.vb, onde tenho duas textbox com os nomes txtlogin e txtsenha, para o username e a password, depois tenho um button de OK, o que eu quero é verificar se os dados de login (Username + Password) introduzidos estão correctos e verificar o nivel de acesso do usuario que no caso defini com "A" ou "B".
No banco de dados feito no sql server 2008 express tenho uma tabela:
usuarios
----------------
login
senha
acesso
Ou seja o que pretendo é que quando clico em "OK" o programa veja nesta tabela se os dados inseridos nas textbox estão correctos.
Como posso fazer isso?
|
|
|
|
|
|
Vugus
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 02/02/2011 08:58 hs
Aclempes;se vc já usou vb5 ou vb6 é a mesma coisa.Não tem diferença.Se vc não sabe é outra. |
|
|
|
|
|
Postada em 02/02/2011 09:49 hs
Isso mesmo cara.
Vc precisa de aprender a trabalhar com consultas de tabelas, fazer, insert into, select, update e delete, isso é basico.
no vb 6. é assim: e no vb 2010 é a mesma coisa
Regtabela=Cn.execute("Select login, senha, acesso from usuario where login='"& textlogin.Text &"' and senha='"& textsenha.text &"' ")
if not Regtabela.EOF Then
textNivel.text= Regtabela.acessso
formMenu.show ' entra no menu
else
msgbox "Verificar senha e ou usuário"
End ' finaliza aplicação ou limpa textbox para digitar novamente
endif
|
|
|
|
|
|
Postada em 02/02/2011 09:50 hs
Cara vc tem que postar no forum de vb.net certo.
|
|
|
|
aclempes
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 02/02/2011 15:28 hs
meu sistema de login ja esta funcionando so não estou conseguindo por nivel de acesso se alguem puder me ajudar abaixo segue o codigo ja feito so que sem a parte de acesso
Dim connection As New SqlClient.SqlConnection
Dim command As New SqlClient.SqlCommand
Dim adaptor As New SqlClient.SqlDataAdapter
Dim dataset As New DataSet
connection.ConnectionString = ("Data Source=.SQLEXPRESS;AttachDbFilename=|DataDirectory|gerencia.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
command.CommandText = "SELECT login, senha, acesso FROM acesso WHERE login='" & UsernameTextBox.Text & "' and senha='" & PasswordTextBox.Text & "' "
connection.Open()
command.Connection = connection
adaptor.SelectCommand = command
adaptor.Fill(dataset, "0")
Dim count = dataset.Tables(0).Rows.Count
If count > 0 Then
Principal.Show()
Me.Hide()
Else
MsgBox("Login invalido verifique seu login e senha", MsgBoxStyle.Critical)
UsernameTextBox.Clear()
PasswordTextBox.Clear()
End If
End Sub
|
|
|
|
|
|
Postada em 03/02/2011 11:18 hs
Nao entendo pq a parte de acesso? qual a diferencia?
se o usuario consegue logar vc pega o acesso dele. ai vc pode trbalhar com isso pra o que vc quiser
|
|
|
|
