KlavyeSende.CoM
Eylül 07, 2008, 02:07:47 ÖÖ *
Merhaba, Ziyaretçi. Lütfen giriş yapın veya üye olun.

Kullanıcı adınızı, parolanızı ve aktif kalma süresini giriniz
  KlavyeSende.Com | Artık Klavye Sende !
 
Ana Sayfa Yardım Ara Admin Admin Admin Giriş Yap Kayıt  
Sayfa: [1]
  Yazdır  
Gönderen Konu: VB de kolay rapor hazırlama  (Okunma Sayısı 66 defa)
0 Üye ve 1 Ziyaretçi konuyu incelemekte.
Ocak 22, 2007, 07:37:17 ÖS  |  Uyarı : Dikkat bu Administrator mesajıdır |
ChaR
Administrator
********

Üye Bilgileri
Üye ID: 1

Mesaj Sayısı: 2593

Nerden: Bilmem Sence Nerden ;)

Cinsiyet: Bay

Rep : 136
Offline Offline

« Not Found Keyboard »

Durumum:


Üyelik Bilgileri WWW

Resimlerin Görüntülenmesine İzin Verilmiyor
Resimleri Görebilmek İçin Üye Ol veya Giriş Yap

Gereksinimler:
1. MS Visual Basic ve
2. Crystal Report yüklü bilgisayar.

Öncelikle örnek bir veritabanı açalım MS Access olabilir
burada "tbUser" tablosu ve bu tablo içinde "Ad" ve "Soyad" alanlarını oluşturalım.
bir kaç örnek kayıt girelim.
şimdi veritabanı hazır.
VB projesi açalım. burada standart bir form açalım.
Ekle diyerek "Crystal Report 8" i seçelim karşımıza Crystal Report rapor hazırlama programı gelecek. öncelikle hazırladığımız VeriTabanı dosya yolunu gösterelim. buradan alanları işaretleyerek rapor üzerine ekleyelim. çıkan soruya TAMAM dedikten sonra karşınıza hazır bir rapor ve form içinde de yazılı kodlar gelmiş olmalı.

Eğer kodlar gelmemiş ise aşağıdaki kodları from içine yazabilirsiniz.

'************************************************
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim Report As New CrystalReport1

Set conn = New ADODB.Connection
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & "vt.mdb" 'veritabanı dosyası

Set rs = New ADODB.Recordset
sql = "SELECT * FROM tbUser"
rs.Open sql, conn, 1, 3

Report.DiscardSavedData
Report.Database.SetDataSource rs

CRViewer1.ReportSource = Report
CRViewer1.ViewReport
'************************************************
RUN edin işte size rapor.

Logged

Resimlerin Görüntülenmesine İzin Verilmiyor
Resimleri Görebilmek İçin Üye Ol veya Giriş Yap

Herkes dalgasına baksın ,
Ama benim dalgamda boğulmasın ,
Bilsin ki yüz verip adam ettiysem ,
Sıfırla çarpar , yok ederim ,
Bu saatten sonra uğraşmam ,
Dünümle ve dünümdekilerle ,
Ben yarına bakarım yanımdakilerle...
Kasım 01, 2007, 03:10:35 ÖS
anaconda_
BanneD
*
Avatar Yok

Üye Bilgileri
Üye ID: 2214

Mesaj Sayısı: 1911

Nerden: anaconda'nın yanından

Cinsiyet: Bay

Rep : 25
Offline Offline

AnaCoNDaa

Durumum:


Üyelik Bilgileri WWW


paylaşım için TşqLeR..
Logged
Sayfa: [1]
  Yazdır  
 
Gitmek istediğiniz yer:  

MySQL ile Güçlendirildi PHP ile Güçlendirildi Powered by SMF 1.1.2 | SMF © 2006, Simple Machines LLC
Seo4Smf v0.2 © Webmaster's Talks
XHTML 1.0 Geçerli! CSS Geçerli!
eXTReMe Tracker