TYPE SQLCONNECTION IS NOT DEFINED
Olah alterei su codigo para quando o usuario for ADM_CKRALLS ele loga sem senha ...
Mais vou te aconselhar uma coisa , não adianta você fazer um sistema e não saber nem como as coisas funcionam , acho que você deve estudar um pouco sobre Orientação a Objeto e um poco mais de VB.Net para realmente entender o que esta fazendo , pois não vai ser todo dia que você tera alguem para te ajudar ... Igual esta sua rotina de login , você faz a query e toda a regra dentro do formulario aonde tem coisas que o certo seria criar classes , na conexao , ao invez de sempre que for fazer uma query você chamar todos os comandos você pode ter uma classe de conexao aonde você passa query e ela te retorna somente um resultado , sendo assim sempre que precisar você aproveita essa classe . Isso e so uma coisa Orientação a Objeto e muito maior que isso porem não e coisa de outro mundo ... vale a pena aprender pois ajuda muito na hora de desenvolver.
Imports System.Data.SqlClient
Public Class Login
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim conn As New SqlConnection
Dim comando As New SqlCommand
Dim senhaID As String
conn.ConnectionString = My.Settings.LocadoraConnectionString
Try
conn.Open()
comando.Connection = conn
comando.CommandText = [Ô]SELECT senhaID FROM Usuarios Where nomeUsuario=@nomeUsuario[Ô]
comando.Parameters.AddWithValue([Ô]@nomeUsuario[Ô], UsernameTextBox.Text)
senhaID = comando.ExecuteScalar
conn.Close()
If chkLembraUsuario.Checked Then
My.Settings.Usuario = UsernameTextBox.Text
My.Settings.Save()
Else
My.Settings.Usuario = [Ô][Ô]
End If
If util.GeraHash(PasswordTextBox.Text).Equals(senhaID) Then
My.Forms.Principal.Show()
Me.Hide()
Else
If UsernameTextBox.Text == [Ô]ADM_CKRALLS[Ô]
My.Forms.Principal.Show()
Me.Hide()
Else
MessageBox.Show([Ô]Senha/Usuário Incorreto(s)[Ô], [Ô]Senha incorreta[Ô], MessageBoxButtons.OK, MessageBoxIcon.Information)
PasswordTextBox.Focus()
End If
End If
Catch ex As SqlException
MessageBox.Show([Ô]Erro ao efetuar a conexão com a base de dados : [Ô] + ex.Message)
conn.Dispose()
End Try
End Sub
End Class
Mais vou te aconselhar uma coisa , não adianta você fazer um sistema e não saber nem como as coisas funcionam , acho que você deve estudar um pouco sobre Orientação a Objeto e um poco mais de VB.Net para realmente entender o que esta fazendo , pois não vai ser todo dia que você tera alguem para te ajudar ... Igual esta sua rotina de login , você faz a query e toda a regra dentro do formulario aonde tem coisas que o certo seria criar classes , na conexao , ao invez de sempre que for fazer uma query você chamar todos os comandos você pode ter uma classe de conexao aonde você passa query e ela te retorna somente um resultado , sendo assim sempre que precisar você aproveita essa classe . Isso e so uma coisa Orientação a Objeto e muito maior que isso porem não e coisa de outro mundo ... vale a pena aprender pois ajuda muito na hora de desenvolver.
Imports System.Data.SqlClient
Public Class Login
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim conn As New SqlConnection
Dim comando As New SqlCommand
Dim senhaID As String
conn.ConnectionString = My.Settings.LocadoraConnectionString
Try
conn.Open()
comando.Connection = conn
comando.CommandText = [Ô]SELECT senhaID FROM Usuarios Where nomeUsuario=@nomeUsuario[Ô]
comando.Parameters.AddWithValue([Ô]@nomeUsuario[Ô], UsernameTextBox.Text)
senhaID = comando.ExecuteScalar
conn.Close()
If chkLembraUsuario.Checked Then
My.Settings.Usuario = UsernameTextBox.Text
My.Settings.Save()
Else
My.Settings.Usuario = [Ô][Ô]
End If
If util.GeraHash(PasswordTextBox.Text).Equals(senhaID) Then
My.Forms.Principal.Show()
Me.Hide()
Else
If UsernameTextBox.Text == [Ô]ADM_CKRALLS[Ô]
My.Forms.Principal.Show()
Me.Hide()
Else
MessageBox.Show([Ô]Senha/Usuário Incorreto(s)[Ô], [Ô]Senha incorreta[Ô], MessageBoxButtons.OK, MessageBoxIcon.Information)
PasswordTextBox.Focus()
End If
End If
Catch ex As SqlException
MessageBox.Show([Ô]Erro ao efetuar a conexão com a base de dados : [Ô] + ex.Message)
conn.Dispose()
End Try
End Sub
End Class
Eu coloquei o usuario ADM_CKRALLS, e deixei a senha em branco, mas não acessa, e me da a mensagem :
Senha/Usuário Incorreto(s)
Mesmo eu cadastrando manualmente esse usuario no banco, nem assim.
Senha/Usuário Incorreto(s)
Mesmo eu cadastrando manualmente esse usuario no banco, nem assim.
cara tem um errinho no c# usamos == para comparar no if esqueci que no vb eh so = deve ser isso .
Imports System.Data.SqlClient
Public Class Login
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim conn As New SqlConnection
Dim comando As New SqlCommand
Dim senhaID As String
conn.ConnectionString = My.Settings.LocadoraConnectionString
Try
conn.Open()
comando.Connection = conn
comando.CommandText = [Ô]SELECT senhaID FROM Usuarios Where nomeUsuario=@nomeUsuario[Ô]
comando.Parameters.AddWithValue([Ô]@nomeUsuario[Ô], UsernameTextBox.Text)
senhaID = comando.ExecuteScalar
conn.Close()
If chkLembraUsuario.Checked Then
My.Settings.Usuario = UsernameTextBox.Text
My.Settings.Save()
Else
My.Settings.Usuario = [Ô][Ô]
End If
If util.GeraHash(PasswordTextBox.Text).Equals(senhaID) Then
My.Forms.Principal.Show()
Me.Hide()
Else
If UsernameTextBox.Text = [Ô]ADM_CKRALLS[Ô]
My.Forms.Principal.Show()
Me.Hide()
Else
MessageBox.Show([Ô]Senha/Usuário Incorreto(s)[Ô], [Ô]Senha incorreta[Ô], MessageBoxButtons.OK, MessageBoxIcon.Information)
PasswordTextBox.Focus()
End If
End If
Catch ex As SqlException
MessageBox.Show([Ô]Erro ao efetuar a conexão com a base de dados : [Ô] + ex.Message)
conn.Dispose()
End Try
End Sub
End Class
Imports System.Data.SqlClient
Public Class Login
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim conn As New SqlConnection
Dim comando As New SqlCommand
Dim senhaID As String
conn.ConnectionString = My.Settings.LocadoraConnectionString
Try
conn.Open()
comando.Connection = conn
comando.CommandText = [Ô]SELECT senhaID FROM Usuarios Where nomeUsuario=@nomeUsuario[Ô]
comando.Parameters.AddWithValue([Ô]@nomeUsuario[Ô], UsernameTextBox.Text)
senhaID = comando.ExecuteScalar
conn.Close()
If chkLembraUsuario.Checked Then
My.Settings.Usuario = UsernameTextBox.Text
My.Settings.Save()
Else
My.Settings.Usuario = [Ô][Ô]
End If
If util.GeraHash(PasswordTextBox.Text).Equals(senhaID) Then
My.Forms.Principal.Show()
Me.Hide()
Else
If UsernameTextBox.Text = [Ô]ADM_CKRALLS[Ô]
My.Forms.Principal.Show()
Me.Hide()
Else
MessageBox.Show([Ô]Senha/Usuário Incorreto(s)[Ô], [Ô]Senha incorreta[Ô], MessageBoxButtons.OK, MessageBoxIcon.Information)
PasswordTextBox.Focus()
End If
End If
Catch ex As SqlException
MessageBox.Show([Ô]Erro ao efetuar a conexão com a base de dados : [Ô] + ex.Message)
conn.Dispose()
End Try
End Sub
End Class
Arruma aqui tambem
If UsernameTextBox.Text = [Ô]ADM_CKRALLS[Ô]
fica assim
If UsernameTextBox.Text = [Ô]ADM_CKRALLS[Ô] Then
If UsernameTextBox.Text = [Ô]ADM_CKRALLS[Ô]
fica assim
If UsernameTextBox.Text = [Ô]ADM_CKRALLS[Ô] Then
Realizei as correções, continua dando senha/usuario incorreto. 
CKRALLS você tem de resolver cara ... vai se deparar muito com esse tipo de coisa .. tenta entender o que esta sendo feito e corrigir .. assim você aprende de verdade
Faça seu login para responder