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

Derecelendirme: 0/5 - 0 oy

by body 1

Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
85
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.


Cevapla

mehmetdemiral

.
Kullanici Avatari
Uzman
M.... D....
4.767
30/10/2008
Samsun
Öğretmen
Ofis 2013 32 Bit
30/09/2017,01:57
Çö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...
Cevapla

by body 1

Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
85
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)
Cevapla

mehmetdemiral

.
Kullanici Avatari
Uzman
M.... D....
4.767
30/10/2008
Samsun
Öğretmen
Ofis 2013 32 Bit
30/09/2017,01:57
Çö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...
Cevapla

by body 1

Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
85
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.


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Sql Serverdan Sorgu İle Yerel Veri Tabanına Veri Yazdırma ertans 1 165 24/08/2017, 11:22 burhanb
Çözüldü webden veri alma, veri tabanına ekleme.... mbo69221088 15 1.165 10/12/2016, 00:08 mbo69221088
Çözüldü Access Veritabanında Tablo Şifreleme ve Formdan Tabloya Bağlanma Nasıl Yapılır?? mehami 11 933 09/11/2016, 23:35 mehami
Çözüldü Şifreleme Hk. notrino 2 488 02/05/2016, 12:25 notrino
Çözüldü Dışa Aktarılan excel dosyasını şifreleme QATLET 5 721 27/04/2016, 08:48 QATLET

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.