'Access数据库密码生成器
' 在使用ACCESS数据库的时候都希望加个密码,让别人无法进入数据库中去随意的查看数据,手动写总是有一些规律在里面。下面这段代码可以生成一个20位的随机密码。
Private Sub Command1_Click()
Dim x As String
Dim y As Integer
For i = 1 To 20
Do
y = Int(Rnd(i) * 83 + 33)
Loop Until y <> 59
x = x & Chr(y)
Next i
Me.Text1.Text = x
End Sub
Private Sub Form_Load()
Randomize
End Sub