Visual Basic Te Veri Tabanı Hazırlamak Çok Kolaydır. Şimdi Size Visualda Ve
12 Temmuz 2007
Visual basic te veri tabanı hazırlamak çok kolaydır. Şimdi size visualda veri tabanı nasıl hazırlanır onu anlatacağım. (VB6.0)
Öncelikle standar exe formunu açın.
Add-Ins / Visual Data Manager i çalıştırın.
Önünüze VisData ekranı gelicek.
Buradan File / New / Microsoft Access / Versiyon 7.0 MDB.. yi seçin
Bu veritabanını kaydetmek istediÄŸiniz konumu ve adı verip KAYDET ‘e basın.
İki ekran açılacak, bunlar Database Window ve SQL Statement.
Database Window penceresindeki Properties ‘e saÄŸ kulak ile tıklayıp , Menuden New Table yi ÅŸeçin. Sonra ekrana Table Structure isminde bir form gelicek.
Table Name ‘ e bir isim verin. Sonra Add Field ‘ e basarak Add-Field formunun ekrana gelmesini saÄŸlayın.
Eklemek istediÄŸiniz alanları buralara yazın. Ör : Name : kısmına “isim” yazıp OK ‘ a basıyoruz , ikinci alana Name : kısmına tekrar “soyisim” yazıyoruz. Bu ÅŸekilde istediÄŸimiz kadar alan tanımı yapıyoruz. En son Close ‘ye basıp formu kapıyoruz.
Bu iÅŸlemler bittikten sonra Build the table ‘ ye basılır.
Database Window penceresine bizim table nameye verdiğimiz isimde bir anahtar açılır. Bu anahtar işaretlenir.
Utility / Data Form Designer ‘ e basılıp bu ekranın çıkması saÄŸlanır.
Buradaki Form Name (w/o Extension): kısmına bir form adı yazılır.
RecordSource kısmından bizim database seçilir.
Kullanmak istediÄŸimiz alanlar saÄŸ tarafa taşınır ve Build the Form ‘ a basılır. sonra bu bütün pencereler kapatılır.
Projemize yeni bir formun eklendiÄŸini görürüz. Bu formda yarattığımız database ‘e ulaÅŸmamız için gerekli olayların otomatik bir ÅŸekilde yerleÅŸtiÄŸini görürüz.
Bu form yetersiz gelirse kendimizde buna benzer bir form yapabiliriz.
Kendimiz Bu forma benzer bir form yaratmak istersek;
Örnegimizi uygulamak için Visual Basic ile örnek olarak gelen BIBLIO.MDB adli veritabanina ihtiyacimız var. ( kendi hazırladığımız veritabanınıda kullanabiliriz )
Adim - 1 Öncelikle alet kutucugundan “veri” (Data) kontrolünü seçerek formunuzun üzerinde istediginiz büyüklüge getirin. Bu kontrolü veritabani içinde hareket etmek için kullanacagiz
Adim - 2 Data 1 kontrolünün Properties kutucugunu aktif hale getirin ve buradan Connect seçenegini Access olacak biçimde degistirin.
Adim - 3 Yine Data 1 kontrolünün Properties kutucugu aktifken, kontrolün DatabaseName seçenegini kullanarak istediginiz veritabanini seçin. Biz bu örnegimizde BIBLIO.MDB dosyasini kullanacagiz, bu yüzden seçenegi bu dosyayi görecek biçimde ayarlayin.
Eger diger programlarla iliskilerden dolayi, bu kontrole, tasarim asamasinda istediginiz veritabanini atayamiyorsaniz DatabaseName özelligini, programinizin çalisma asamasinda degistirip program çalisirken istediginiz veritabani dosyasini seçebilirsiniz.
Adim - 4 Data 1 kontrolünüzün RecordSource seçenegini, veri tabaninin istediginiz tablosuna erisim saglamak için kullanin. Eger daha önceden DatabaseName seçenegine herhangi bir veritabani dosyasi atadiysaniz. RecordSource seçenegine tikladiginizda karsiniza seçtiginiz veritabani dosyasinda kullanabileceginiz bölümler gelecektir. Biz bu örnegimizde “Titles” bölümünü kullanacagiz.
Adim - 5 Formunuzun üzerine, veritabani dosyasinda seçtiginiz alanlari görüntüleyebilmek için istediginiz sayida metin kutusu yerlestirin. Biz örnegimizde 3 farkli alan kullanacagimizdan formumuza 3 adet metin kutusu yerlestirdik. Veritabanimizi görüntülemek için kullanacaginiz kontroller metin kutulariyla sinirli degil. Resim kutularini, izgara kontrolünü, etiket kontrolünü ve bunun gibi birçok kontrolü bu is için kullanabilirsiniz.
Yerlestirdiginiz metin kutularini kullanarak veritabani dosyasinda kalici degisiklikler yapabilirsiniz.
Adim - 6 Text1 kontrolünün Özellikler kutusunu aktif hale getirerek DataSource seçenegini “Data1″i gösterecek biçimde degistirin.
Adim - 7 Metin kutularinin yanlarinda seçtiginiz alanlara uygun etiketler yerlestirin.
Adim - 8 “Text1″ metin kutusunun görüntüleyecegi veritabani alanini DataField seçenegini kullanarak degistirin. Bu islemi her bir metin kutusu için gerçeklestirin ve her birinin farkli alanlari göstermesini saglayin.
Adim - 9 Son olarak programa bir çikis tusu ekleyin ve programi çalistirin. Ok tuslarini kullanarak veritabani içinde gezinebilir, metin kutularinin alanlarini degistirerek, diger alanlardaki verileri görüntüleyebilirsiniz.
Hepinize kolay gelsin.Örnek kod ;
Private Sub Command1_Click()
Label4.Caption = “Yeni kayıt formu”
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Data1.Recordset.AddNew
End Sub
Private Sub Command10_Click()
Data1.vbDataActionFind
End Sub
Private Sub Command2_Click()
Label4.Caption = “Bilgiler kaydedildi”
Data1.Recordset.MoveLast
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
End Sub
Private Sub Command3_Click()
Command6.Enabled = True
Label4.Caption = “”
If Data1.Recordset.BOF Then
‘ MsgBox (”Ä°lk kayıttasınız.”)
Label4.Caption = “Ä°lk Kayıttasınız”
‘ Data1.Refresh
Else
Data1.Recordset.MovePrevious
End If
End Sub
Private Sub Command4_Click()
Command6.Enabled = True
Label4.Caption = “”
If Data1.Recordset.EOF Then
‘ MsgBox (”En son kayıttasınız.”)
Label4.Caption = “Son Kayıttasınız”
‘ Data1.Refresh
Else
Data1.Recordset.MoveNext
End If
End Sub
Private Sub Command5_Click()
Command6.Enabled = True
Data1.Recordset.MoveLast
Label4.Caption = “Son Kayıt”
End Sub
Private Sub Command6_Click()
‘If Text1 = “” Then
‘MsgBox (”Önce silinecek kaydı seçiniz.”)
‘Else
Data1.Recordset.Delete
Command6.Enabled = False
‘End If
Label4.Caption = “Kayıt Silindi.!”
Data1.Recordset.MoveNext
End Sub
Private Sub Command7_Click()
Command6.Enabled = True
Data1.Recordset.MoveFirst
Label4.Caption = “Ä°lk Kayıt”
End Sub
Private Sub Command8_Click()
Close
End
End Sub
Private Sub Form_Load()
End Sub
Private Sub Text1_Click()
Label4.Caption = “KiÅŸinin adı”
End Sub
Private Sub Text2_Click()
Label4.Caption = “KiÅŸinin soyadı”
End Sub
Private Sub Text3_Click()
Label4.Caption = “KiÅŸinin mesleÄŸi”
End Sub
Kategori: EÄŸitim