用ADO连接修改ACCESS2000的数据库密码
来源:互联网 发布:java变量的生命周期 编辑:程序博客网 时间:2024/06/10 20:58
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
Case ""
NotValid = MsgBox("没密码俺不干" & Chr(10) & Chr(13) & _
"真的决定改了吗?", vbCritical + vbYesNo)
If NotValid = 6 Then
GoTo RetryPassword
Else
Exit Sub
End If
Case Else
sqlExecStr = "ALTER Database Password " & newpassword & "``"
CurrentProject.Connection.Execute sqlExecStr
MsgBox "Okey"
End Select
End Sub
'下面是去掉密码
Sub ResetDBPassword()
Dim cn As ADODB.Connection
Dim sqlExecStr As String
Dim ResetQuestion As Integer
Set cn = CurrentProject.Connection
On Error Resume Next
' 测试数据库是否以独占方式打开
If cn.Mode <> 12 Then
MsgBox "老兄,要改密码先的把数据库独霸(独占方式打开)了才行", vbCritical
Exit Sub
End If
ResetQuestion = MsgBox("重设吗" & _
Chr(10) & Chr(13) & "空密码喽", vbQuestion + vbYesNo, _
"去掉密码")
If ResetQuestion = 6 Then
sqlExecStr = "ALTER DATABASE PASSWORD `` DBPassword"
CurrentProject.Connection.Execute sqlExecStr
MsgBox "没了"
Else
MsgBox "还是有密码"
Exit Sub
End If
End Sub
- 用ADO连接修改ACCESS2000的数据库密码
- VC+ADO+Access2000数据库文件密码的设置和修改
- VC+ADO+Access2000数据库文件密码的设置和修改
- ADO连接带密码的Access数据库
- 关于ADO连接access数据库修改数据库记录的问题
- 如何使用ADO连接带密码的ACCESS数据库
- 获取ACCESS2000数据库中的所有表的名称(vc + ado)
- 获取ACCESS2000数据库中的所有表的名称(vc + ado)
- ADO 连接带密码Access2007()数据库字符串
- 用ADO 连接mysql数据库的方法
- ADO访问ACCESS2000
- ADO连接数据库的方法
- Ado连接数据库的问题
- Mantis的连接数据库密码和登录用户密码修改
- VMware vCenter 连接数据库的故障与密码修改
- 修改数据库默认密码后phpmyadmin无法连接的问题
- ado连接有密码的access
- ado 连接带密码的access
- 保存图片到SQL SERVER2000中。
- Wavelet
- AJAX案例研究之Gmail
- Session详解,session与cookie
- 世界上最经典的25句话
- 用ADO连接修改ACCESS2000的数据库密码
- 如何用VBA更改数据库密码?
- [C#.Net]在ASP.NET中操作文件的例子
- 投诉申告:招商银行信用卡岂能如此无信用?!
- [C#.Net]利用HttpRequest登录到某个网站,然后获取网站信息的程序示例
- All About Java 关于Java的一切 : 工具, 类库, 框架
- 不错的struts插件:Struts Spring Plugin
- 在sql 里实现asp中split的功能
- 博士3,6,9等