<<< 返回 access911.net 编程静态资料库索引页

如何用ado和jet sql更改数据库的密码?

 

作者:  摘自:  录入:cg1  时间:2002-12-26  浏览人次:1061


专题地址:http://access911.net/fixhtm/71FAB31E11DC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:

 


Sub ADOAddPW()
   Dim cn As ADODB.Connection
   Dim newpassword As String
   Dim NotValid As Integer
   Dim sqlExecStr As String

   Set cn = CurrentProject.Connection
   On Error Resume Next

   ' 测试数据库是否以独占方式打开
   If cn.Mode <> 12 Then
      MsgBox "老兄,要改密码先的把数据库独霸(独占方式打开)了才行", vbCritical
      Exit Sub
   End If
     
RetryPassword:
   newpassword = InputBox("劳您贵手,打个密码进来吧", "老兄,可要记住你的密码阿!" _
        , "新的数据库密码")


   
   Select Case newpassword
   
   ' 这里,你如果按了取消
   
    Case "新的数据库密码"
        MsgBox "没有密码,俺不干"
        Exit Sub
        
   ' 你按了ok
   
    Cas.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/71FAB31E11DC.htm

 


上一篇:如何签署宏让其安全?

下一篇:如何得到某个窗体数据源最后一个字段的名字

2017年2月22日生成静态资料