¿Cómo cambiar la contraseña de usuario en vb?
¿La conexión a la base de datos es normal?
El siguiente es un ejemplo de código:
Conexión pública como ADODB.Connection
'#-------------- ------------#
'# Acceder a la conexión de la base de datos#
'#--------------- -----------#
Sub ConnectDB público (ByVal strDBFile como cadena)
Establecer conexión = Nueva conexión ADODB
Conexión .Abrir "PROVIDER=Microsoft.Jet.OLEDB.4.0; Fuente de datos=" amp; strDBFile amp ";"
End Sub
'#------- -------------#
'# Cambiar contraseña#
'#--------------- -----#
Función EditUser(ByVal FUser como cadena, ByVal FPwd como cadena) como booleano
Dim tRs como nuevo ADODB.Recordset
Dim sSql como cadena
En caso de error, reanudar siguiente
EditUser = False
sSql = "Seleccionar * de [Usuario] Donde [FUser]='" amp; amp; "'"
tRs.Open sSql, Conn, 1, 2
Si FPwd lt;gt "" Entonces tRs("FPwd") = MD5(FPwd)
'La contraseña primero se cifra con MD5 y luego se almacena en la base de datos
tRs.Update
tRs.Close
Set tRs = Nada
Si Err.Number = 0 Entonces EditUser = True
Finalizar función