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.
Hit: 2888
Yazar: Helyum