سلام به همه اساتید عزیز ممکنه من رو راهنمایی کنید که در این ساب دقیقا دستور map چی کار میکنه اصلا کار دستور و پارامتر map چی هست
Sub EncryptTableField(TableName As String, Fieldname As String, PrimaryKey As String)
Dim i, u, pk As Int
Dim s As String
Dim m As Map: m.Initialize
cur = db.ExecQuery("Select " & PrimaryKey & ", " & Fieldname & " FROM " & TableName)
u = cur.RowCount-1
For i = 0 To u
cur.Position=i
k = cur.getInt(PrimaryKey)
s = cur.GetString(Fieldname)
m.Put(k,s)
Next
cur.Close
db.BeginTransaction
For i = 0 To u
pk = m.GetKeyAt(i)
s = m.GetValueAt(i)
s = Crypt.Encrypt(s)' <--
db.ExecNonQuery("UPDATE " & TableName & " SET " & Fieldname & " = '" & s & "' WHERE " & PrimaryKey & " = " & pk)
Next
db.TransactionSuccessful
db.EndTransaction
End Sub
سوال
arastooms 1,046
سلام به همه اساتید عزیز
ممکنه من رو راهنمایی کنید که در این ساب
دقیقا دستور map چی کار میکنه
اصلا کار دستور و پارامتر map چی هست
لینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.