CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Login Y Password

(1/2) > >>

Tompoches:
Hola lo que sucede es que estoy haciendo una aplicion el cual tiene un form de login y password y estos reguistros los tengo que comparar con dos campos que tengo en una tabla en la BD que son: usuario y contraseña; pero no se como hacerlo. Yo estoy haciendo la coneccion por medio de una cadena algo asi

--- Código: Text --- Imports Microsoft.VisualBasicPublic Class ClassCadena    Public Cadena As String     Public Sub MtdCadena()        Cadena = "Data Source=DESARROLLO10\SQLEXPRESS; initial catalog= equipos; integrated security=true"    End SubEnd Class  
Y esto lo llamo en as clases que necesito asi:


--- Código: Text --- Imports System.Data.SqlClient 'Importar la libreria, q nos muestra la base de datos sql serverPublic Class Classequi    Dim cadena As New ClassCadena 'Creo la clase    Dim cone As New SqlConnection 'creo la conexion a la base de datos    Dim Daequi As New SqlDataAdapter 'Me conecto a la base de datos    Public Dsequi As New DataSet 'Creo un objeto para mostrar datos     Public Sub MtdMostrar()        cadena.MtdCadena()        cone.ConnectionString = cadena.Cadena        Daequi.SelectCommand = New SqlCommand        Me.Daequi.SelectCommand.CommandType = CommandType.Text        Daequi.SelectCommand.CommandText = " select * from descripcion" 'hacer la consulta para mostrar los datos de la Bd        cone.Open()        Daequi.SelectCommand.Connection = cone        Daequi.Fill(Dsequi, "descripcion") 'de esta manera traigo los datos de la consulta al DataSet        cone.Close()    End Sub  
Y en el metodo no se como hacer la condicion, es decir que me ayuden en la comparacion de las cajas de texto con los campos y la condicion, pero si hay otra forma que funcione se le agradece

gracias de antemano por la ayuda que me puedan brindar.... :comp:

Abhero:
Bueno aqui esta un ejemplo con "mi logica."   :alien:

Llenas tu tabla en memoria con un query mas o menos asi:

tablax = "Select password from usuarios where usuario='" & txtusuario & "'"

No funciona exactamente asi pero bueno... tu modificas tu consulta en el codigo.

Eso buscara el password que le corresponde a ese usuario en la tabla. Se supone que los usuarios son unicos, por consiguiente si el usuario existe solo habra un registro en esa tabla.

Entonces...

if tablax.recordcount < 1 then

Msgbox("El usuario no existe")
exit sub

else

if tablax.fields(password) = txtpassword.text then

' conceder acceso ya que se comprobo que el usuario existe y su password es correcto.

else

Msgbox("Contraseña incorrecta, bla bla bla")
'limpiar campos, enviar foco al txtpassword.

end if
end if

Los pocos logins que he hecho en mi vida han sido mas o menos asi.  :yes:

Tompoches:
Hola Abhero gracias por la colaboracion que me brindaste pero es que soy nuevo en esto de vb.net  si me podrias hacer el favor de pasarme los codigos mas explicados seria de mayor ayuda por que es no entiendo muy bien lo que me estas planteando o si tines loscodigos de usuario y contraseña a la mano seria tambien util...

Abhero:
Hey, pero si te puse mas explicaiones que codigo  <_<

Lo que pasa es que veo que estas usando un dataset y no soy muy amigo de esos.

Yo hago una variable de tipo recordset con la referencia de ADODB.

algo asi:


Imports ADODB

Public sub abrir()

Dim base as new adodb.connection
dim tablax as new adodb.recordset

base.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0; data source = mybd"

try
base.open

catch ex as  (no recuerdo pero se escribe solo)

end try



with tablax

.activeconnection = base
.open("Select password  from usuarios where usuario='" & txtusuario & "'")

end with


End Sub



Despues de esto aplicas lo que te dije antes obviando el paso del query que ya esta ahi.

Mas detallado de ahi, se daña.  :scream:
Ab

Tompoches:
Hola muchas gracias me sirvio de mucho y ya lo pude hacer.... :D

Navegación

[0] Índice de Mensajes

[#] Página Siguiente