Oracle : 11g Client ve Crystal Report Kullanarak Sorgu Yöntemi İle Raporlama

Bu kisimda finish buttonuna tiklayarak sonuclandiriyoruz.

Bu kisimda sizin veritabaninzda kullandiginiz user lar gelicektir. Tablolar hangi user ile yetkilendirilmisse onu secip alanlari belirttikten sonra gerekli ayarlamalari yapiyoruz.

Vs de bos bir form olusturup crystal report viewer i ekledikten sonra kod kismina geciyoruz.

Dim objRpt As New RAPOR_ADI

        objRpt.Load(My.Computer.FileSystem.CurrentDirectory & "\Raporlar\FALAN_RPT ")

        Dim conn As New OracleConnection(ORADBA)

        conn.Open()

        Dim Ds As New DataSet1()

        Dim Query1 As String = "SELECT * FROM TABLO_ADI WHERE SUTUN=’FALAN’        Ds.Clear()

        Dim adapter As New OracleDataAdapter(Query1, conn)

        adapter.Fill(Ds, "TABLO_ADINIZ")

        If Ds.Tables(0).Rows.Count = 0 Then

            MessageBox.Show("Veri Bulunamadı", "Veri Hatası", MessageBoxButtons.OK, MessageBoxIcon.Error)

            Return

        End If

        objRpt.SetDataSource(Ds.Tables(0))

        CrystalReportViewer1.ReportSource = objRpt

        CrystalReportViewer1.LogOnInfo(0).ConnectionInfo.UserID = VERİ_TABANINA_BAGLANDIGINIZ_USER

        CrystalReportViewer1.LogOnInfo(0).ConnectionInfo.Password = VERİ_TABANINA_BAGLANDIGINIZ_PASSWORD

crystal report uzerinde gerekli stunlari yerlestirdikten sonra projeyi calistiriyoruz ve raporumuz istedigimiz gibi gorunuyor...

Önemli Not:Bu doküman Tahribat.com için Helyum tarafından yazılmıştır.Eser hakkı tahribat.com ve Helyum müstear ismini kullanan şahsa aittir.Yazılı izin alınmadan eserin başka bir sitede yayınlanması,eserin kaynak(link) verilmeden yayınlanması durumunda, 5846 sayılı Fikir ve Sanat Eserleri Kanunu madde 71 uyarınca,eseri yayınlayan kişiye karşı gerekli hukuki yollara başvurulacaktır.

Tarih:
Hit: 2888
Yazar: Helyum



Yorumlar


Siftahı yapan siz olun
Yorum yapabilmek için üye girişi yapmalısınız.