5. KAYIT LİSTELEME
Gerekenler:
1 adet data1 nesnesi
1Adet DBGRİD nesnesi
Data Nesnesi:
• Database name özelliğine veri tabanın yerini
• Datasourcr kısmına isetablo ismi eklenerek eklenir.
DBGRİD Nesnesi:
• Data source kısmını data1 yatığında bağlanmış olacak
6. Kayıt silme
KAYIT SİLME KODLARI AŞAĞIDA VERİLMİŞTİR.
Private Sub Command1_Click(Index As
Integer)
Dim yanit As String
yanit = InputBox(" Bu kaydı Silmek
istiyormusunuz? (E/H)")
If yanit = "e" Or yanit = "E" Then
tablo1.Delete
MsgBox ("kayıt silindi")
End If
End Sub
7. FORM_LOAD OLAYI
AŞAĞIDA Kİ KODLAR FORMA ÇİFT TIKLANARAK EKLENMEKTEDİR
Private Sub Form_Load()
Set veritabani =
OpenDatabase("C:film_Kayıtkatalog.md
b")
Set tablo1 =
veritabani.OpenRecordset("film")
tablo1.Index = "primarykey"
Form2.Text1 = ""
Form2.Text2 = ""
Form2.Text3 = ""
Form2.Text4 = ""
Form2.Text5 = ""
End Sub
8. VERİ TABANI VE TABLOLARI
TANIMLAMA
Dim veritabani As Database
Dim tablo1 As Recordset
YUKARIDAKİ KODLAR GENEREAL DECLERATİON KISMINA
YAZILMALIDIR.
9. SON
DERSİMİZ SONA ERMİŞTİR SİTEDE VİDEOLU ANLATIMLAR VARDIR
ANLAMAYANLAR ORDAN TAKİP EDEBİLİR
TEŞEKKÜR EDERİM
