Dostum bu işi yapacaksan Microsoft DAO Obect Library referansıyla yap Benim de en son yaptığım proje bu library sayesinde daha da güzel ve daha az karmaşık oldu Planet-source-code.com dan ara bir sürü bulursun Ama ben sabırlıyım beklerim dersen bu gün akşama doğru upload eder paylaşırım yeni bir konu açarak buraya

Kusura bakma dostum 2 gündür kafaları çekmekten siteyle bile ilgilenemedim Sana kod ile bağlanmanın mantığını vereyim. İlk önce Project/References den Microsoft Dao Object Library i seçiyoruz ve ardından nesneleri ekliyoruz formumuza İlk önce 1 adet listbox ekleyelim daha sonra tablomuzda kaç adet alan var ise o kadar textbox ekleyelim ve aşağıdaki vereceğim kodları gereken yerlere kopyalayalım. 'General Declerations!!! Private rs As Recordset Private WS As Workspace Private db As Database 'Formun loadına bunları kopyala Set WS = DBEngine. Workspaces(0) dbfile = sifre = "veritabanı şifresi" ' Eğer birşey yoksa boş bırakıyoruz "" şeklinde Set db = DBEngine. OpenDatabase Set rs = db. OpenRecordset("Tablo1", dbOpenTable) If rs. RecordCount <= 0 Then Exit Sub Else on error resume next rs. movefirst for i = 0 to rs. recordcound list1. additem rs! Alan_Adi rs. movenext next end if 'Listeye clicklendiğinde çalışacak kodlar burada... Set WS = DBEngine. Workspaces(0) dbfile = sifre = "" Set db = DBEngine. OpenDatabase Set rs = db. OpenRecordset("Select from " & "Tablo1" & " where " & "Alan_adı" & " = '" & Trim(list1. list) & "'") 'Burada dikkat edilmesi gereken şey ise Alan_adı yazılı olan yere listeyi bağladığımız alan ile aynı adı taşıması gerekiyor. Yani o alan içinde bir sql sorgusu yapıyoruz burada 'Ve sonra gene devam text1. text = rs. fields("Alan1") text2. text = rs. fields("Alan2") 'Bu kodlar ile tablodaki bütün kayıtları görme imkanın olmasıdır. 'Buraya kadarı tamam Şimdi de tablodan kayıt silme komutunu görelim rs. delete 'Bu da bu kadar 'Şimdi de tabloya yeni kayıt eklemeyi görelim rs. addnew rs. fields("Alan1") = text1. text rs. fields("Alan2") = text2. text rs. update 'Bu da bu şekilde oluyor... 'Şimdi de tablodaki verileri düzenleyelim rs. edit rs. fields("Alan1") = text1. text rs. fields("Alan2") = text2. text rs. update Evet gördüğünüz gibi bu şekilde çok kolay bir şekilde kod ile database yönetimi yapabilirsiniz Kodları şimdi kontrol etmeden direk buraya yazdım. Bir hata olacağını zannetmem ama birşey olursa siz gene bana bildirin her türlü yardıma hazırım Artık kod ile veritabanı yönetmekten bıktığım için Ezberledim desem yeridir bunları Alıntı değil alınteridir!!! turkhacking -

kardeş acelem yok pek. zaten kendimi geliştirmek için yazıcam. herhangi bir ticaret amacı yok. eğer upload edersen sevinirim. teşekkürler

halı saha için basit bir takip programı yapmak istiyorum; tarihe göre günler isim soy isim telefon ve alınan ücret şeklinde seçenekler buluacak.. yararlanabileceğim kaynak kodlar ve örnek programlar arıyorum. yardım edenlere şimdiden teşekkürler.