+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم مقالات التقارير والطباعة تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=80)
+--- الموضوع : Crystal Report With DataSet (/showthread.php?tid=4429)
الصفحات:
1
2
Crystal Report With DataSet - Ahmed_online - 24-09-12
السلام وعليكم ورحمة الله وبركاته
======================
======================
اخوانى اعضاء المنتدى , اليوم سأتحدث معكم عن مشكلة لطالما عانيت منها سابقا
جميعنا فى بدابة تعامله مع تقارير ال Crystal Report واجه مشكلة فى انه عند تحويل قاعدة البيانات من مسارها تأتى اليك رسال من التقرير بان قاعدة البيانات غير موجود مسارها الصحيح
وكان معظم المبرمجين بصنع مسار للقاعدة عند جهاز العميل بنفس المسار الموجود عنده على الجهاز ( عيب عليك )
الحل طبعا هو ان تربط التقرير مع ال Dataset
اليك الطريقة
اولا : طبعا افتح مشروعك الجديد واضف اليه الادوات الاتية
أ - CrystalReportDecument وحين يأتى لك رسالة عند اضافته للفورم , اختر الاختيار Untyped
ب - crystalReportViewr
ج - واخيرا من قائمة project ثم Add new items اضف تقرير Crystalreport
ثانيا : عند اضافة تقرير الكريستال ريبورت تماشى مع الخطوات العادية التى تفعلها كل مرة لاختيار قاعدة البيانات
طبعا سوف تسأل , لما اربطه مع قاعدة البيانات طالما سيكون العمل على ال DataSet
الاجابة : حتى يقوم بصنع هيكل لجدول داخل التقرير بدلا من ان نرهق انفسنا فى كتابة الاكواد , يعنى هذه الاتصال بالقاعدة فقط لصنع هيكل
ان كنت لا تعرف كيفية توصيل التقرير بجدول داخل قاعدة بيانات , راجع بعض الدروس اولا عن التقرير
ثالثا :
مرحلة الكود ( كود صغير جدا )
[HTML]Imports System.Data.OleDb
Public Class Form1
Dim constr As String = "provider = microsoft.jet.oledb.4.0;data source =" & Application.StartupPath & "\mydata.mdb"
Dim con As New OleDbConnection(constr)
Dim sqlstr As String = "select * from table1"
Dim DataAdapter1 As New OleDbDataAdapter(sqlstr, con)
Dim dataset1 As New DataSet
Dim ReportPath As String = Application.StartupPath & "\CrystalReport2.rpt"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles My****.Load
DataAdapter1.Fill(dataset1, "table1")
report********1.Load(ReportPath)
report********1.SetDataSource(dataset1.Tables("table1"))
CrystalReportViewer1.ReportSource = report********1
End Sub
End Class [/HTML]
Crystal Report With DataSet - senior - 01-10-12
بارك الله فيك ...
Crystal Report With DataSet - Ahmed_online - 01-10-12
اعتذر عن ظهور هذه النجوم مكان الكود , فقد حاولت ازالتها ولكن لم استطع
Crystal Report With DataSet - almo - 07-04-13
بارك الله فيك
Crystal Report With DataSet - cvcvcv - 07-04-13
لو سمحت بالنسبة لسطر الكود اللي حضرتك كاتبه :
Dim sqlstr As String = "select * from table1"
لو انا عايز اخليه يعرض السجلات حسب قيمة معينة يدخلها المستخدم في تيكست بوكس
ججربت اكتبه بالطريقة دي جاب لي رسالة خطأ ...
Dim sqlstr As String = "select * from table1 where class_num=textbox1.text , conn
يا ريت ممكن اعرف الكود الصح ايه
Crystal Report With DataSet - shaker.soft - 25-05-13
شكرا .............
Crystal Report With DataSet - محمد العكيلي - 05-06-13
كيف يمكن عرض عناصر من جدولين بينهما علاقة ما , على نفس هذه الطريقة ؟
Crystal Report With DataSet - دمعة المقهور - 18-08-13
شكرا أخي العزيز لكن عندي سؤال : مافائدة CrystalReportDecument في هذا المثال ؟؟
Crystal Report With DataSet - atefkhalf2004 - 18-08-13
الاساتذة الافاضل
كيف امرر قيمة الي مربع نص في راس الصفحة
مثلا اسم المستخدم اي اي نص اخر
شكرا
Crystal Report With DataSet - دمعة المقهور - 22-08-13
atefkhalf2004 كتب :الاساتذة الافاضل
كيف امرر قيمة الي مربع نص في راس الصفحة
مثلا اسم المستخدم اي اي نص اخر
شكرا