Muzaffer AKYIL (Victorious) » Function

Vb.Net te Recordset için Null Kontrolü

Muzaffer Ali AKYIL — Thu, 24 Jan 2008 14:30:07 +0000

Vb.Net ile herhangi bir kayıtsetinden veri çekerken Null değerlerin sorun yaratmasından sıkıldıysaız aşağıdaki fonksiyonu kullanabilirsiniz.

Kod :


Public Function VeriNull(ByRef Kayitseti As Recordset, ByRef Alan As String) As Object
    If Not IsDBNull(Kayitseti.Fields(Alan).Value) Then
        VeriNull = Kayitseti.Fields(Alan).Value
    Else
        VeriNull = ""
    End If
End Function

Kullanımı :


TextBox1.Text = VeriNull(Kayitset,"ADI")

Kolay Gelsin.

String ten TR karakterleri temizleme

Muzaffer Ali AKYIL — Wed, 28 Mar 2007 12:04:44 +0000

Bazen bir string teki Türkçe karakterler başımıza dert olabilir. Bunları temizlemek için aşağıdaki fonksiyonu kullanabilirsiniz.


Public Function TRSiz(ByVal vdata As String) As String
Dim tmp As String
tmp = Replace(vdata, "İ", "I")
tmp = Replace(tmp, "İ", "I")
tmp = Replace(tmp, "ı", "i")
tmp = Replace(tmp, "Ğ", "G")
tmp = Replace(tmp, "ğ", "g")
tmp = Replace(tmp, "Ş", "S")
tmp = Replace(tmp, "ş", "s")
tmp = Replace(tmp, "Ç", "C")
tmp = Replace(tmp, "ç", "c")
tmp = Replace(tmp, "Ü", "U")
tmp = Replace(tmp, "ü", "u")
TRSiz = tmp
End Function

Kolay Gelsin.

SQL den alınan tarih bilgisini düzenleme

Muzaffer Ali AKYIL — Wed, 28 Mar 2007 12:02:27 +0000

Bildiğiniz üzere hem MSSQL hem de MySQL den bir tarih alanını çektiğimizde bize TR formatında gelmez.(default server ayarları ile). Bize dönen string 2007-03-28 gibidir. Bunu bizim tarih formatımız olan 28-03-2007 şekline çevirmek için aşağıdaki fonksiyonu kullanabilirsiniz.

İlk fonksiyon sadece tarihi, ikinci fonksiyon ise hem tarihi hemde zamanı çevirir.

'Sadece Tarihi Çevirir. Function SqLDate(Tarih As String) Dim Gun As String Dim Ay As String Dim YIL As String Tarih = left$(Tarih, 10) Gun = left$(Tarih, 2) Ay = Mid$(Tarih, 4, 2) YIL = right$(Tarih, 4) SqlDate = YIL & "-" & Ay & "-" & Gun End Function 'Hem Tarihi Hemde Zamanı Çevirir Function SqLDateTime(DateTime As String) Dim Gun As String Dim Ay As String Dim YIL As String Dim ssaaT As String Dim Saat As String Dim Dakika As String Dim Saniye As String ssaaT = right$(DateTime, 9) DateTime = left$(DateTime, 10) Gun = left$(DateTime, 2) Ay = Mid$(DateTime, 4, 2) YIL = right$(DateTime, 4) SqlDateTime = YIL & "-" & Ay & "-" & Gun & ssaaT End Function

Kolay Gelsin.

BBuyukYap Fonksiyonu

Muzaffer Ali AKYIL — Wed, 28 Mar 2007 11:50:37 +0000

Daha önce verdiğim BuyukHarfYap ve KucukHarfYap fonksiyonlarını kullanarak sadece baş harfi büyük yapmaya yarayan fonksiyondur.

Not : BuyukHarfYap ve KucukHarfYap Fonksiyonuna gereksinim duyar.

Public Function BBuyukYap(ByVal vdata As String) As String Dim I As Long vdata = Trim$(vdata) If Len(vdata) < 1 Then BBuyuk = vdata Exit Function End If vdata = BuyukHarfYap(left$(vdata, 1)) & KucukHarfYap(right$(vdata, Len(vdata) - 1)) For I = 2 To Len(vdata) If (Mid$(vdata, I, 1) = " ") And (I + 1 <= Len(vdata)) Then Mid$(vdata, I + 1, 1) = BuyukHarfYap$(Mid$(vdata, I + 1, 1)) End If Next I BBuyukYap = vdata End Function

