RE:cambiar contraseña de usuario
'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....