Türkçe karaktere çevirme
Tarih
16/04/2011 08:38
Konu Sahibi
kadirdursun
Yorumlar
10
Okunma
2993
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
kadirdursun

Kullanici Avatari
Aktif Üye (Özel)
K.... D....
1.278
12/01/2009
86
İstanbul
Ofis 2010 32 Bit
14/05/2017,21:54
Çözüldü 
arkadaşlar;

sayın Bilgisayarcı'nın
aşağıdaki soruda verdiği örneği ekteki belgeme uygulayamadım. nerde hatam var dünden beri bulamadım. yardımcı olabilir misiniz?

https://www.accesstr.net/konu-tablo-da-t...ht=replace


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Option Compare Database
Function ReplaceStr(str As String) As String
  'Gelen değişken her ihtimale karşı büyük harfe döndürülüyor.
  'üğişçö sırasıyla UGUSCO haline getiriliyor
  'oluşan sonuç başındaki ve sonundaki boşluklardan kurtulup geriye atılıyor
  str = UCase(str)
  str = Replace(str, "Ü", "U", 1)
  str = Replace(str, "Ğ", "G", 1)
  str = Replace(str, "İ", "I", 1)
  str = Replace(str, "Ş", "S", 1)
  str = Replace(str, "Ç", "C", 1)
  str = Replace(str, "Ö", "O", 1)
  str = Replace(str, "ı", "I", 1)
  ReplaceStr = Trim(str)
End Function
Private Sub Komut_Click()

Dim Alan1 As ADODB.Field
Dim Alan2 As ADODB.Field
Dim Alan3 As ADODB.Field

Dim KaySay As Integer
Dim numara As Integer
  'Güncellenmesini istediğiniz tabloyu aşağıdaki şekilde yazıp açınız
  'Select * from tablo1
  'Örnek olması açısından 6 tane alan tanımladım.
  'Bu örnek tablodaki 6 alanın hepsinde üğişçö ÜĞİŞÇÖ karekterleri var.

  AdoAc1 ("Select * from KAYIT")

  'Adoyu açtık aşağıdaki şekilde atamalarınızı yapın.
  'Burada Alan Adı ile değişken adı aynı
  'Sizi yanıltmasın değişkenleri istediğiniz isimle açabilirsiniz.
  'örneğin ADSOYAD diye bir alanınız var. Bu durumda atama=  set alan1=rs1.Fields("ADSOYAD")
  'Değişkenleri bu şekilde set ederek işlemin daha hızlı olmasını sağlamaya çalıştım
  
    Set Alan1 = Rs1.Fields("ILCE ADI")
    Set Alan2 = Rs1.Fields("MAHALLE ADI")
    Set Alan3 = Rs1.Fields("SOKAK ADI")

 
  
  
  'durumu göstermek için atanan değişkenler.
  'kaç kayıt güncellenecek,kaçıncı güncelleniyor göstermek için
  
  KaySay = Rs1.RecordCount
  numara = 0
  Guncellenen = 0
  While Not Rs1.EOF
    DoEvents
    numara = numara + 1
    Durum.Caption = "Durum:" & numara & "/" & KaySay
    
    'Her alanı teker teker gönderiyoruz.
    'Fonksiyonun açıklaması yukarıda var.
    
    
    Alan1 = ReplaceStr(Nz([ILCE ADI], " "))
    Alan2 = ReplaceStr(Nz([MAHALLE ADI], " "))
    Alan3 = ReplaceStr(Nz([SOKAK ADI], " "))
  
  
    'Fonksiyon içinden dönen değerler alanlara atıldı. Update edelim ve bir sonrakine geçelim
    Rs1.Update
    Rs1.MoveNext
  Wend
  'Garbage collectorumuz yok,kendimiz yazalım...
  'açılan adoyu kapa,fieldleri boşalt...
  AdoKapa 1
  Set Alan1 = Nothing
  Set Alan2 = Nothing
  Set Alan3 = Nothing

End Sub




Ek Dosyalar
.rar   örnek2003.rar (Dosya Boyutu: 1,13 MB / İndirme Sayısı: 21)
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla

Puletin
Uzman
Kullanici Avatari
Uzman
1.716
01/11/2008
416
Ülke Dışı
Ofis 2003
24/12/2016,00:18
Çözüldü 
Sponsor Reklam
Sayın Kadirdursun sanırım aşağıdaki MOdülü eklemeyi unutmuşsunuz..

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
Option Compare Database
Option Explicit
'**********************************************************
'* Library of Bilgisayarcı Ado
'* www.accesstr.net kullanıcıları için
'* Bilgisayarcı tarafından tasarlanmıştır.
'**********************************************************
Global Rs1 As adodb.Recordset
Global Rs2 As adodb.Recordset
Global Rs3 As adodb.Recordset
Global RsEx As adodb.Recordset
Public Function AdoKapa(i As Integer) As Boolean
On Error GoTo AdoKapaHata
  AdoKapa = False
  Select Case i
  Case 1
    If Not Rs1 Is Nothing Then
      If Rs1.State = adStateOpen Then Rs1.Close
    End If
  Case 2
    If Not Rs2 Is Nothing Then
      If Rs2.State = adStateOpen Then Rs2.Close
    End If
  Case 3
    If Not Rs3 Is Nothing Then
      If Rs3.State = adStateOpen Then Rs3.Close
    End If
  Case 4
   If Not RsEx Is Nothing Then
      If RsEx.State = adStateOpen Then RsEx.Close
    End If
  End Select
  AdoKapa = True
  Exit Function
