visual basic recordset findfirst

hitx
20-11-2007, 21:27   |  #1  
OP Yeni Üye
Teşekkür Sayısı: 0
22 mesaj
Kayıt Tarihi:Kayıt: Mar 2007

 

Arkadaşlar herkese selam öncelikle.Çok Acil yardıma ihtiyacım var.Visual basicte yaptığım ve kayıtları tutan bir program var.Buna birde text ile birlikte arama butonu koydum  database içinde arama yapabilmek için.Arama için RECORDSET FİNDFIRST komutunu kullanacam ama bir türlü yapamadım.Bilen bir arkadaş varsa çok sevinirim.Yanlız en basitinden olsun.Çok acil lütfen!

İyi günler

KuaforPlus
18-02-2008, 13:08   |  #2  
KuaforPlus avatarı
Yıllanmış Üye
Teşekkür Sayısı: 1
223 mesaj
Kayıt Tarihi:Kayıt: Nis 2007

On Error GoTo hata
With Data1.Recordset
If .RecordCount = 0 Then Exit Sub
sor = InputBox("Firma Adını Girin!", "BUL")
If sor = "" Then Exit Sub
.FindFirst "FirmaAdı like '" & sor & "'"
If .NoMatch Then
MsgBox "Kayıt Bulunamadı", vbExclamation
.MoveFirst
End If
End With
Exit Sub
hata:
MsgBox Err.Description
Err.Clear

KuaforPlus
18-02-2008, 13:09   |  #3  
KuaforPlus avatarı
Yıllanmış Üye
Teşekkür Sayısı: 1
223 mesaj
Kayıt Tarihi:Kayıt: Nis 2007

Acces Dosyalarında Birde Bulunamayan Karakterler Vardır. Bunları Kaydettirmemelisiniz.

Function BulunmayanKarakter(Karakter As String) 'Bulunamayan Karakterler
Karakter = Replace(Karakter, "'", " ")
Karakter = Replace(Karakter, "#", "-")
BulunmayanKarakter = Karakter
End Function