Final Soruları Visual Basic (Mehmet Erdoğan Paylaşımıyla)

[berkan sarac]

Veri tabanı oluşturma
Add ins/Visual Data Manager/New/Microsoft Access 7,0'ı tıkladıktan
sonra Database Window/Sağ tıkla/New Table. Tablo adı gir. Add
File(alan oluşturma) Build tablo

Veri tabanı bağlama
Sayfamza Data objesi ekliyoruz. Properties ten Dataname
belirliyoruz.Record Seurce den tabloyu seçiyoruz. Textboxları seçip
Datasource den Data1 i seçiyoruz. Data Faild den ADSA AD SOYADSA
SOYAD SEÇİYORUZ.

Kaydet butonu
Private Sub Kaydet_click()
Alanlar.ad=Gırıs.ad
Alanlar.soyad=Gırıs.soyad
Alanlar.adres=Giris.adres
Cevap=Msgbox("Bu kayıt dosyaya yazılsın mı?",4)
İf cevap=6 Then
Put#1,kayıtno,alanlar
Giris.ad=" "
Giris.soyad=" "
Giris.adres=" "
Giris.ad.SetFocus
End If
End Sub

Vazgeç butonu
Private Sub Vazgec_click()
Cevap=Msgbox("Girilecek başka değer var mı?",4)
İf cevap= 6 Then
Giris.ad=" "
Giris.soyad=" "
Giris.adres=" "
Giris.ad.SetFocus
Else
End
End if
End sub
Çıkış butonu
Private Sub Cıkıs_click()
End
End sub


Command1= Kaydet
Command2=Vazgeç
Command3=Çıkış