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.
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 SubKod:
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
