23/03/2019, 12:08
(23/03/2019, 12:02)haliliyas yazdı: [ -> ]Ş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