Kodlarla Database oluşturmak ve varolan bir database'e yeni alan eklemek 'Project/Reference menüsünden Microsoft DAO 3.61 Library i _ ekle ve aşağıdaki kodları kullan. Bir tane de Command button ekleyin... kodlarda şu şekilde; Private Sub Form_Load Dim NewDB As Database Set NewDB = CreateDatabase("db1. mdb", dbLangGeneral, dbVersion70) Dim NewTbl As TableDef Set NewTbl = NewDB. CreateTableDef("Tablo1") Dim NewField As Field Set NewField = NewTbl. CreateField("alan1", dbText, 25) NewField. Attributes = dbRequired ' bu alanı gerekli gör NewTbl. Fields. Append NewField NewDB. TableDefs. Append NewTbl End Sub Private Sub Command1_Click Dim db As Database Dim tbl As TableDef Dim alan As Field Set db = OpenDatabase("db1. mdb", dbOpenTable) Set tbl = db. TableDefs("Tablo1") Set alan = tbl. CreateField("alan2", dbText, 25) alan. Attributes = dbRequired ' bu alanı gerekli gör tbl. Fields. Append alan End Sub Parabol denklemi ve özelliklerini bulma girilen ikinci derece denklemin köklerini, fonksiyonun tepe noktasını, tanım ve değer kümesinin bulunması için hazırlanmş basit ama çok kullanışlı bir uygulama Dim a Dim b Dim c Dim del Dim x1 Dim x2 Dim range Dim dela Private Sub Command1_Click a = Val(Text1. Text) b = Val(Text2. Text) c = Val(Text3. Text) del = b b - (4 a c) ' If del >= 0 Then x1 = Round((-b + Round(Sqr , 3)) / Abs(2 a), 4) x2 = Round((-b - Round(Sqr , 3)) / Abs(2 a), 4) Label4. Caption = "Kökler = " & x1 & " , " & x2 Else dela = Abs x1 = Round(-b / Abs(2 a), 4) & "+" & Round(Round(Sqr , 4) / Abs(2 a), 4) & "i" x2 = Round(-b / Abs(2 a), 4) & "-" & Round(Round(Sqr , 4) / Abs(2 a), 4) & "i" Label4. Caption = "Kökler = " & x1 & " , " & x2 End If ' Label5. Caption = "f Vertex = (" & Round(-b / (2 a), 4) & " , " & Round(-del / (4 a), 4) & ")" ' Label6. Caption = "f Simetri ekseni = " & -b / 2 a ' Label7. Caption = "f Tanım kümesi = R" ' If a > 0 Then range = "( + sonsuz, " & Round(-del / (4 a), 4) & " ]" Else range = "[ " & Round(-del / (4 a), 4) & " , - sonsuz)" End If Label8. Caption = "f Değer kümesi = " & range End Sub Private Sub Label7_Click End Sub Sayı Tabanı girdiğiniz onluk tabandaki sayıyı istediğin tabana çeviren proğram. Option Explicit Dim isaret As String Dim taban As Byte ' Private Sub Command1_Click If isaret <> "rakam_girilmedi" Then döndür End If End Sub ' Public Function cevir As String If SAYI = 10 Then cevir = "A" If SAYI = 11 Then cevir = "B" If SAYI = 12 Then cevir = "C" If SAYI = 13 Then cevir = "D" If SAYI = 14 Then cevir = "E" If SAYI = 15 Then cevir = "F" End Function ' Private Sub Form_Load taban = 2 End Sub ' Private Sub mnuÇıkış_Click End End Sub ' Private Sub Option1_Click taban = 2 End Sub ' Private Sub Option2_Click taban = 16 End Sub ' Private Sub Option3_Click taban = 10 End Sub ' Private Sub Option4_Click taban = 8 End Sub ' Private Sub döndür Dim c As Integer Dim A As Byte Dim kalan(20) As Integer Dim sonuc(20) As Integer If Text1 = "" Then MsgBox "sayı girmeyi unuttunuz..." ElseIf Text1 <> "" Then Text3 = "" A = 1 sonuc = Text1 Do A = A + 1 sonuc = sonuc(A - 1) \\ taban kalan = sonuc(A - 1) Mod taban Loop Until sonuc + 1 < taban If taban > sonuc Then A = A + 1 kalan = sonuc(A - 1) Mod taban End If For c = A To 2 Step -1 Text3 = Text3 + IIf(kalan > 9, cevir(kalan , Str(kalan Next c End If End Sub ' Private Sub Text1_Change If isaret = "rakam_girilmedi" Then Text1. Text = "" End If End Sub ' Private Sub Text1_KeyPress If (((KeyAscii < 48) Or (KeyAscii > 57)) And (KeyAscii <> 8) And (KeyAscii <> 13)) Then MsgBox "rakam girmelisiniz", 16, "UYARI" If KeyAscii = 13 Then If isaret <> "rakam_girilmedi" Then döndür End If End If isaret = "rakam_girilmedi" Else isaret = "rakam_girildi" End If End Sub çalıntııııııı

ADO - Kod ile Veri Tabanı Yönetimi Dim Baglanti As Connection Dim KayitSet As Recordset Private Sub veri_set ' Tekrar eden tanımlama için Text1. Text = KayitSet! ' ortak kod Text2. Text = KayitSet! Text3. Text = KayitSet! Text4. Text = KayitSet! End Sub Private Sub ilk_okuma ' Ortak kod Set KayitSet = New Recordset ' Kayıt seti tanımlanıyor KayitSet. Open "Select from kisiler", Baglanti, adOpenKeyset, adLockOptimistic If KayitSet. RecordCount <> 0 Then KayitSet. Fields. Refresh veri_set End If End Sub Private Sub Form_Load Set Baglanti = New Connection ' Veri tabanının tanıtımı Baglanti. Open "Provider=Microsoft. jet. oledb.4.0; Data Source = personel. mdb" ilk_okuma End Sub Private Sub Command4_Click ' İlk kayıt On Error Resume Next KayitSet. MoveFirst veri_set End Sub Private Sub Command2_Click ' Önceki kayıt On Error GoTo yenihata KayitSet. MovePrevious veri_set Exit Sub yenihata: KayitSet. MoveFirst End Sub Private Sub Command3_Click ' Son Kayıt On Error Resume Next KayitSet. MoveLast veri_set End Sub Private Sub Command1_Click ' Sonraki kayıt On Error GoTo yenihata KayitSet. MoveNext veri_set Exit Sub yenihata: KayitSet. MoveLast End Sub Private Sub Command6_Click ' Arama On Error Resume Next Dim ara_sicil_no As Double ' Arama için yeni kayıt seti Dim yeni_k_s As New Recordset ara_sicil_no = InputBox yeni_k_s. Open "Select from kisiler where sicil_no=" & _ Val , Baglanti, adOpenKeyset, adLockOptimistic If yeni_k_s. RecordCount <> 0 Then Text1. Text = yeni_k_s! Text2. Text = yeni_k_s! Text3. Text = yeni_k_s! Text4. Text = yeni_k_s! yeni_k_s. Close Else MsgBox "Kayıt Bulunamadı", vbCritical, "Arama" End If End Sub Private Sub Command7_Click ' Kayıt ekleme If Command7. Caption = "Ekle" Then ' başlığa göre işlem seçimi Text1. Text = "" Text2. Text = "" Text3. Text = "" Text4. Text = "" Command7. Caption = "Kaydet" ' Başlık değiştirme Else Dim yeni_k_s As New Recordset yeni_k_s. Open "Select from kisiler", Baglanti, _ adOpenKeyset, adLockOptimistic If yeni_k_s. RecordCount <> 0 Then yeni_k_s. AddNew yeni_k_s! = Text1. Text yeni_k_s! = Text2. Text yeni_k_s! = Text3. Text yeni_k_s! = Text4. Text yeni_k_s. Update yeni_k_s. Close End If ilk_okuma Command7. Caption = "Ekle" End If End Sub Private Sub Command5_Click ' Kayıt silme On Error Resume Next Dim yeni_k_s As New Recordset ' Kayıt silme için kayıt seti yeni_k_s. Open "Select from kisiler where sicil_no=" & Text1. Text, _ Baglanti, adOpenKeyset, adLockOptimistic If yeni_k_s. RecordCount <> 0 Then yeni_k_s. Delete yeni_k_s. Close End If ilk_okuma End Sub Private Sub Command8_Click Close All ' Açık olan herşeyi kapat End ' Programdan çık End Sub Programın kodlanmasına başlamadan önce Project > Reference mönüsünden "Microsoft ActiveX Data Object 2.5 Library" referanslar arasına eklenir. Kod ile Veri Tabanı Oluşturma Table : Kullanılan veritabanı üzerindeki bir tabloyu belirtir. Dynaset : Kullanılan veritabanı üzerinde yerel olarak var olan veya bu veritabanına bağlı olan tablolar ile bir sorgu sonucunda oluşturulan tabloları da temsil edebilir. Snapshot : Yaratıldığı anda ilişkilendirildiği verilerin sabit bir kopyasını barındırır. Jet veritabanı motoru tarafından kullanılan snapshot yapısında değişiklik yapılamaz. Forward-only : Forward-scrolling snapshot veya forward-only snapshot olarak adlandırıldığı da olur. Snapshot yapısının sağladığı olanakların bir alt kümesini sunar. Dynamic : Bir veya birden fazla tabloyu içeren bir sorgu sonucunu tutmak için kullanılır. Bu yapıda ekleme, silme değiştirme gibi özellikler de sağlanır. Microsoft Dao 2.5/3.5 Compatibility Library referanslara eklenir. Dim Yeni_Dosya As Database ' Tanımlamalar Dim Yeni_Tablo As New TableDef Dim Yeni_Index As New Index Dim Yeni_alan1 As New Field Dim Yeni_alan2 As New Field Dim Yeni_alan3 As New Field Dim Yeni_alan4 As New Field ' Veri tabanı oluşturuluyor Set Yeni_Dosya = CreateDatabase ' Tablo oluşturmak Set Yeni_Tablo = Yeni_Dosya. CreateTableDef ' Tablo alanları oluşturuyor Set Yeni_alan1 = Yeni_Tablo. CreateField("Adi", dbText, 20) Yeni_Tablo. Fields. Append Yeni_alan1 ' Alan tabloya ekleniyor Set Yeni_alan2 = Yeni_Tablo. CreateField("Soyadi", dbText, 20) Yeni_Tablo. Fields. Append Yeni_alan2 Set Yeni_alan3 = Yeni_Tablo. CreateField Yeni_Tablo. Fields. Append Yeni_alan3 Set Yeni_alan4 = Yeni_Tablo. CreateField("Adres", dbText, 100) Yeni_Tablo. Fields. Append Yeni_alan4 ' Index oluşturuluyor Yeni_Index. Name = "SicilAra" Yeni_Index. Unique = True Yeni_Index. Primary = True Yeni_Index. Fields = "Sicilno" Yeni_Tablo. Indexes. Append Yeni_Index ' Index tabloya ekleniyor Yeni_Dosya. TableDefs. Append Yeni_Tablo ' Tablo veri tabanına ekleniyor Visual Basic IDE Yapısı Menu Bar : VB program mönüsü Tool Bar : Mönü kısayol tuşları Project Explorer : Projede yer alan form, module gibi elemanları listeler Properties Window : Kontrol ve formların özelliklerini gösterir Form Layout Window : Formun ekran üzerinde bulunduğu yeri gösterir ToolBox : Arayüz tasarımında kullanılanılabilecek kontroller Form Desinger : Projenin ara yüzünün tasarlandığı pencere Object Browser : VB kütüphanesinde kullanılan tip ve değişkenleri gösterir Code Window : Programın kodlamasının yapılacağı editör