Şimdi bir vb projesinde bir database bağlantısı yapmak icin references bolumunden Microsoft DAO 3.6 Object Library secip okeyliyoruz.

VERİTABANIN ACILMASI

Dim DTBS As Database
Dim Tablo1 As Recordset
Set DTBS = OpenDatabase("deneme.mdb")
Set Tablo1 = DTBS.OpenRecordset("Makale")
Makale yerine SQL komutlarıda yazmak mumkundur.

VERİTABANINA YENİ KAYIT GİRMEK.
Dim DTBS As Database
Dim Tablo1 As Recordset
Set DTBS = OpenDatabase("deneme.mdb")
Set Tablo1 = DTBS.OpenRecordset("Makale")
tablo1.addnew
tablo1("tablo isimleri")=değişkenler
tablo1("Baslik")=text1.text
tablo1.update
Burada database acıldıktan sonra tablo1.addnew ile database icindeki gizili cursor yeni bir kayıt ekler ve yeni kayıtın oraya sabitlenir. Daha sonra tablo1("Baslik")=text1.text gibi değişkenler eklenir. En son olarak bu kayıtların eklenip kaydolması icin tablo1.update komutunu kullanırız...

VERİTABANINDA KAYIT SİLMEK.

Dim DTBS As Database
Dim Tablo1 As Recordset
Set DTBS = OpenDatabase("deneme.mdb")
Set Tablo1 = DTBS.OpenRecordset(SQL KOMUTU)
tablo1.delete
Silmek ve aramak icin en iyi yontem tabii ki SQL komutudur. SQL komutu ile bir sorgu oluşturup daha sonra o kayıtı tablo1.delete ile silmek mumkun..
SQL KOMUT ORNEĞİ:::: "select*from makale where Baslik="&text1.text gibi bir komut kullanabiliriz.


VERİTABANINDA KAYITLARI FORMA GETİRMEK.

Dim DTBS As Database
Dim Tablo1 As Recordset
Set DTBS = OpenDatabase("deneme.mdb")
Set Tablo1 = DTBS.OpenRecordset(SQL KOMUTU)
do until tablo1.eof
list1.additem tablo1("Baslik")
tablo1.movenext
loop
Şeklinde herbir komutu do until dongusuyle başlatıp forma eklenecek kısımları yazdıktan sonra tablo1.movenext deyip cursorun bir sonraki satıra gecmesi sağlanır. Loop ile dongu bitirilir....
__________________