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 hazır kodlar » VB'de acces ile DataReport kullanımı
Ü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

Arama Tarama Algoritması

Yazar: memocan
acemilere yönelik bir programdır


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 № : 5243
Yayın Tar:05.12.2005
Yazar : DarkLucK
Hit :4541

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

Visual basicte acces ile Datareport kullanımı dökümanlar ve örnekler arasında pek rastlayamadım eklemek istedim. Umarım işinize yarar.
Öncelikle bir access veri tabanı yaratın adını Test1 koyun. içine tablo1 olarak bir tablo açın ve isim, adress, yas diye alanlar oluşturun.


Veritabanımızı yarttıktan sonra VB'de bir proje açın ve bu projeye birde DataReport ekleyin. Formumuza koyacaklarımız, iki adet buton (Command1, command2), bir tane combo (combo1). Datareportumuza koyacaklarımız üç adet layer(Layer1, Layer2, Layer3). Tüm bunları hazırladıysak geçelim kodumuza.


Formumuzun declarations bölümünden itibaren kodları kopyalayın.

Option Explicit
Private Sub Command1_Click()
Dim Db As New ADODB.Connection
Dim Rs As New ADODB.Recordset

Dim strPath As String

strPath = App.Path & "    est1.mdb"


Db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strPath

Db.Open


Rs.ActiveConnection = Db

Rs.Open Combo1.Text, Db, adOpenKeyset, adLockOptimistic, adCmdTableDirect

With DataReport1.Sections("Section1").Controls
.Item("text1").DataField = Rs("isim").Name
.Item("text2").DataField = Rs("Adres").Name
.Item("text3").DataField = Rs("yas").Name
End With

With DataReport1.Sections("Section2").Controls
.Item("Label2").Caption = "İsim"
.Item("Label3").Caption = "Adres"
.Item("Label4").Caption = "Yaş"
End With

With DataReport1.Sections("Section4").Controls
.Item("Label1").Caption = "Adres Defterim"
End With

Set DataReport1.DataSource = Rs

DataReport1.Show

End Sub

Private Sub Command2_Click()
Unload Form1
End

End Sub


Umarım yeterince açık anlatmışımdır ve işinize yarayacaktır umarım. Herkese kolay gesin.






Yorumlar, eklemeler ve düşünceler
        çok süper yapana helal olsun

   ugresra, 16.04.2007 22:18
   havadan yorum yzma :) kod eksik.

bu kod hangi tablodan veri alacağını bilmiyor.

combo1. eklemiş ama combo1 in içine veri nerden nasıl geliyor yazılmamış.

ayrıca 3 label demiş bırakmış. labellerin düzenlenmesi hakkındada biraz bilgi verebilirdi. hiç bilmeyen biri için.

yinede anlayanlara ornek teşkil edebilecek bir kod

kızma . eksiklerden dolayı bir öz eleştiri sadece.

öğrenemye çalışanlar kodlardaki eksikleri kavrayamıyor ve çuvallıyor.

   askportal, 24.11.2007 17:33
   madem taş attık ben ekleyeyim :)

labelleri datareport üzerinden sağ tıklayarak insert kontorlden ekleyebilirsiniz. tabi bu işlemi detail sectionunda yapın. digeri sayfanın başlıgı sonu veri uzuyorsa sayfa sayısı vs için.

recordset hangi tablodan veri çekeceğini ( veya biraz daha geliştirerek sql sorgusunu ) combobox tan alarak buraya gonderiyor. combonun kodlarınıda buna göre yazarsınız.

sürçü lisan ettiysek affola

   askportal, 24.11.2007 17:38
   fazla dikkat etmeden yazmışım

kodlarda textboxlarda var. onlarda data reporta eklenmesi lazım. section 1 e

verilerin gosterileceği yer yani. onusa section 1 de sağ tıklayıp label eklediğiniz yerden ekleyebilirsiniz

ben en iyisi bu kodu proje şeklinde atayım siteye . çünkü bunu bu şekilde deneyen ve datareport ogrenmeye çalışan biri vazgeçer. bu kodu hayatta çalıştıramaz. eksik çok

   askportal, 24.11.2007 18:07
   arkdaşım bunu sen yazmamışsın kopyala yağıştır yapmışsın bir çok forumda bunu aynısı var
bari yazdım falan demede milleti kandırma

   ademors27, 14.08.2008 17:30
© 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