SQL Like ile Birden Fazla Kelime Arama

Sub MultipleWordSearch()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sqlQuery As String
    Dim words As Variant
    Dim i As Integer

    ' Veritabanı bağlantısını ayarla
    Set conn = New ADODB.Connection
    conn.ConnectionString = "your_connection_string_here"
    conn.Open

    ' Aranacak kelimeler (örnek)
    words = Array("kelime1", "kelime2", "kelime3") 

    ' SQL sorgusunu oluştur
    sqlQuery = "SELECT * FROM TabloAdı WHERE (SütunAdı LIKE '%" & words(0) & "%'"

    For i = 1 To UBound(words)
  sqlQuery = sqlQuery & " OR SütunAdı LIKE '%" & words(i) & "%'"
    Next i

    sqlQuery = sqlQuery & ")"

    ' Sorguyu çalıştır ve sonuçları al
    Set rs = New ADODB.Recordset
    rs.Open sqlQuery, conn, adOpenStatic

    ' Sonuçları işle
    While Not rs.EOF
  ' Sonuçları burada işle
  rs.MoveNext
    Wend

    ' Bağlantıyı kapat
    rs.Close
    conn.Close
End Sub