ya valido bien lo que paso es que las mayusculas y minusculas no estan validades x ejemplo mi usuario es abc y me deja loguear con ABC y me pasa lo mismo con las contraseñas...
Public Class clsUsuario
Private Cone As New clsConexion
#Region "Atributos"
Private atrPassword As String
Private atrUsuario As String
#End Region
#Region "Propiedades"
Public Property Password() As String
Get
Return atrPassword
End Get
Set(ByVal value As String)
atrPassword = value
End Set
End Property
Public Property Usuario() As String
Get
Return atrUsuario
End Get
Set(ByVal value As String)
atrUsuario = value
End Set
End Property
#End Region
#Region "Metodos"
Public Sub New()
atrPassword = Nothing
atrUsuario = Nothing
End Sub
Public Function Verificar(ByVal Contraseña As String, ByVal Username As String) As Boolean
clsConexion.ejecutarSQL("Select * from Usuario where Password= '" & Contraseña & "' and Usuario= '" & Username & "'"
clsConexion.sincronizar()
Return clsConexion.registros.HasRows
clsConexion.desconectar()
End Function
#End Region
End Class
Public Class clsUsuario
Private Cone As New clsConexion
#Region "Atributos"
Private atrPassword As String
Private atrUsuario As String
#End Region
#Region "Propiedades"
Public Property Password() As String
Get
Return atrPassword
End Get
Set(ByVal value As String)
atrPassword = value
End Set
End Property
Public Property Usuario() As String
Get
Return atrUsuario
End Get
Set(ByVal value As String)
atrUsuario = value
End Set
End Property
#End Region
#Region "Metodos"
Public Sub New()
atrPassword = Nothing
atrUsuario = Nothing
End Sub
Public Function Verificar(ByVal Contraseña As String, ByVal Username As String) As Boolean
clsConexion.ejecutarSQL("Select * from Usuario where Password= '" & Contraseña & "' and Usuario= '" & Username & "'"
clsConexion.sincronizar()
Return clsConexion.registros.HasRows
clsConexion.desconectar()
End Function
#End Region
End Class
