vb5 de arama yapmak

[kermit]

visual basic 5 de arama yaptırıcam. textboxa yazılanları button ile aratıcam. veritabanımdan müşteri ad ve soyadına göre aratmak istiyorum. ama diyelimki birden fazla Murat adında kişi varsa sadece bir tanesine geliyor ve diğerlerine atlama yapmıyor. eğer birden fazla aynıs isimden varsa veritabanımda (grid olarak formda bulunuyor) hepsinde gezmesini istiyorum. ama olmuyor. ve eğer soyadı girersem diyelimki Murat Kaplan isminde bir müştri var muratı bulamıyor. soyisim girmemem lazım veritabanındaki isim soyisim kısmına. bendeki veritabanında isim ve soy isim aynı sütundalar. ve veri tabanm access Muratı bulabilmesi için.aşağıdaki kodlarda nerde değişiklik yapmalıyım yardımcı olurmusunuz.
kodlar şu

private sub ara_click()
data1.recordset.movefirst
do while data1.recordset.eof=false
if data1.recordset.müşteriadı=aranan.form1.text1=data1.recordset.müşteriadı
exit do
else
data1.recordset.movenext
end if
loop
if data1.recordset.eof then
msgbox ("kayit bulunamadı")
end if
end sub

[ Mesaj 22 Haziran 2007, Cuma - 16:43 tarihinde, kermit tarafından güncellenmiştir ]

[aktiftablet]

private sub ara_click()
data1.recordset.movefirst
do while data1.recordset.eof=false
if data1.recordset.müşteriadı=aranan.form1.text1=data1.recordset.müşteriadı
exit do ilk sonuçta çıkıyorsun aramadan
else
data1.recordset.movenext
end if
loop
if data1.recordset.eof then
msgbox ("kayit bulunamadı")
end if
end sub

mevzu bahsi satırı silip, yerine
öncedentanımladığımdizi[i]=data1.recordset.müşteriadı yap.
tabi bnunun için döngüyü de do-while yerine, for-next ile yap, tabi veritabanından satır sayısını çekmen gerekecek.

[Mr_Hand]

ulan araba yapmak diye okudum binbir hevesle girdim nedir diye :P gerçeği öğrendiğimde dünyam yıkıldı bee :)

[DeMiRMaSKe]

Eğer ad ve soyad aynı değerdeyse onları ayırabilirsin. sonra girdiğin aramayı ona göre kıyaslatabilirsin.

Murat Kaplan'ı isim ve soyad diye mid$ fonksyonu ile ayırabilirsin. Eğer Murat Arif Kaplan gibi bir isim olursa onda da ilk iki değeri arama kriterin olan isimle kıyaslatıp soyadı ayrı kıyaslatabilirsin.

[kermit]

tmm dır çok saolasınız hallettim sorunumu.
şöyle bişiler yaptım.

Private Sub ara_Click()
Data2.Recordset.MoveNext
Do While Data2.Recordset.EOF = False
If Data2.Recordset.MusteriAdSoyad = aranan.Text Then
Form1.aranan = Data2.Recordset.MusteriAdSoyad
Exit Do
Else
Data2.Recordset.MoveNext
End If
Loop
If Data2.Recordset.EOF Then
cevap = MsgBox("Arama Tamamlandı", vbOKOnly, "Kayıt Arama")
Data2.Recordset.MoveFirst
End If
End Sub


ama bi sorunum daha var :)
diyelimki "zzz" diye bi kayıt arıycam ve bu isim kayıtlarımda yok.
bana msgbox ile şu uyarıyı vermesini istiyorum.
"zzz kayıtlarda bulunamadı" diye
kafam beynim durdu sinirlerim bozuldu.
pek iyi de değilim visual basicde öğrenmeye çalışıyorum.
saolun şimdiden yardımlarınız için

[DeMiRMaSKe]

Private Sub ara_Click()
dim sonuc as boolean
sonuc = false
Data2.Recordset.MoveNext
Do While Data2.Recordset.EOF = False
If Data2.Recordset.MusteriAdSoyad = aranan.Text Then
Form1.aranan = Data2.Recordset.MusteriAdSoyad
sonuc = true
Exit Do
Else
Data2.Recordset.MoveNext
End If
Loop
If Data2.Recordset.EOF Then
cevap = MsgBox("Arama Tamamlandı", vbOKOnly, "Kayıt Arama")
Data2.Recordset.MoveFirst
End If
if sonuc = false then msgbox(aranan.text & " kayıtlarda bulunamadı.")
End Sub

gibi birşey yapabilirsin.

[kermit]

bu dediginde sonuc bulunamayınca doğru çalışıyo ama. lol diye bi isim var lol u buluyo ondan sonra lol kayıtlarda bulunamadı diyo :)