-
Feb 10th, 2012, 01:20 PM
#1
Thread Starter
New Member
vbcrypt function
Dim encryptdecryptkey As String
Dim objCrypt As vbCrypt.EncryptionTools
Set objCrypt = New vbCrypt.EncryptionTools
encryptdecryptkey = "asthashibanaryan"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\TCMS.mdb ;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from Personnel where Serviceno like '" & Text2.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
With Authorisedpersonnel.Adodc1.Recordset
.AddNew
!serviceno = Text2.Text
!Name = Text1.Text
!Rank = Combo2.Text
!Trade = Combo4.Text
!Authority = "User"
!Password = objCrypt.Encrypt(encryptdecryptkey, Text7.Text)
.Update
.Requery
End With
this is my code. i want to encrypt my password and save it in database.
its working when .mdb is in access 2000 but is not working when .mdb is in access 97
please help
-
Feb 11th, 2012, 12:35 PM
#2
Re: vbcrypt function
This should be posted in the VB6 forum.
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|