en iyisi kendi bildiğim yoldan gitmek ve çakma raporlamaya devam etmek hem basic datareport un dan bin kat iyi form1. printform

bunu daha açık ve net anlatman mümkünmü acaba resimli olarak falan

Dataenvironment ile veritabanı bağlantısı ve Raporlama Öncelikle programımıza DataEnvironment ekliyoruz. Connection nesnesine sağ tıklayıp özelliklere tıklıyoruz gelen pencerede Microsoft Jet 4.0 OLE DB Provider'i seçip ileri düğmesine tıklıyoruz. burada veritabanımızın bulundu klasörü ve veritabanın adını uzantısı ile yazıyoruz ve Bağlantıyı Sına düğmesine tıklıyoruz. Sınama başarılı oldu mesajı gelirse bağlantı tamam demektir. Eğer veritabanı şifreli ise sekmesini seçip Jet OLEDBatabase Password 'ü çift tıklayarak gelen bölüme veritabanı şifresini yazıp tekrar bağlantıyı sınıyoruz. Ve bağlantıyı tamamlıyoruz. Şimdi Connection nesnesi üzerinde sağ tıklayıp Add Command 'a tıklayıp yeni Command oluşturuyoruz. Command1 üzerinde sağ tıklayıp özellikleri açıyoruz. Burada Command1 nesnesinin ismini değiştirebiliriz. Connection bölümünde veritabanı bağlantısı yaptığımız Connection nesnesini seçiyoruz. Database Object seçeneğinden Table yi seçip alt kısmında Object Name den veritabanı içindeki tablomuzu seçiyoruz. Advanced sekmesini tıklayıp buradan Lock Type bölümünden 3-Optimistic seçiyoruzki program içerisinde bilgileri silip ekleyebilelim. değilse veritabanını salt okunur olarak açar. Buradanda Tamamı tıklayarak Data Environmet teki işimizi bitiriyoruz. Rapor kısmını biraz kısa anlatacam. Bir rapor oluşturup bunu DataSource olarak DataEnvironment' i seçiyoruz DataMember olarakta Command1 nesnesini seçiyoruz. ve Dataenvironment teki Command1 nesnesini fare ile raporumuzun içine sürükleyip bırakıyoruz. Raporun tasarımı tamamen size kalmış birşey. ŞİMDİ SIRA KODLARDA Sorgulamak için: Private Sub Command1_Click isim = InputBox If isim = "" Then Exit Sub With DataEnvironment1 'önce eski sorgulamayı iptal ediyoruz. rsCommand1. Filter = "id <> 0" 'ismi, isim bölümündeki isimlerin içinde aramak için 01. rsCommand1. Filter = "isim Like '%" & isim & "%' " 'ismi, isim bölümündeki isimlerin başında aramak için 02. rsCommand1. Filter = "isim Like '" & isim & "%' " 'ismi isim bölümündeki isimlerin tamamında aramak için 03. rsCommand1. Filter = "isim = '" & isim & "' " 'Alfabetik sıralamak için A > Z. rsCommand1. Sort = "isim" 'Alfabetik sıralamak için Z > A. rsCommand1. Sort = "isim desc" DataReport1. Show End With End Sub SİLMEK İÇİN : Private Sub Command2_Click kayitno = InputBox If kayitno = "" Then Exit Sub With DataEnvironment1 'önce eski sorgulamayı iptal ediyoruz. rsCommand1. Filter = "id <> 0" 'sonra kayıt numarasından sorguluyoz. rsCommand1. Filter = "id = " & kayitno & " " If. rsCommand1. RecordCount > 0 Then. rsCommand1. Delete End With End Sub Bu Kadar. Kolay Gelsin.