Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » ADODC ile Veritabanı İşlemleri
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

App nesnesi

Yazar: dbasturk

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 10544
Yayın Tar:28.07.2008
Yazar : sahinkalem
Hit :5009

Bu Yazarın Yazıları Sadece bu yazarın makale göster
Bu Yazıyı Tavsiye Et

ADODC Kullanarak bir veritabanı uygulamasının nasıl yapıldıgını anlatacağım. Formumuza 6 Adet Textbox, 1 Adet Adodc, 1 Adet Datagrid, & Adet Label, 10 Adet Buton ekliyoruz

Önce bir Sub oluşturuyoruz. Veritabanımızdaki verileri textbox larda göstermek için kullanacağımız bu Sub oluşturmamızın amacı bi kaç yerde aynı kodları kullanacağıımız için tekrar tekrar yazmamak.

Private Sub VeriSet()
Text1 = Adodc1.Recordset.Fields(0)
Text2 = Adodc1.Recordset.Fields(1)
Text3 = Adodc1.Recordset.Fields(2)
Text4 = Adodc1.Recordset.Fields(3)
Text5 = Adodc1.Recordset.Fields(4)
Text6 = Adodc1.Recordset.Fields(5)
End Sub

formun load olayında adodc1 in veritabanı bağlantılarını yapıyoruz. ConnectinString i ve RecordSource unu belirtertiyoruz. Ondan sonra kayıt sayısını kontrol ederek Datagrid ve Textbox larımızı Adodc1 e bağlıyoruz. bu işlemi doğru yaptıysanız programı çalıştırabilirsiniz. Program çalıştıgında verilerinizin Datagrid ve textbox larda görunuyor olması gerekmektedır

Private Sub Form_Load()
On Error Resume Next
Adodc1.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & App.Path & "\Adodc.mdb"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from tablo ORDER BY ID"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount <> 0 Then
VeriSet
Set DataGrid1.DataSource = Adodc1
End If
DataGrid1.Refresh
End Sub

Şimdi kayıtlar arasında dolaşmak için gerekli kodları yazıyoruz

İlk Kayıta gitmek için
Private Sub Command1_Click()
On Error Resume Next
Adodc1.Recordset.MoveFirst
VeriSet
End Sub

Önceki kayıt. Önceki ve sonrakı kayıtlara giderken ilk ve son kayıt olup olmadıgını kontrol etmemiz gerekir. Bu kontrolleri yapmazsak hata ile karşılaşırız
Private Sub Command2_Click()
On Error Resume Next
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MovePrevious
MsgBox "İLK KAYITDASINIZ"
End If
VeriSet
End Sub

Sonraki Kayıt
Private Sub Command3_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
MsgBox "SON KAYITDASINIZ"
End If
VeriSet
End Sub

Son Kayıt
Private Sub Command4_Click()
Adodc1.Recordset.MoveLast
VeriSet
End Sub

Programı Kapat
Private Sub Command10_Click()
End
End Sub

Bul komutu. Find komutu ile arama yapıyoruz. Ben aramayı ID alanına göre yaptırdım. Inputbox kullanarak kullanıcının yazacağı ID nolu kayıtı buluyoruz
Private Sub Command5_Click()
On Error Resume Next
Adodc1.Refresh
Dim bul As String
bul = InputBox("Kişi ID yazınız")
If Trim(bul) <> "" Then
bul = "ID='" + bul + "'"
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find bul
VeriSet
End If
End Sub

Yenı kayıt ekleme. Recorset teki alanları textbox lara eşitleyerek yenı kayıt ekliyoruz. Adodc ve Datagrid i refresh ederek yenı eklenen kayıtı programı kapatıp açmadan gridde görmemızı sağlıyoruz
Private Sub Command6_Click()
On Error Resume Next
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0) = Text1
Adodc1.Recordset.Fields(1) = Text2
Adodc1.Recordset.Fields(2) = Text3
Adodc1.Recordset.Fields(3) = Text4
Adodc1.Recordset.Fields(4) = Text5
Adodc1.Recordset.Fields(5) = Text6
Adodc1.Recordset.Update
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub

Silme işlemi. Delete komutu ile o anda bulunulan aktif kayıt silinir. hata vermemesi içinde bir onceki kayıta donmesini sağlıyoruz
Private Sub Command7_Click()
If Adodc1.Recordset.RecordCount <> 0 Then
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
Adodc1.Recordset.MovePrevious
VeriSet
End If
End Sub

Kayıt Guncelleme işlemi. Kayıt eklemek ile arasındaki tek fark kayıt ekleme de addnew komutu kullanrken güncelleme işleminde sadece Update komutu kullanmamız. Update komutunu yaptıgımız işlemlerde kullanmadıgımız takdirde veritabanında işlem geçekleşmez.
Private Sub Command8_Click()
On Error Resume Next
Adodc1.Refresh
Adodc1.Recordset.Fields(0) = Text1
Adodc1.Recordset.Fields(1) = Text2
Adodc1.Recordset.Fields(2) = Text3
Adodc1.Recordset.Fields(3) = Text4
Adodc1.Recordset.Fields(4) = Text5
Adodc1.Recordset.Fields(5) = Text6
Adodc1.Recordset.Update
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub

Yeni kayıt ekleyeceğimiz zaman textbox ları tek tek temizlemekle uğraşmamak için textbox ları temizliyoruz. Bu işlem sırasında yenı kayıtın Id alanının değerini bilmek için text1 e kayıtsayısının bir fazlasını yazdırıyoruz
Private Sub Command9_Click()
Text1 = Adodc1.Recordset.RecordCount + 1
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
End Sub

Makalede kaba taslak Adodc ile temel veritabanı işlemlerinin nasıl yapıldıgını anlatmaya çalıştım. Sanırım atladıgım bir nokta kalmadı. Umarım işinizi görür

http://rapidshare.de/files/40099578/ADODC_Kullan_m_.rar.html

bu adresten programı indirebilirsiniz




Yorumlar, eklemeler ve düşünceler
        Gayet açıklayıcı hoş bir makale..

   fermatt, 04.08.2008 23:52
   Ellerine sağlık gayet güzel bir anlatım.Teşşekkürler

   shadoww1985, 18.06.2010 12:46
   indirilemiyor bu

   volkantr, 12.05.2011 18:11
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin