ADO-kod ile veri tabanı yönetimi

[nomad]

ADO - Kod ile Veri Tabanı Yönetimi

(General)(Declaration)
Dim Baglanti As Connection
Dim KayitSet As Recordset

Private Sub veri_set() ‘ Tekrar eden tanımlama için
Text1.Text = KayitSet![sicil_no] ‘ ortak kod
Text2.Text = KayitSet![ad]
Text3.Text = KayitSet![soyad]
Text4.Text = KayitSet![adres]
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("Aranan kişinin sicil numarasını giriniz :", _
"Sicil Numarası İle Arama")
yeni_k_s.Open "Select * from kisiler where sicil_no=" & _
Val(ara_sicil_no), Baglanti, adOpenKeyset, adLockOptimistic
If yeni_k_s.RecordCount <> 0 Then
Text1.Text = yeni_k_s![sicil_no]
Text2.Text = yeni_k_s![ad]
Text3.Text = yeni_k_s![soyad]
Text4.Text = yeni_k_s![adres]
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![sicil_no] = Text1.Text
yeni_k_s![ad] = Text2.Text
yeni_k_s![soyad] = Text3.Text
yeni_k_s![adres] = 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.

[TAME®]

tşk ederim çok güzel

[quilin]

Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst 'ilk kayıt
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.MoveLast 'önceki kayıt
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.MoveNext 'sonraki kayıt
End Sub

Private Sub Command4_Click()
Adodc1.Recordset.MovePrevious 'son kayıt
End Sub

Private Sub Command5_Click()
Adodc1.Recordset.AddNew 'ekle
End Sub

Private Sub Command6_Click()
Adodc1.Recordset.Save 'kaydet
End Sub

Private Sub Command7_Click()
Adodc1.Recordset.Delete 'sil
Adodc1.Recordset.MovePrevious 'son kayda gel
End Sub


Teşekkürler.