SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: Tompoches en Viernes 25 de Enero de 2008, 16:25

Título: Login Y Password
Publicado por: Tompoches en Viernes 25 de Enero de 2008, 16:25
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
  1.  
  2. Imports Microsoft.VisualBasic
  3. Public Class ClassCadena
  4.     Public Cadena As String
  5.  
  6.     Public Sub MtdCadena()
  7.         Cadena = "Data Source=DESARROLLO10\SQLEXPRESS; initial catalog= equipos; integrated security=true"
  8.     End Sub
  9. End Class
  10.  
  11.  

Y esto lo llamo en as clases que necesito asi:

Código: Text
  1.  
  2. Imports System.Data.SqlClient 'Importar la libreria, q nos muestra la base de datos sql server
  3. Public Class Classequi
  4.     Dim cadena As New ClassCadena 'Creo la clase
  5.     Dim cone As New SqlConnection 'creo la conexion a la base de datos
  6.     Dim Daequi As New SqlDataAdapter 'Me conecto a la base de datos
  7.     Public Dsequi As New DataSet 'Creo un objeto para mostrar datos
  8.  
  9.     Public Sub MtdMostrar()
  10.         cadena.MtdCadena()
  11.         cone.ConnectionString = cadena.Cadena
  12.         Daequi.SelectCommand = New SqlCommand
  13.         Me.Daequi.SelectCommand.CommandType = CommandType.Text
  14.         Daequi.SelectCommand.CommandText = " select * from descripcion" 'hacer la consulta para mostrar los datos de la Bd
  15.         cone.Open()
  16.         Daequi.SelectCommand.Connection = cone
  17.         Daequi.Fill(Dsequi, "descripcion") 'de esta manera traigo los datos de la consulta al DataSet
  18.         cone.Close()
  19.     End Sub
  20.  
  21.  

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:
Título: Re: Login Y Password
Publicado por: Abhero en Viernes 25 de Enero de 2008, 17:15
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:
Título: Re: Login Y Password
Publicado por: Tompoches en Viernes 25 de Enero de 2008, 17:36
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...
Título: Re: Login Y Password
Publicado por: Abhero en Viernes 25 de Enero de 2008, 19:34
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
Título: Re: Login Y Password
Publicado por: Tompoches en Lunes 28 de Enero de 2008, 13:34
Hola muchas gracias me sirvio de mucho y ya lo pude hacer.... :D
Título: Re: Login Y Password
Publicado por: Abhero en Lunes 28 de Enero de 2008, 16:15
Cool.  :lol: