- ADO

Yeni Başlıyanlar İçin Güzel Bir Örnek (ADO)
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub cmdgeri_Click()
rs.MovePrevious
If rs.BOF = True Then
    rs.MoveFirst
End If
doldur
End Sub

Private Sub cmdileri_Click()
    rs.MoveNext
        If rs.EOF = True Then
            rs.MovePrevious
        End If
    doldur
End Sub

Private Sub cmdilkkayit_Click()
rs.MoveFirst
    If rs.BOF = True Then
        rs.MoveFirst
    End If
doldur
End Sub

Private Sub cmdkayit_Click()
If txtadi.Text <> "" And txtsadi.Text <> "" And txtdtarihi.Text <> "" And txtdyeri.Text <> "" Then
    rs.AddNew
        rs.Fields(1) = txtadi.Text
        rs.Fields(2) = txtsadi.Text
        rs.Fields(3) = txtdtarihi.Text
        rs.Fields(4) = txtdyeri.Text
    rs.Update
    EnbF
End If
End Sub

Private Sub cmdsil_Click()
Dim cevap
cevap = MsgBox("Slmek Istediginizden Eminmisiniz", vbCritical + vbDefaultButton2 + vbYesNo)
If cevap = vbYes Then
    rs.Delete
    rs.MoveNext
    doldur
    If BOF = True Then
        rs.MoveFirst
    End If
End If
End Sub

Private Sub cmdsonkayit_Click()
rs.MoveLast
    If rs.EOF = True Then
        rs.MoveLast
    End If
doldur
End Sub

Private Sub cmdyeni_Click()
txtid.Text = ""
txtadi.Text = ""
txtsadi.Text = ""
txtdtarihi = ""
txtdyeri.Text = ""
EnbT
End Sub

Private Sub Form_Load()
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "vt1.mdb"
    conn.CursorLocation = adUseServer
Set rs = New ADODB.Recordset
    rs.Open ("Select * from Tablo1"), conn, adOpenDynamic, adLockOptimistic
    rs.MoveFirst
doldur
End Sub

Private Sub doldur()
    txtid.Text = rs.Fields(0)
    txtadi.Text = rs.Fields(1)
    txtsadi.Text = rs.Fields(2)
    txtdtarihi.Text = rs.Fields(3)
    txtdyeri.Text = rs.Fields(4)
End Sub

Private Sub EnbT()
    txtadi.Enabled = True
    txtsadi.Enabled = True
    txtdtarihi.Enabled = True
    txtdyeri.Enabled = True
End Sub

Private Sub EnbF()
    txtadi.Enabled = False
    txtsadi.Enabled = False
    txtdtarihi.Enabled = False
    txtdyeri.Enabled = False
End Sub

Yazar: Turk_Ajan