23-06-15, 06:38 AM
16-05-16, 11:45 AM
PHP كود :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' TextBox1 = new password
' TextBox2 = old password
MsgBox(ChangeMSAccessDatabasePassword("C:\db1.mdb", TextBox1.Text, TextBox2.Text))
End Sub
Function ChangeMSAccessDatabasePassword(ByVal dbPath As String, ByVal newPass As String, ByVal oldPass As String) As Boolean
Dim ret As Integer
Try
Using cnn As New OleDb.OleDbConnection("Provider=" & IIf(dbPath.Trim.ToLower.EndsWith(".mdb"), "Microsoft.Jet.OLEDB.4.0", "Microsoft.ACE.OLEDB.12.0") & ";Data Source='" & dbPath & "';Jet OLEDB:Database Password=" & oldPass & ";Mode=Share Deny Read|Share Deny Write;")
Using cmd As New OleDb.OleDbCommand("ALTER DATABASE PASSWORD " & IIf(newPass <> "", "[" & newPass & "]", "Null") & IIf(oldPass <> "", "[" & oldPass & "]", "Null"), cnn)
cnn.Open()
ret = cmd.ExecuteNonQuery
cnn.Close()
End Using
End Using
If ret = 0 Then
Return True
Else
Return False
End If
Catch ex As Exception
MsgBox(ex.Message)
Return False
End Try
End Function
End Class
14-06-16, 07:22 AM
الف شكر لك أخي الغالي
07-07-16, 12:24 PM
بعد اذن حضرتك
كيف أستطيع تغيير كلمة مرور قاعدة البيانات من خلال البرنامج
قاعدة البيانات أكسس
واللغة هي فيجوال 6
كيف أستطيع تغيير كلمة مرور قاعدة البيانات من خلال البرنامج
قاعدة البيانات أكسس
واللغة هي فيجوال 6
11-09-16, 11:22 PM
احتمال كبير ان الكود السابق يعمل على vb6
27-05-17, 02:52 PM
سلام أخي أريد إزالة كلمة مرور قاعدة البيانات اكسس ولكن ليس عندي كلمة مرور قديمة مرجو مساعدة