Kullanımı :
Dim yazi as String yazi = “Deneme dede DENEME İğıÇöş” yazi = BBuyukYap(yazi) MsgBox yazi

Kolay Gelsin.

BuyukHarfYap Fonksiyonu

Muzaffer Ali AKYIL — Wed, 28 Mar 2007 11:44:41 +0000

İşte Türkçe karakterleri destekleyen bir fonksiyon daha. Adından da anlaşılacağı gibi verilen string i büyük harfe çevirir.
Public Function BuyukHarfYap(ByVal Metin1 As String) As String Dim Sayac, Sonuc, Boy As Long Dim Metin2, BasMetin, BitMetin As String Boy = Len(Trim(Metin1)) Metin2 = UCase(Trim(Metin1)) For Sayac = 1 To Boy Sonuc = InStr(Sayac, Metin1, "i") If Sonuc > 0 Then BasMetin = left(Metin2, Sonuc - 1) BitMetin = right(Metin2, Boy - Sonuc) Metin2 = BasMetin & "İ" & BitMetin End If Next For Sayac = 1 To Boy Sonuc = InStr(Sayac, Metin1, "ı") If Sonuc > 0 Then BasMetin = left(Metin2, Sonuc - 1) BitMetin = right(Metin2, Boy - Sonuc) Metin2 = BasMetin & "I" & BitMetin End If Next BuyukHarfYap = Metin2 End Function

Kullanımı :
Dim yazi as String yazi = “Deneme dede DENEME İğıÇöş” yazi = BuyukHarfYap(yazi) MsgBox yazi

Kolay Gelsin.

KucukHarfYap Fonksiyonu

Muzaffer Ali AKYIL — Wed, 28 Mar 2007 11:38:10 +0000

İşte Türkçe karakterleri destekleyen bir fonksiyon. Adından da anlaşılacağı gibi verilen string i küçük harfe çevirir.
Public Function KucukHarfYap(ByVal Metin1 As String) As String Dim Sayac, Sonuc, Boy As Long Dim Metin2, BasMetin, BitMetin As String Boy = Len(Trim(Metin1)) Metin2 = LCase(Trim(Metin1)) For Sayac = 1 To Boy Sonuc = InStr(Sayac, Metin1, "I") If Sonuc > 0 Then BasMetin = left(Metin2, Sonuc - 1) BitMetin = right(Metin2, Boy - Sonuc) Metin2 = BasMetin & "ı" & BitMetin End If Next For Sayac = 1 To Boy Sonuc = InStr(Sayac, Metin1, "İ") If Sonuc > 0 Then BasMetin = left(Metin2, Sonuc - 1) BitMetin = right(Metin2, Boy - Sonuc) Metin2 = BasMetin & "i" & BitMetin End If Next KucukHarfYap = Metin2 End Function

Kullanımı :
Dim yazi as String yazi = "Deneme dede DENEME İğıÇöş" yazi = KucukHarfYap(yazi) MsgBox yazi

Kolay Gelsin.

GetShortName Fonksiyonu

Muzaffer Ali AKYIL — Wed, 28 Mar 2007 11:30:52 +0000

Bilindiği üzere 32 bit işletim sistemlerine geçildiği günden bu yana Path (yol) larda boşluklar, çeşitli karakterler kullanılmasına izin verildi. VB de bu tür bir path ile işlem yapmak genelde sorun çıkarmakta.

Şimdi size bu uzun pathleri vbnin anlayacağı dile getirecek bir fonksiyon olan GetShortName fonksiyonunu sunuyorum ;

Public Function GetShortName(ByVal sLongFileName As String) As String Dim lRetVal As Long, sShortPathName As String, iLen As Long sShortPathName = Space(255) iLen = Len(sShortPathName) lRetVal = GetShortPathName(sLongFileName, sShortPathName, iLen) If lRetVal = 0 Then Open sLongFileName For Random As #1 Close #1 lRetVal = GetShortPathName(sLongFileName, sShortPathName, iLen) Kill (sLongFileName) End If GetShortName = left(sShortPathName, lRetVal) End Function

Kullanılışı :

Dim kisapath as String kisapath = GetShortName("c:\Program Files\Muzaffer\asd.exe") MsgBox kisapath

Böylece artık sorunsuz bir şekilde path kullanabilirsiniz.