'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