AccessTr.neT

Tam Versiyon: Registry'den veri okuma, yazma, sorgulama nasıl olur ?
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Merhaba,

Access 2003'ün üzerinden 5 yıldan fazla geçmesine rağmen hala herkesin anlayabileceği Türkçe açıklamalı bir örnek uygulama ya da kod bulunmamakta. Türk Access kullanıcıları için belli bir seviyeden sonraki konular gelişime ve uygulamaya kapalı kalmakta.

Aldığımız kitaplar, video dersler de alt seviyede olduğundan sorun bitmiyor. Alison Balter'in kitabından aldığım örnek de çalışıyor mu, çalışmıyor mu mübarek bir ipucu vermedi. Hem kodlar hem de örneği veriyorum ama bence bunlar pek bir işe yaramıyor.

Img-grin Sizlerden ricam registry'den her tür veriyi okuayabilen, yazabilen, varlığını sorgulayabilen bir örnek vermeniz. Önemli yerlerde açıklamalar olursa daha iyi olur. Bunu parametrelerle pratik yaparsa çok daha iyi olur.

Çalıştıramadığım, yetersiz olduğunu düşündüğüm kodlar:
Kod:
KOD 23.3 RegSetValueEx Fonksiyonunu Kullanarak Kayıt Defterine Yazmak
Private Sub cmdWrite_Click()
Dim strValue As String
Dim strKeyName As String
Dim lngRetval As Long
Dim lngLength As Long
Dim lngKey As Long
‘katara anahtar adını içeren bir değer ata
strKeyName = Me.txtKeyName.Value & vbNullString
‘kayıt defteri anahtarının tanıtıcı değerini al
If RegOpenKeyEx(HKEY_CURRENT_USER, _
strKeyName, _
0, KEY_WRITE, lngKey) Then
End If
‘depolanacak katarı ata
strValue = Me.txtValue.Value & vbNullString
‘depolanacak katarın uzunluğunu ata
lngLength = Len(Me.txtValue) + 1
‘değeri anahtara kaydet
lngRetval = RegSetValueEx( _
lngKey, Me.txtValueName, 0, REG_SZ, _
ByVal strValue, lngLength)
‘anahtarı kapa
RegCloseKey (lngKey)
End Sub

Kod:
KOD 23.2 RegQueryValueEx Fonksiyonunu Kullanarak Kayıt Defterinden Bilgi Okuma
Private Sub cmdRead_Click()
Dim strValue As String * 256
Dim lngRetval As Long
Dim lngLength As Long
Dim lngKey As Long
‘kayıt defteri anahtarı için bir tanıtıcı değer (handle) al
If RegOpenKeyEx(HKEY_CURRENT_USER, Me.txtKeyName.Value, _
0, KEY_QUERY_VALUE, lngKey) Then
End If
lngLength = 256
‘anahtar değerini al
lngRetval = RegQueryValueEx( lngKey, Me.txtValueName, 0, 0, ByVal strValue, lngLength)
Me.txtValue = Left(strValue, lngLength)
‘anahtarı kapat
RegCloseKey (lngKey)
End Sub
Registry ile ilgili forumda arama yaparsanız, yapılmış iyi örnekler bulabilirsiniz.

Geçenlerde böyle bir konu geçmişti, öncelikle buradaki kodları inceleyebilirsiniz.

Regedit Update

ve

2007 Makro Güvenlik
(2.Sayfadaki örnek)
Regedit update konusunda Wscript ile okuma yazma örneği bulunmakta ve iş görmekte.

2007 update konusunda ise ekte reg dosyası vardı uygulama değil. Vba ile değil de WSH ile yapılan teknik hakkında bilgiyi isteyenler:RegReadRegWriteRegDeleteadresinde bulabilir.

Bir nebze olsun farklı bir yöntemle eksik yönleri olsa da çözümü var. Umarım farklı windows sürümlerinde WSH kod sorunu oluşturmaz.

Teşekkürler Sn Seruz.
Register ile ilgili bir sürü örnek uygılama yaptım ve örneklerde duruyor. Hiç görmediniz sanırım onları. Usb diskleri kapatma-açma ve Güvenlik Uyarıları ile ilgili 2 tane özgün çalışma gönderdim. Sanırım şu ana kadar register ve Access ile ilgili en güzel modül yer alıyor o çalışmalarda. İnceleyin bakalım. Haklı mıymışım?
iki örneğe de baktım. Başka örnek varsa lütfen konu başlığını verin. Tam istediğim gibiydi. Bu alanda gördükerimin en iyisiydi. Sağolun.
Sayfalar: 1 2