程序修改ACCESS数据库密码
7080 点击·0 回帖
593249217
楼主
 |  | |
 | 说下用VB修改access数据库密码的代码步骤： 首先打开VB，在工程-引用-Microsoft actives data object 2.8 library 写入以下代码： Private Sub Command1_Click() Dim cnn As New ADODB.Connection cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " ; App.Path ; "\这里输入数据库名称.mdb; " ; "Mode=Share Deny Read|Share Deny Write;Persist Security Info=False;Jet OLEDB:Database Password=111 " cnn.Execute "Alter Database password 999 111 " MsgBox "修改完毕 " End Sub | |
 |  |