Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
24/02/2019 17:53
Konu Sahibi
access acemisi
Yorumlar
13
Okunma
870
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
access acemisi

access acemisi

Gümüş Üye
38814
Ce.... Çe....
 58
 77
 399
 24/08/2011
0
 Çankırı
 Emekli
 Ofis 2016 64 Bit
 13/06/2019,17:43
(23/03/2019 12:02)haliliyas Adlı Kullanıcıdan Alıntı: Şu anda kullandığınız uygulamada indeks oluşturmak için bu kod mu kullaniliyor

Private Sub BtnEndxSay_Click()
Dim KelimeSay As New ADODB.Recordset
Dim TxtIndex, TxtIndex2, SqlKelime, txtKelimeSay, saygec As String
Dim IndexDizi() As String
TxtIndex = ""
TxtIndex2 = ""
SqlKelime = "SELECT [anahtar_kelime]  FROM vaaz ;"

KelimeSay.Open SqlKelime, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    If KelimeSay.RecordCount <= 0 Then GoTo 10
    KelimeSay.MoveLast
    KelimeSay.MoveFirst
        Do Until KelimeSay.EOF
             TxtIndex = TxtIndex & KelimeSay.Fields(0) & " "
             KelimeSay.MoveNext
        Loop

IndexDizi = Split(Trim(TxtIndex))
TxtIndex = " " & IndexDizi(0) & " "
TxtIndex2 = " " & IndexDizi(0) & " "
    For X = LBound(IndexDizi) + 1 To UBound(IndexDizi)
        
        TxtIndex = IIf(InStr(TxtIndex, " " & IndexDizi(X) & " ") = 0, TxtIndex & IndexDizi(X) & " ", TxtIndex)
        TxtIndex2 = TxtIndex2 & IndexDizi(X) & " "
    Next

    IndexDizi = Split(Trim(TxtIndex))
    '________Sırala__________________
     For X = LBound(IndexDizi) To UBound(IndexDizi)
    For y = X To UBound(IndexDizi)
      If UCase(IndexDizi(y)) < UCase(IndexDizi(X)) Then
        TempTxt1 = IndexDizi(X)
        TempTxt2 = IndexDizi(y)
        IndexDizi(X) = TempTxt2
        IndexDizi(y) = TempTxt1
      End If
     Next y
  Next X
  '___________sırala son
    
    CurrentDb.Execute " DELETE * FROM [TblEndx];"
    For X = LBound(IndexDizi) To UBound(IndexDizi)
    saygec = Trim(TxtIndex2)
    txtKelimeSay = UBound(Split(saygec, IndexDizi(X)))
   
    CurrentDb.Execute " INSERT INTO [TblEndx]([EndxKelime], [EndxSay])" & _
                         " VALUES (' " & IndexDizi(X) & "', '" & txtKelimeSay & "');"

    Next
10
KelimeSay.Close
Set KelimeSay = Nothing
DoCmd.OpenQuery "sorgu"
End Sub




halily

halily

Uzman
65596
ha....
 26
 1.170
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,01:16
Bu kodda sorun görünmüyor sadece anahtar alanda arama yapiyor



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Bir Kaç Kelime Ve Sayı Yazınca Yakın Olanları Göstermesi prestij06 5 370 14/04/2019, 00:00
Son Yorum: prestij06
Çözüldü Whatsapp Link İle Mesaj Gönderirken Tüm Metin Değil İlk Kelime Gidiyor zetyu 3 445 18/12/2018, 22:20
Son Yorum: ates2014
Çözüldü Metin İcerisinde Gecen İki Kelime Arasındaki Veriyi Bulmak access_delisi 2 206 23/10/2018, 04:25
Son Yorum: access_delisi
Çözüldü Form İçinde Tekrar Kaydı Engellemek ALTANs 15 902 10/07/2018, 21:11
Son Yorum: mehmetdemiral
Çözüldü Excel'den Access'e Veri Aktarırken Tekrar Eden Kayıtları Aktarmasını Engelleme metbal 6 683 22/06/2018, 15:48
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.