Database işlemlerinde kullanışlı bir fonksiyon

[beyic_baris]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Private Function cevir(ceviri As String) As String
'küçük harfi büyük harfe ceviren fonksiyon kullanımı türkçe karakter destekli
'text1=cevir(text1) şeklindedir
ceviri = Replace(UCase(ceviri), "i", "I")
ceviri = Replace(UCase(ceviri), "İ", "I")
ceviri = Replace(UCase(ceviri), "ı", "I")
ceviri = Replace(UCase(ceviri), "ğ", "G")
ceviri = Replace(UCase(ceviri), "ü", "U")
ceviri = Replace(UCase(ceviri), "ş", "S")
ceviri = Replace(UCase(ceviri), "ö", "O")
ceviri = Replace(UCase(ceviri), "ç", "C")
ceviri = Replace(UCase(ceviri), "Ğ", "G")
ceviri = Replace(UCase(ceviri), "Ü", "U")
ceviri = Replace(UCase(ceviri), "Ş", "S")
ceviri = Replace(UCase(ceviri), "Ö", "O")
ceviri = Replace(UCase(ceviri), "Ç", "C")
cevir = ceviri
End Function