veri tabanında arama yapmak

[crownrr]

Dim veritabani As Database
Dim kisiler As Recordset

Set veritabani = OpenDatabase("c:\vet-data\vtdata.mdb")
Set kisiler = veritabani.OpenRecordset("select * from insanlar")

kisiler.Index = PrimaryKey
kisiler.Seek "=", 5

MsgBox kisiler!adi
kisiler.Close
veritabani.Close

tablodan 5 nolu kisiyi seek ile bulmak istiyorum ama

kisiler.Index = PrimaryKey

kısmına ne yazsam hata veriyor. do ile bir döngü kurup kaydı bulmak mümkün fakat ben seek komutunu anlamak istiyorum. index konusunda sorun yaşıyorum. projede referans olarak dao 3.51 var

şunuda denedim gene beceremedim ;

sql="select * from insanlar where kisi_no=5"
Set kisiler = veritabani.OpenRecordset(sql)

hatam verde?

[crownrr]

kayit=5

SQL ="select * from insanlar where kayit_no=" & kayit
Set veritabani = OpenDatabase("c:\vet-data\vtdata.mdb")
Set kisiler = veritabani.OpenRecordset(SQL)

MsgBox kisiler!adi


bu şekilde çözüldü. Teşekkürler

[bunalthe]

kolay gelsin...kendi cozumunu bulup paylaşmak güzel bişi..