Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
04/01/2011 13:23
Konu Sahibi
by body 1
Yorumlar
4
Okunma
1871
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

by body 1

Hesap Aktif Değil
Aktivasyon Bekleyen
 43
 85
 28
 19/01/2010
 -
 
 Ofis 2003
 13/03/2014,10:00
Çözüldü 
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.



Kullanici Avatari

mehmetdemiral

.
Uzman
ME.... DE....
 53
 4.890
 213
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 Dün,22:27
Çözüldü 
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://www.accesstr.net/konu-access-tab...leyin.html


İnadına, ille de Accesstr.net...

Kullanici Avatari

by body 1

Hesap Aktif Değil
Aktivasyon Bekleyen
 43
 85
 28
 19/01/2010
 -
 
 Ofis 2003
 13/03/2014,10:00
Çözüldü 
Hocam ,
Ekteki form üzerinden yardımcı olabilirmisiniz.Kusura bakmayın anlayamadım.Birde bu işlemi kaydet demeden yapamayızmı.Tşkr.


Ek Dosyalar
.rar   vt1.rar(Dosya Boyutu: 44,69 KB / İndirme Sayısı: 13)

Kullanici Avatari

mehmetdemiral

.
Uzman
ME.... DE....
 53
 4.890
 213
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 Dün,22:27
Çözüldü 
Burada olay tamamen iki fonksiyonla yapılıyor. Bunları aşağıya ayrıca veriyorum.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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.


İnadına, ille de Accesstr.net...

Kullanici Avatari

by body 1

Hesap Aktif Değil
Aktivasyon Bekleyen
 43
 85
 28
 19/01/2010
 -
 
 Ofis 2003
 13/03/2014,10:00
Çözüldü 
sn.mehmetdemiral hocam ,Yardımlarınızdan ve katkılarınızdan dolayı teşekkürler.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Veri Tabanındaki Kayıtlı Bilgiyi 2. Veri Tabanında Bulunan Aynı Değişkenlere Kayıt cevahir1 10 399 24/04/2018, 12:03
Son Yorum: cevahir1
Çözüldü Veritabanı Şifreleme Hakkında aliyuzen 4 261 10/11/2017, 14:17
Son Yorum: aliyuzen
Çözüldü Formda,açılan Kutudan Veri Seçtiğimde Tablodan Veri Bulma 53rize 4 446 25/10/2017, 09:31
Son Yorum: 53rize
Çözüldü Sql Serverdan Sorgu İle Yerel Veri Tabanına Veri Yazdırma ertans 1 357 24/08/2017, 11:22
Son Yorum: burhanb
Çözüldü webden veri alma, veri tabanına ekleme.... mbo69221088 15 1.504 10/12/2016, 00:08
Son Yorum: mbo69221088

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.