Selam

AdodB İle Arama Yapıyor ve bulunan kaydı metin kutularına alıyorum
fakat kelime içerisinde benzer harf dizeleri geçtiğinde ise aranan ı değilde ısrarla yaklaşığını bulmakta
Bunu nasıl düzeltebilirim
örnektede görülecek metin kutularının veri bağlantısı bulunmamakta
aramayı metin kutularında yapıyorum
Alternatif başka yollar var ise bunlarada açığım
saygılarımla

Merhaba;

Sayın aydın3838 benim kendi uygulamalarımda sık kullandığım, vazgeçemediğim ve bana göre oldukça kullanışlı google aramasına benzer bir aktif kayıt arama örneğini eklemiştim, arama sonrasında bulunan kayıtlardan istediğinizi seçerek ilgili kaydı forma çağırma şeklinde uygulanmakta, inceleyin isterseniz..Her alandan arama yapılabilmekte ve geliştirilebilir.



http://www.access-sql.com/Konu-Aktif-Kay...-Sihirbazi

sayın abdullah bey örnek ve alternatif çok güzel
teşekkür ederim
bu işlem AdodB ile de olmak zorunda buna çözüm bulmam gerekli

sayın modalı
bir el atsa mutlaka bir çözüm önerecektir...

Where şartı için önce like kullanmayın sadece eşitlik kullanın ve bu durumdan sonra rst.recordcount ile kayıt sayısını aldırın. Eğer 0 dan büyükse sql stringi olarak where şartında bunu kullanın. Eşitlik şartına göre kayıt dönmüyorsa o zaman da like ile olan where şartınından oluşan sql stringi kullanın.

this.setState({sign:"Here comes the sun...."})

sayın berkant bey altta örnek kodda yapılaırsa sevinirim

Dim strWhere As String
' kriter alanlarını kontrol ediyoruz
If Len(Me.StokAdi & vbNullString) > 0 Then 'LIKE
strWhere = strWhere & "StokKartlari.StokAdi LIKE '%" & Me.StokAdi & "%' AND "
End If
' where ekleme ve fazla and leri kaldırma
If Len(strWhere) > 0 Then
strWhere = " WHERE " & Left(strWhere, Len(strWhere) - 4)
End If
strSQL = "SELECT * FROM StokKartlari " & strWhere & ";"
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenStatic, adLockReadOnly
If Not rstkayit.BOF And Not rstkayit.EOF Then
With rstkayit
intCount = .RecordCount
.MoveFirst
showRecord intCount & " Kayıtta " & .AbsolutePosition
Kaydet.Enabled = True
End With
Else

Kaydet.Enabled = False
MsgBox "> " & StokAdi & vbCr & "Aranan İsimde'da Stok Kartı Bulunamadı...", vbOKOnly, ""
Call Temizle
End If