link ölü tazelermisiniz? Red

Önceden de verilmiştir vb ile veritabanına kayıt yapma vs... şeyler ama bunun bi çok yolu var bende kendi kullandığım yolu ufak bi örnekle göstermek istedim. Hemen başlıcak olursak önce vb de yeni bi proje açıp aşağıdaki formu tasarlıyoruz. textler yukarıdan aşağıya text1 text2 text3 adında combonun adı combo1 butonlarda gene yukarıdan aşağıya command1 command2 command3 commadn4 adıyla formda yer alıyo. Öncelik hangi yöntemi kullanacağımızı anlayıtım. vb de genelde en azından benim gördüğüm kadarıyla data nesnesiyle bu işlemler yapılıyo. ama çok eksik yanı var örneğin programı başla bir bilgisayar götürdüğünüzde aynı yol üzerinde veritabanını bulamayınca kitlenio hata veriyo. Biz bu yüzden ADO kullanarak yapıcaz. Kodlamaya geçmeden önce Project menüsünden references e tıklıyoruz. listeden Microsoft ActiveX Data Object 2.6 (yada 2.7 farketmez) library i seçiyoruz. Neden çünkü ADO kullanmamız için onu eklememiz lazım. Birde veritabanımızı oluşturmamış lazım access i açıp tblOgr adında bir tablo ve OgrNo , OgrAd, OgrSoyad, OgrCinsiyet diye 4 alan yaratıyoruz. ve projeyi kaydeceğimiz yere kaydediyoruz. kodlamaya gelince aşağıdaki kodları direk yapıştırcaksınız. ama ben yanlarına açıklamalarınıda yazıcam için sizimde tek tek yazmanızı tavsiye ediyorum. Kod: Private Sub Command1_Click Ogr_Kayit ' Kaydet Butonuna Basınca Ogr_Kaydet alt programını çağır End Sub Sub Ogr_Kayit Set cnn = New ADODB. Connection ' Connection nesnesi oluşturuyoruz yani bağlantı Set rst = New ADODB. Recordset ' Recordset Nesnesi oluşturuyoz yani kayıt seti cnn. Open "Driver= ; DBQ=" & App. Path & "\db. mdb" ' cnn. open ile bağlantımızı açıyoruz. DBQ ise veritabanının yolu app. path & "\db. mdb" ile aktif dizindeki yani programı kaydettiğimiz yerdeki db. mdb dosyasının yolu oluyor. rst. Open "tblOgr", cnn, 1, 3 'rst. open ile kayıt setimizi açıyoruz. tblOgr veritabanındaki açılcak olan tablonun adı cnn hangi bağlantı olduğu 1 ve 3 ise hem okuma hem yazma modunda açıldığı anlamına geliyo. rst. AddNew ' rst. Adnew ile yeni kayıt oluşturuyoruz. rst = Text1. Text ' OgrNo alanına text i yazdırıyoruz rst = Text2. Text rst = Text3. Text rst = Combo1. Text rst. Update ' kayıtın yapılması için update ediyoruz rst. Close ' recordseti kapatıyoruz. cnn. Close ' bağlantıyı kapatıyoruz Set rst = Nothing ' bellekte yer kaplamasın die içini boşaltıyoruz. Set cnn = Nothing If Err = 0 Then MsgBox "Kayır Başarıyla Yapıldı!" ' eğer bi hata meydana gelmediyse başarıyla kayıt yapıldı die mesaj veriyor. End Sub Sub Ogr_Sil Set cnn = New ADODB. Connection Set rst = New ADODB. Recordset cnn. Open "Driver= ; DBQ=" & App. Path & "\db. mdb" rst. Open "Select FROM tblOgr Where OgrNo=" & Text1. Text, cnn, 1, 3 ' bu sefer direk tabloyu açmadık bi şart koyduk şartımızda tablodaki OgrNo alan adı text1 deki yazı olan kayıtları aç dedik. rst. Delete ' kayıtı sildik rst. Update ' update ettik rst. Close cnn. Close Set rst = Nothing Set cnn = Nothing If Err = 0 Then MsgBox "Kayır Başarıyla Silindi!" End Sub Sub Ogr_Bul Set cnn = New ADODB. Connection Set rst = New ADODB. Recordset aranan = InputBox ' aranacak öğrenci numarasını istiyoruz cnn. Open "Driver= ; DBQ=" & App. Path & "\db. mdb" rst. Open "Select FROM tblOgr Where OgrNo=" & aranan, cnn, 1, 3 ' yine tabloyu direk açmadık bu seferki sartımız ise OgrNo su aradığımız öğrenci numarası olan kayıtları buldurduk. Text1. Text = rst ' Bulunan kayıtlar textlere ve comboya yazdırılıyo. Text2. Text = rst Text3. Text = rst Combo1. Text = rst rst. Close cnn. Close Set rst = Nothing Set cnn = Nothing End Sub Private Sub Command2_Click Ogr_Bul ' Öğrenci bul alt programnı çağır End Sub Private Sub Command3_Click Ogr_Sil ' oğrenci silme alt programı cağır End Sub Private Sub Command8_Click End ' çıkış End Sub Private Sub Form_Load Combo1. AddItem "Erkek" Combo1. AddItem "Kız" End Sub Bana göre bu en açıklayıcı kullanımı yinede anlamadığınız yer olursa sorun yardım etmeye çalışırım. Bu örneği indirmek isterseniz de Burayı Tıklayın! Herkese Kolay Gelsin!

bana visual basicte yazılmıs veri tabanıyla ilgili sistem lazım ödev için otopark sistemi gibi mesela. yardımcı olabilirmisiniz?

Link Ölü Tazeleyebilecek Olan Varmı?

sAĞOL KARDEŞ... éUZERé

kardeş ben bir türlü bağlantıyı kuramıyorum database ile program arasında bir yardım edersen sevinirim. dediklerinin aynılarını yaptım. fakat ben ms office 2007 kullanıyorum. accdb şeklinde uzantım kodlardaki db. mdb'yi değiştirdim çalışmadı uzantı sorununu değiştirdim. fakat şuan da user-defined type not defined şeklinde bir hata veriyor ve Ogr_Kayit kısmını sarı blok içine alıyor -

Dostum bence DAO kontrolü daha etkili ve kolay ama tabi herkesin kolayına gelecek olan mantık farklıdır değilmi?

Teşekkür Ederim.

Niye verilmiş olan kodları göre göre daha link istiyorsunuz anlamadım gitti? Zaten konu 2006 da açılmış. Kodlar orada duruyor. Bir zahmet edin kodları geçirin kopyalayarak Kopyalamayacak kadar hazır yemek istiyorsanız orasını bilemem haylaz-

Teşekkürler Örnek İçin