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

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

专题地址：http://access911.net/index.asp?u1=a&u2=71FAB31E11DC 如果需要更详细的评论或说明，请点击该地址。

简述：

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/index.asp?u1=a&u2=71FAB31E11DC

上一篇：如何签署宏让其安全？

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

2007年12月25日生成静态资料