Anasayfa > Kodlar > VB6 ile Ado bağlantıları

VB6 ile Ado bağlantıları


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

  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: