Örnek Kodlar kendinize göre düzenleyiniz.

Data Bağlatısı

Private Sub Form_Load()

'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& Data Bağlantısı

Adodc1.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & App.Path & "\VeriKayit.mdb"

 Adodc1.CommandType = adCmdText

 Adodc1.RecordSource = "select * from Kasa ORDER BY ID"

 Adodc1.Refresh

 If Adodc1.Recordset.RecordCount <> 0 Then

 End If

End Sub

Kaydet Kodları

Private Sub kaydet_Click()

'&&&&&&&&&&& Kaydet

With Adodc1.Recordset

.AddNew

'.Fields(0) = id.Text

.Fields(1) = tarih.Text

.Fields(2) = aciklama.Text

.Fields(3) = gelir.Text

.Fields(4) = gider.Text

.Update

End With

Adodc1.Refresh

 Call temizle_Click

MsgBox "Kaydınız Tamamlanmıştır."

End Sub

Arama Yapma ile ilgili Kodlar

Private Sub bul_Click()

Adodc1.Refresh

 Dim bul As String

 bul = btarih.Value

 If Trim(bul) <> "" Then

 bul = "Tarih='" + bul + "'"

 Adodc1.Recordset.MoveFirst

 Adodc1.Recordset.Find bul

 Call VeriSet

 End If

End Sub

Private Sub VeriSet()

With Adodc1.Recordset

 id = .Fields(0)

 tarih = .Fields(1)

 If .Fields(2) <> "" Then aciklama = .Fields(2)

 If .Fields(3) <> "" Then gelir = .Fields(3)

 If .Fields(4) <> "" Then gider = .Fields(4)

 End With

End Sub

Düzeltme ile ilgili Kodlar

Private Sub duzelt_Click()

With Adodc1.Recordset

'.Fields(0) = id.Text

.Fields(1) = tarih.Text

.Fields(2) = aciklama.Text

.Fields(3) = gelir.Text

.Fields(4) = gider.Text

.Update

End With

Adodc1.Refresh

Form_Load

Call temizle_Click

MsgBox "Kayıtlarınız Düzeltilmiştir."

End Sub

Silme ile ilgili Kodlar

Private Sub sil_Click()

On Error Resume Next

'&&&&&&&&&&& Kayıt Silme

If Adodc1.Recordset.RecordCount <> 0 Then

 Adodc1.Recordset.Delete

 Adodc1.Recordset.Update

 Adodc1.Recordset.MovePrevious

 End If

MsgBox "Kayıdınız silinmiştir."

'&&&&&&&&&& Temizle

Call temizle_Click

End Sub

İlk Kayda Gitme

Private Sub ilkkayit_Click()

If Adodc1.Recordset.RecordCount = 0 Then Exit Sub

Adodc1.Recordset.MoveFirst

Call VeriSet

MsgBox "İlk Kayıttasınız"

End Sub

Önceki kayda gitme

Private Sub oncekikayit_Click()

If Adodc1.Recordset.RecordCount = 0 Then Exit Sub

 Adodc1.Recordset.MovePrevious

 If Adodc1.Recordset.BOF Then

 Adodc1.Recordset.MoveFirst

 MsgBox "İLK KAYITDASINIZ"

 End If

Call VeriSet

End Sub

Sonraki kayda gitme

Private Sub sonrakikayit_Click()

On Error Resume Next

If Adodc1.Recordset.RecordCount = 0 Then Exit Sub

Adodc1.Recordset.MoveNext

 If Adodc1.Recordset.EOF Then

 Adodc1.Recordset.MoveLast

 MsgBox "SON KAYITDASINIZ"

 End If

Call VeriSet

End Sub

Son kayda gitme

Private Sub sonkayit_Click()

If Adodc1.Recordset.RecordCount = 0 Then Exit Sub

Adodc1.Recordset.MoveLast

Call VeriSet

MsgBox "Son Kayıttasınız"

End Sub

Temizleme ile ilgili kodlar

Private Sub temizle_Click()

tarih = ""

aciklama = ""

gelir = ""

gider = ""

End Sub