Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
16/04/2011 08:38
Konu Sahibi
kadirdursun
Yorumlar
10
Okunma
3440
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

kadirdursun

Gümüş Üye
Kullanici Avatari
Gümüş Üye
K.... D....
1.282
12/01/2009
86
İstanbul
Ofis 2010 32 Bit
13/09/2017,16:46
Çö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


Kullanici Avatari
Altın Üye
1.715
01/11/2008
416
-
Ofis 2003
24/12/2016,00:18
Çözüldü 
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
Aktif Üye
M.... Y....
1.432
26/08/2009
482
Tekirdağ
Ofis 2003
25/08/2017,00:10
Çö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

Gümüş Üye
Kullanici Avatari
Gümüş Üye
K.... D....
1.282
12/01/2009
86
İstanbul
Ofis 2010 32 Bit
13/09/2017,16:46
Çözüldü 
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

Gümüş Üye
Kullanici Avatari
Gümüş Üye
K.... D....
1.282
12/01/2009
86
İstanbul
Ofis 2010 32 Bit
13/09/2017,16:46
Çö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.252
30/10/2008
778
İstanbul
Ofis 2010 32 Bit
Dün,13:22
Çözüldü 
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
Çözüldü Türkçe Karakter Sorun Mu? katmer 2 139 30/07/2017, 18:52 katmer
Çözüldü Kiril Alfabesini Latin Alfabesine Cevirme Subco 4 457 09/05/2017, 10:23 Subco
Çözüldü Wep Access Dosyasını Masaüstü Access Dosyasına Çevirme next 7 575 02/04/2017, 23:36 next
Çözüldü Hexadecimal sayıyı Decimal sayıya çevirme ucloy 4 2.334 24/03/2017, 10:28 atoz112
Çözüldü Formda Ve Raporda Rakamları Yazıya Çevirme fatihkara 4 471 19/12/2016, 17:39 atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.