¿Cómo cambiar la contraseña SA de la base de datos usando VB?

Sub RePassWord(ByVal contraseña antigua como cadena, ByVal nueva contraseña como cadena, ByVal ID de usuario como cadena)

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>

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