AccessTr.neT
Lıke Operatörü - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Lıke Operatörü (/konu-like-operatoru.html)

Sayfalar: 1 2 3

RE: Lıke Operatörü - berduş - 23/03/2022

C*e*l*o*y*c*e hocamın da belirttiği gibi dosya eklemeniz çözümü bulmayı kolaylaştırır 
strSorgu = strSorgu & " AND personel.ad LIKE '" & TextBoxBox1.Text & "*'"
şeklinde dener misiniz?

Re: Lıke Operatörü - H@K@N - 23/03/2022

Ekte dosya ekledim.


Ara butonunu textbox ve combobaxlara göre çalıştıramadım. Filtreleme yapmıyor maalesef.

RE: Lıke Operatörü - berduş - 24/03/2022

(23/03/2022, 22:08)H@K@N yazdı: Ara butonunu
ara butonunuzda kod göremedim?

RE: Lıke Operatörü - berduş - 24/03/2022 

Private Sub btn_arama_Click()

Dim baglan As New Connection

Dim rs As New Recordset



 baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\master.accdb;"

strSorgu = "select * from [personel] WHERE personel.id > 0"



If Len(Trim(TextBox3.Value & vbNullString)) > 0 Then

strSorgu = strSorgu & " AND personel.ad='" & TextBox3.Text & "'"

Else

strSorgu = strSorgu & " AND personel.ad LIKE '" & TextBox3.Text & "%'"

End If

rs.Open strSorgu, baglan, adOpenKeyset, adLockPessimistic

ListBox1.ColumnCount = rs.Fields.Count

If rs.RecordCount <> 0 Then ListBox1.Column = rs.GetRows Else ListBox1.Clear

rs.Close

baglan.Close

End Sub


RE: Lıke Operatörü - H@K@N - 24/03/2022

textBox a hakan ismini yazdığımda ismi hakan olanları getiriyor. Ama H,Ha,Hak yazdığımda hiçbir veri gelmiyor. Ad alanına birebir yazmak gerekiyor. Ne yaptıysam olmadı. Başaramadım.

Re: Lıke Operatörü - berduş - 24/03/2022

Sadece başlangıcı mi uyacak?
Kod:
If Len(Trim(TextBox3.Value & vbNullString)) > 0 Then
strSorgu = strSorgu & " AND personel.ad='" & TextBox3.Text & "'"
Else
strSorgu = strSorgu & " AND personel.ad LIKE '" & TextBox3.Text & "%'"
End If
yerine
Kod:
If Len(Trim(TextBox3.Value & vbNullString)) > 0 Then strSorgu = strSorgu & " AND personel.ad LIKE '" & textBox3.Text & "%'"
yazarak dener misiniz