¿Cómo cambiar la contraseña SA de la base de datos usando VB?
En caso de error, vaya a err1
Atenuar conn como nueva conexión
conn. Open (connstr) 'connstr es la cadena de conexión. Reemplácelo usted mismo
Atenúe sqlCommand como cadena
sqlCommand = "exec sp_password"
Si oldPassword = "" Entonces
sqlCommand = sqlCommand & " Null "
Else
sqlCommand = sqlCommand & "'" & oldPassword &"',"
Finalizar si
Si NuevaContraseña = "" Entonces
sqlCommand = sqlCommand & "Null'",
De lo contrario
sqlCommand = sqlCommand &"'" & NuevaContraseña & " ','"
End If
sqlCommand = sqlCommand & userId & "'"
conn.Ejecutar sqlCommand
conn.Close
MsgBox "Se cambió la contraseña correctamente"
Salir de Sub
err1:
Si conn.State = 1, entonces conn.Close p>
p>
MsgBox Err.
End Sub
Descripción del parámetro:
ByVal oldPassword As String, contraseña antigua, "" significa vacío
ByVal NewPassword As String, nueva contraseña, "" significa vacío
ByVal userId As String DatabaseUserName
Ejemplo
recontraseña "OldPwd ","", "sa"
Cambiar contraseña OldPwd para sa está vacío