Microsoft Acsess, VB'den DB ye kayıt

Arkadaşlar dosyalama şekillerinden random ve sıralı dosyalama gibi Microsoft Acsess 'te oluşturduğumuz bir DB 'ye gene aynı kolaylıkta buton'a click olayıyla text lerin içindeki verileri kayıt işlemi nasıl gerçekleştirebilir.(silme , arama ,listeleme bu tarz sorgu ve olayların tamamı)Not:Bu işlemleri Visual Data meneger kullanmadan yapmak istiyorum...

Şimdiden teşekkürler...

biras ugrastircak ama yardimci olayim hmn

private sub kaydet_clicl()
data1.refresh
data1.recordset.addnew
data1.recordset("adi")=text1.text
data1.recordset("soyadi")=text2.text
end sub

private sub sil_click()
Data1.Recordset.Delete
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst
end sub

private sub ara_click()
Dim A, B
A = Text3
B = "gorusmekistedigikisi='" & A & "'"
Data1.Recordset.FindFirst B
If Data1.Recordset("adi") = "" Then
MsgBox ("********arama bulunamadi*********")
End If
end sub

datayi veritabanina tanimlamayi biliosundur ben genede anlatayim
"add-ins"
menusunden "visual data maneger" tikla karsina gelen pencereden "file" den "new => microsorft access => version 7.0" sec. karsina gelen pencereden veritabanini ac
"data base window" da sag tikla "new table" de  pencerede "table name (veri tabanin adi)", "field list" altindaki "add filed" tikala ve tablodaki bolumlerini olustur. "list index" penceresi altindaki "add list" tikla karsina gelen pencereden herhangi birini sec "name" ye de veri tabanin adini yaz. En son "Built the Table" tikla veritabanin olustu artik. UNUTMA: TÜRKCE KARAKTER KULLAMAK YOK!

text boxlarida tanitip data nin nerde oldugunu belirtiginde programin hazir hade sana kolay gele

Cevap için teşekkür ederim arkadaşım...Baya bi zaman geçti ve ben hallettim ama genede teşekkür ederim ...

ben daha yeni üye oldum gordum ve hmn cvp yazidm yapabilcegim baska bisi olursa buralardayiik :D

Kral_M3R slm.Yukarda verdiğin kodları anladım yanlız şu arama olayını birtürlü anlamadım.Rica etsem biraz daha açıklayabilirmisin? Şu kodları :

private sub ara_click()
Dim A, B
A = Text3
B = "gorusmekistedigikisi='" & A & "'"
Data1.Recordset.FindFirst B
If Data1.Recordset("adi") = "" Then
MsgBox ("********arama bulunamadi*********")
End If
end sub

Burda yazdığın "gorusmekistedigikisi" ve If Data1.Recordset("adi") kodlar ne anlama geliyo? Lütfen bi cevap yazsan sevinirim. İyi günler

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