Şimdi bir vb projesinde bir database bağlantısı yapmak için references bölümünden Microsoft DAO 3.6 Object Library seçip okeyliyoruz.
VERİTABANIN AÇILMASI
Dim DTBS As Database
Dim Tablo1 As Recordset
Set DTBS = OpenDatabase("deneme.mdb")
Set Tablo1 = DTBS.OpenRecordset("Makale")
Makale yerine SQL komutlarıda yazmak mümkündür.
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 açıldıktan sonra tablo1.addnew ile database içindeki 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ı için 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 için en iyi yöntem tabii ki SQL komutudur. SQL komutu ile bir sorgu oluşturup daha sonra o kayıtı tablo1.delete ile silmek mümkün..
SQL KOMUT ÖRNEĞİ:::: "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 döngüsüyle başlatıp forma eklenecek kısımları yazdıktan sonra tablo1.movenext deyip cursorun bir sonraki satıra geçmesi sağlanır. Loop ile döngü bitirilir....
VERİTABANIN AÇILMASI
Dim DTBS As Database
Dim Tablo1 As Recordset
Set DTBS = OpenDatabase("deneme.mdb")
Set Tablo1 = DTBS.OpenRecordset("Makale")
Makale yerine SQL komutlarıda yazmak mümkündür.
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 açıldıktan sonra tablo1.addnew ile database içindeki 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ı için 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 için en iyi yöntem tabii ki SQL komutudur. SQL komutu ile bir sorgu oluşturup daha sonra o kayıtı tablo1.delete ile silmek mümkün..
SQL KOMUT ÖRNEĞİ:::: "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 döngüsüyle başlatıp forma eklenecek kısımları yazdıktan sonra tablo1.movenext deyip cursorun bir sonraki satıra geçmesi sağlanır. Loop ile döngü bitirilir....
