عرض Crystal Report من VB.NET 2005

بسم الله

علشان ما اطولش على الناس انا بصمم برنامج بالفيجوال بيسك دوت نت 2005 وقوواعد بيانات sql server 2000 وانا مبتدئ فيه والحمد لله وصلت مرحله كويسه المهم وصلت لغاية طباعة التقارير

استخدمت الكريستال ريبروت اللي بيتحمل مع الفيجوال بيسك دونت ..

استعنت بمثال لزميل لنا جزاه الله خير ولفت انتباهي حاجة ..

زميلنا في مثاله التقرير شغال وزي الفل ومفيش داتاست والا اي حاجة من دي ..

وانا لما جيت اضيف تقرير طبعا اخوانا المتمرسين يعرفوا ان او ما جيت اضيف التقرير الويزرد اشتغل على طول وبصيت لقيته لازم اكون ضايف داتا كونكشن .. روحت ضفت داتا كونكشن .. طبعا الداتا كونكشن ضافتلي داتا ست في المشروع بتاعي وانا بستخدم الكود في كل الكونكشن صراحه افضل واريح وبتدي تحكم اكتر ..

عظيم عملت التقرير وزي الفل وظبطت كل حاجة

اول حاجة مشيت على مثال زميلنا زي ما هو عامله بالظبط مع عمل بعض التعديلات البسيطه في الكود ,, والكود كالتالي ..

اولا اجراء الربط مع السيرفر والداتابيز .

Public Sub GETData(ByVal rpt As Object)
Dim I As Integer
Dim TBL1 As New CrystalDecisions.Shared.TableLogOnInfo
TBL1.ConnectionInfo.ServerName = "ServerName"
TBL1.ConnectionInfo.DatabaseName = "DataBaseName"
TBL1.ConnectionInfo.Password = "passowrd"
TBL1.ConnectionInfo.UserID = "sa"
TBL1.ConnectionInfo.IntegratedSecurity = True
For I = 0 To rpt.Database.Tables.Count - 1
rpt.Database.Tables(I).ApplyLogOnInfo(TBL1)
Next I
End Sub

حطيت الاجراء ده في Module

..

انا مجهز فورم خاصه بالطباعة واضفت لها CrystalReportViewer

..

من اي فورم اقدر اني اعرض التقرير ..

عملت الكود التالي ليتم عرض التقرير ..

Dim rpt As New CrystalReport1
GETData(rpt)


Dim frm As New PrintFrm
frm.CrystalReportViewer1.ReportSource = rpt
frm.CrystalReportViewer1.Zoom(100%)
frm.CrystalReportViewer1.RefreshReport()
frm.Show()

بصيت لقيت ان التقرير يتم عرضه خالي من اي بيانات .

رغم اني والله وقفت على كل خطوة في كود زميلنا اللي انا ماشي على نهجه وتابعت كل خطوه في الكود بتاعه ولقيت اني عامل زي ما هو عامل بالظبط ..

التقرير عنده زي الفل ومفيش داتاست في المشروع ..

وانا التقرير بتاعي ابيض يا ورد .. بيتعرض التخطيط اللي انا عامله بس من غير اي بيانات من الداتا بييز ....

يعني حرام كل التعب ده وتقف على التقارير .

فياريت اي حد من اخوانا يساعدني لاني حقيقي مكتئب والله

وجزاكم الله خير