AdoKapaHata:
  AdoKapa = False
End Function
Public Function AdoAc1(sql As String) As Boolean
  AdoAc1 = True
  On Error GoTo AdoHata
  If IsNull(Trim(sql)) Then Exit Function
  AdoKapa 1
  Set Rs1 = New adodb.Recordset
    With Rs1
      Set .ActiveConnection = CurrentProject.Connection
          .Source = sql
          .LockType = adLockOptimistic
          .CursorType = adOpenKeyset
          .Open
    End With
  AdoAc1 = True
  Exit Function
AdoHata:
  MsgBox Err.Description
  AdoAc1 = False
End Function
Public Function AdoAc2(sql As String) As Boolean
  AdoAc2 = False
  On Error GoTo AdoHata
  If IsNull(Trim(sql)) Then Exit Function
  AdoKapa 2
  Set Rs2 = New adodb.Recordset
    With Rs2
      Set .ActiveConnection = CurrentProject.Connection
          .Source = sql
          .LockType = adLockOptimistic
          .CursorType = adOpenKeyset
          .Open
    End With
  AdoAc2 = True
  Exit Function
AdoHata:
  MsgBox Err.Description
  AdoAc2 = False
End Function
Public Function AdoAc3(sql As String) As Boolean
  AdoAc3 = False
  On Error GoTo AdoHata
  If IsNull(Trim(sql)) Then Exit Function
  AdoKapa 3
  Set Rs3 = New adodb.Recordset
    With Rs3
      Set .ActiveConnection = CurrentProject.Connection
          .Source = sql
          .LockType = adLockOptimistic
          .CursorType = adOpenKeyset
          .Open
    End With
  AdoAc3 = True
  Exit Function
AdoHata:
  MsgBox Err.Description
  AdoAc3 = False
End Function
Public Function AdoAcEx(sql As String) As Boolean
  AdoAcEx = False
  On Error GoTo AdoHata
  If IsNull(Trim(sql)) Then Exit Function
  AdoKapa 4
  Set RsEx = New adodb.Recordset
    With RsEx
      Set .ActiveConnection = CurrentProject.Connection
          .Source = sql
          .LockType = adLockOptimistic
          .CursorType = adOpenKeyset
          .Open
    End With
  AdoAcEx = True
  Exit Function
AdoHata:
  MsgBox Err.Description
  AdoAcEx = False
End Function


Kaplumbağa ya dikkat et...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla

Yandemir
Only Office 2003
Kullanici Avatari
Onursal
M.... Y....
1.432
26/08/2009
482
Tekirdağ
Ofis 2003
13/04/2017,00:47
Çözüldü 
Formdaki butonda DAO kullandım. çalışırken lock hatası verebilir. birde her ihtimale karşı UpdateQuery yaptım. Sorgu kesin çözüm hatasız çeviriyor..


Ek Dosyalar
.rar   PD_örnek2003.rar (Dosya Boyutu: 1,13 MB / İndirme Sayısı: 14)
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla

kadirdursun

Kullanici Avatari
Aktif Üye (Özel)
K.... D....
1.278
12/01/2009
86
İstanbul
Ofis 2010 32 Bit
14/05/2017,21:54
Çözüldü 
Sponsor Reklam
sayın puletin;
önceki denemelerimde onuda eklemiştim ama

KaySay = Rs1.RecordCount


satırında hata verdi.

Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla

kadirdursun

Kullanici Avatari
Aktif Üye (Özel)
K.... D....
1.278
12/01/2009
86
İstanbul
Ofis 2010 32 Bit
14/05/2017,21:54
Çözüldü 
sayın Yandemir;

numara = numara + 1

satırında hata verdi
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla

emturker
- Murat -
Kullanici Avatari
Uzman
M....
1.250
30/10/2008
775
İstanbul
Ofis 2010 32 Bit
15/05/2017,14:16
Çözüldü 
Sponsor Reklam
Sn.kadirdursun Yandemir Hocamın Eklediği Örnekteki Sorguyu Çalıştırın.
15 Dk.Civarı Sürüyor, Hepsini Düzeltiyor.

Application Engineer
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Kiril Alfabesini Latin Alfabesine Cevirme Subco 4 143 09/05/2017, 10:23 Subco
Çözüldü Hexadecimal sayıyı Decimal sayıya çevirme ucloy 4 2.109 24/03/2017, 10:28 atoz112
  Formda Ve Raporda Rakamları Yazıya Çevirme fatihkara 4 199 19/12/2016, 17:39 atoz112
  sag klick ve makro yu koda cevirme malidolu 10 397 09/10/2016, 21:35 malidolu
Çözüldü Access Sayıyı Yazıya Çevirme naftalanj 12 8.826 13/06/2016, 18:40 RES


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status