saoL bide suna bakar mısın? http://www.wardom.org/forum/showthread. php?t=

Ö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 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 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 '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

Visual Basic ile veritabanına ilk adımlar 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 : 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. Adim - 1 Öncelikle alet kutucugundan "veri" 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. тнєвlα¢к∂