AccessTr.neT

Bul · 04/01/2011, 13:23

Arkadaşlar merhaba,
Herkese öncelikle hayırlı seneler diliyorum.Aslında site içinde araştırdım fakat benim yapmak istediğim,yaptığım programın tablolarının ve formlarının başka bir veri tabanına ( tablo al ) yöntemiyle kopyalanmaması.Yaptığım programı çalıştığım şirkette ortak klasöre koyarak kullanıma açtım.Fakat dediğim gibi başka bir veritabanı yardımıyla tablolarıma ve formlarıma erişimi engellemek için nasıl bir uygulama yapmam gerekli yada accesste böyle bir uygulama yapılabiliyormu.Tşkr.

Bul · 04/01/2011, 16:42

Bunun için verilerinizi şifreleyerek yazdırabilirsiniz tabloya. Böylece tabloyu alan kişi başka hiçbir yerde kullanamaz. Aşağıdaki konu size yardımcı olacaktır.

https://accesstr.net/konu-access-tablola...leyin.html

Bul · 04/01/2011, 17:43

Hocam ,
Ekteki form üzerinden yardımcı olabilirmisiniz.Kusura bakmayın anlayamadım.Birde bu işlemi kaydet demeden yapamayızmı.Tşkr.

Bul · 04/01/2011, 18:01

Burada olay tamamen iki fonksiyonla yapılıyor. Bunları aşağıya ayrıca veriyorum.

Kod:

Private Function EncryptText(strText As String, ByVal strPwd As String)

Dim i As Integer, c As Integer

Dim strBuff As String



#If Not CASE_SENSITIVE_PASSWORD Then

strPwd = UCase$(strPwd)

#End If

If Len(strPwd) Then

For i = 1 To Len(strText)

c = Asc(Mid$(strText, i, 1))

c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))

strBuff = strBuff & Chr$(c And &HFF)

Next i

Else

strBuff = strText

End If

EncryptText = strBuff

End Function

Kod:

Private Function DecryptText(strText As String, ByVal strPwd As String)

Dim i As Integer, c As Integer

Dim strBuff As String

#If Not CASE_SENSITIVE_PASSWORD Then

strPwd = UCase$(strPwd)

#End If

If Len(strPwd) Then

For i = 1 To Len(strText)

c = Asc(Mid$(strText, i, 1))

c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))

strBuff = strBuff & Chr$(c And &HFF)

Next i

Else

strBuff = strText

End If

DecryptText = strBuff

End Function

Daha sonra da kaydet butonu aracılığı ile şu kodlar kullanılarak yazdığınız herşey password cümlesine göre değiştiriliyor:

Kod:

adiniz = EncryptText((txttext), txtpassword)

soyadiniz = EncryptText((txttext1), txtpassword)

adres = EncryptText((txttext2), txtpassword)

Sitemizde öğretmek amaçlı yardımlarda bulunuyoruz. Bu nedenle "şunu yapın" demeden önce nasıl yapıldığını öğrenmeye çalışın. Birşeyler karalayın, sonra biz hatanızı düzeltiriz. Kolay gelsin.

Bul · 04/01/2011, 18:13

sn.mehmetdemiral hocam ,Yardımlarınızdan ve katkılarınızdan dolayı teşekkürler.

AccessTr.neT

Veri tabanını şifreleme

Veri tabanını şifreleme

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri