- Yasaklandı
- #1
Formumuzun General Declaracition kısmına aşağıdaki kodları yazalım.
Visual Basic:
Dim Dosya As Database
Dim Tablo As Recordset
Dim Sorgu As QueryDefDaha sonra önceden oluşturduğum personel.mdb'ye ulaşmak için formuma Text ve Labeller koydum.Daha sonra Form Click olayına aşağıdaki kodu yazdım.
Visual Basic:
Set Dosya = OpenDataBase("D:\personel.mdb")
Set Sorgu = Dosya.CreateQueryDef("Sorgu", "SELECT * FROM personel;")
Set Tablo = Dosya.openRecordSet("Sorgu")
Form1.Text1 = Tablo.Fields("Personelin Adı")
Form1.Text2 = Tablo.Fields("Personelin Soyadı")
Form1.Text3 = Tablo.Fields("Personel Adresi")Data Manager penceresinde daha önceden hazırlamış olduğunuz bir sorgunun üzerine mouse'ın sağ tuşu ile tıklama yaparsanız sorgu ile ilgili kısayol menüsü gelir.Kısayol menüsündeki Open komutu sorguyu açar,Delete komutu ile sorgu silinir,Rename komutu ile de sorgunun adını değiştirebilirsiniz.Sorguya ait kısayol menüsünden Design komutunu verirseniz sorgunun hazırlanması sırasında kullanılan ve SQL dilinde yazılmış olan program satırları Visual Data Manager penceresinin sağ tarafındaki SQL Statement penceresinde yazılır.Design komutu verildikten sonra SQL Statement kısmına
Visual Basic:
SELECT * FROM personeller WHERE Personelin ADI ="Bahadır" yazınız.Bu sırada Execute tuşuna basarak sorguda yaptığınız değişikliğin etkisini görürsünüz.
Şimdi Formumuzun Load kısmına aşağıdaki kodu yazalım.
Şimdi Formumuzun Load kısmına aşağıdaki kodu yazalım.
Visual Basic:
Set Dosya = OpenDataBase("D:\personel.mdb")
Set Tablo = Dosya.openRecordSet("Sorgu")
Form1.Text1 = Tablo.Fields("Personelin Adı")
Form1.Text2 = Tablo.Fields("Personelin Soyadı")
Form1.Text3 = Tablo.Fields("Personel Adresi")kodunu yazınız.Daha sonra Formumuza buton yerleştirin .Captionunu Sonraki Kayıt olarak değiştirin ve aşağıdaki kodu yazınız.
Visual Basic:
Tablo.MoveNext
Form1.Text1 = Tablo.Fields("Personelin Adı")
Form1.Text2 = Tablo.Fields("Personelin Soyadı")
Form1.Text3 = Tablo.Fields("Personel Adresi")Formumuza 2.buton yerleştiriniz ve Caption'unu Kayıt Sil yapınız.Daha sonra Butonun Click olayına aşağıdaki kodu yazınız.
Visual Basic:
SQL$="DELETE FROM Personel WHERE Personel Adı='Bahadır';"
Dosya.Execute SQL$
