Visual Basic.NET - cambiar contraseña de usuario

 
Vista:

cambiar contraseña de usuario

Publicado por riveiras (25 intervenciones) el 09/07/2007 10:55:19
Hola, necesito vuestra ayuda. Tengo una aplicación donde un usuario para poder entrar debe validar su login y password que están en una base de datos, esto lo hacen en un formulario llamado VALIDAR USUARIO.
un usuario que ya se validó puede ir a un formulario CAMBIAR CONTRASEÑA donde podrá cambiar su password.
Este es mi problema, no se como posicionarme en la base de datos en ese usuario y el código necesario para modificar su contraseña.
espero que puedan ayudarme.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:cambiar contraseña de usuario

Publicado por QWNET (65 intervenciones) el 12/07/2007 17:06:26
'Bueno yo lo he echo de esta manera

pongo dos variables globales en mi modulo de utilerias
PUBLIC login_user as string
PUBLIC password_user as string

en el formulario de validacion hago lo siguiente
paso el valor del login y el password que el usuario ingreso para su validacion
por ejemplo
login_user = login.text
password_user = password.text

estas variables globales van a contener esos datos en cualquier parte del proyecto que se desea desplegar.

ahora en el formulario para cambiar contraseña
yo le pido al usuario que ingrese su contrañeña anterior
en el textbox
password_anterior.text
este lo valido con la variable global que ingreso el usuario para su validacion

'propiedad
'VALIDATING

IF trim(password_anterior.text)<>trim(login_user) then
msgbox("El password No coincide...")
password_anterior.focus()
else
password_nuevo.focus()
ENDIF

en el textbox password_nuevo.text guardo el nuevo password.

en un button que llamo guardardatos
viene aqui el update y hago una consulta con el login_user que es mi variable global y el password_anterior.text para verificar nuevamente que si exista en la base de datos

IF siexiste() then
' aqui se coloca la actulizaacion con el update actualizando el campo password por password_nuevo.text
' estoy pensando que ya sabes como utlizar un update
else
MSGBOX(' El usuario no existe...')
endif

'esto me regresa un valor verdadero o falso
Function siexiste() As Boolean
Try
siexiste = False
'el conector puede ser SQ OLEDB en mi caso MYSQL
Dim NCONw As New MySql.Data.MySqlClient.MySqlConnection
NCONw.ConnectionString = la cadena de conexion a la base de datos.
NCONw.Open()
Dim sqlCmd As String, RespSQL As Integer
Dim sqlComando As New MySql.Data.MySqlClient.MySqlCommand
sqlCmd = "SELECT count(*) FROM usuarios WHERE trim(nombre_usuario)='" & Trim(login_user) & "' AND trim(password) ='" & Trim(password_user) & " ' "
sqlComando = NCONw.CreateCommand
sqlComando.CommandText = sqlCmd
sqlComando.Connection = NCONw
RespSQL = IIf(IsDBNull(sqlComando.ExecuteScalar), -1, sqlComando.ExecuteScalar)
NCONw.Close()
If RespSQL > 0 Then
siyaexiste = True
Else
siyaexiste = False
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "")
End Try
End Function

Espero te sirva....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:cambiar contraseña de usuario

Publicado por racheliña (9 intervenciones) el 17/07/2007 13:29:48
muchas gracias, me sirvio de base ya que yo lo hago con access
perfecto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar