Visual Basic 6.0 da yaptığım programda fiyat aralığında aratma kısmı yapmak istiyorum..
Şuanda textbox'a hangi fiyatı yazarsam o varsa veritabanında gösteriyor yoksa bulunamadı hatası veriyor.
Arama butonumda olan kod;
Alıntı
Private Sub cmdSearch_Click()
conn.Close
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = hasan.mdb"
rec.CursorLocation = adUseClient
rec.Open "Select * From Tablo1 where Fiyat like '%" & txtSearch.Text & "%'", conn, adOpenDynamic, adLockOptimistic
If rec.EOF Then
MsgBox "Bulunamadı"
Else
Set Hasan.DataSource = rec
End If
End Sub
Bunun atıyorum 10000 ile 30000 arasındaki arabaları göster gibi bir sonuç almak istiyorum. Nasıl yapabilirim?