تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اخوان الاعزاء ارجو مساعدتى في حل عرض بيانات في تقرير كريستال ريبورت
#1
السلام عليكم 
ارجو مساعدتى في حل عرض تقرير كريستال ريبورت
دائما يتم عرض بيانات قديمة وعند تحديث التقرير يتم جلب بيانات حديثة 

اذ امكن من الاخوة طريقة عند عرض تقرير كريستال ريبورت تكون بيانات جديدة ولسيت قديمة 


تم ارفاق الملف  Huh Huh Huh Huh


الملفات المرفقة
.rar   TESTCRYSAL.rar (الحجم : 156.19 ك ب / التحميلات : 15)
الرد
تم الشكر بواسطة:
#2
عدل الكود التالي :

PHP كود :
   Sub dvgfill()
 
       da.Clear()
 
       dt = New OleDbCommand("select * from AD"con)
 
       con.Open()
 
       da.Load(dt.ExecuteReader)
 
       rpt1.SetDataSource(da)
 
       CrystalReportViewer1.ReportSource rpt1
        CrystalReportViewer1
.LogOnInfo(0).ConnectionInfo.Password ""
 
       CrystalReportViewer1.RefreshReport()
 
   End Sub 

او هذا الكود :

PHP كود :
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        Application
.DoEvents()
 
       Dim ConInfo As New CrystalDecisions.Shared.TableLogOnInfo
        ConInfo
.ConnectionInfo.ServerName Application.StartupPath "\NZ1.accdb"
 
       ConInfo.ConnectionInfo.DatabaseName "NZ1.accdb"
 
       ConInfo.ConnectionInfo.UserID "Admin"
 
       ConInfo.ConnectionInfo.Password ""
 
       rpt1.Database.Tables(0).ApplyLogOnInfo(ConInfo)
 
       Dim frm As New FRMM
        frm
.CrystalReportViewer1.ReportSource rpt1
        frm
.CrystalReportViewer1.LogOnInfo(0).ConnectionInfo.Password ""
 
       frm.CrystalReportViewer1.RefreshReport() ''نسيت هذا السطر
        frm
.ShowDialog()
 
   End Sub 
الرد
تم الشكر بواسطة: محمد كريّم , حريف برمجة
#3
مشكورررر اخي كود الثاني نفع معي بس مشكلة يطلع رسالة خطا ثم يتحدث تقرير بطريقة الصحيحة


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة: asemshahen5 , حريف برمجة
#4
هذا مثالك بعد التعديل .

   

   


الملفات المرفقة
.zip   Crystal Reports Backup Files.zip (الحجم : 174.79 ك ب / التحميلات : 37)
الرد
تم الشكر بواسطة: حريف برمجة
#5
مشكوررررر تم حل المشكلة
لكن لي طلب ياستاد غالي
ممكن تصدير البيانات الى جدول اكسل
الرد
تم الشكر بواسطة: حريف برمجة
#6
جرب هذا الكود :

PHP كود :
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions
.Shared

Private Sub BtnExportToExcel_Click(sender As ObjectAs EventArgsHandles BtnExportToExcel.Click
    Dim CrExportOptions 
As ExportOptions
    Dim CrDiskFileDestinationOptions 
As New DiskFileDestinationOptions()
 
   Dim CrFormatTypeOptions As New ExcelFormatOptions
    CrDiskFileDestinationOptions
.DiskFileName "D:\crystalExport.xls"
 
   CrExportOptions rpt1.ExportOptions
    With CrExportOptions
        
.ExportDestinationType ExportDestinationType.DiskFile
        
.ExportFormatType ExportFormatType.Excel
        
.DestinationOptions CrDiskFileDestinationOptions
        
.FormatOptions CrFormatTypeOptions
    End With
    rpt1
.Export()
End Sub 
الرد
تم الشكر بواسطة: حريف برمجة
#7
مشكورررررررررر اخي نجت عملية  في مشكلة 

يكون جدول اكسل على ارقام  بدون جدول  اتنمى ان يكون على شكل جدول اكسل مع تنسيق


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة: asemshahen5
#8
هذا كود ثان :

PHP كود :
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions
.Shared

Private Sub ExportToExcel1_Click(sender As ObjectAs EventArgsHandles ExportToExcel1.Click
    Dim exportOpts 
As New ExportOptions()
 
   Dim excelFormatOpts As New ExcelFormatOptions()
 
   Dim diskOpts As New DiskFileDestinationOptions()
 
   exportOpts rpt1.ExportOptions
    excelFormatOpts
.ExcelUseConstantColumnWidth True
    exportOpts
.ExportFormatType ExportFormatType.ExcelRecord
    exportOpts
.FormatOptions excelFormatOpts
    exportOpts
.ExportDestinationType ExportDestinationType.DiskFile
    diskOpts
.DiskFileName "D:\\crystalExport.xls"
 
   exportOpts.DestinationOptions diskOpts
    rpt1
.Export()
End Sub 
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo [VB.NET] السلام عليكم اخواني واخواتي سوال بسيط في الفيجوال بيسك 2010 معا قاعدت بيانات اكسس 201 hosamloveme888@yahoo.com 1 61 , 02:32 AM
آخر رد: hosamloveme888@yahoo.com
  كيف أزيل الفواصل من الأرقام في الكريستال ريبورت جيولوجي مبتدئ 1 42 08-12-19, 10:54 PM
آخر رد: boudyonline
  حفظ جدول كامل الى قاعدة بيانات muad 9 238 04-12-19, 03:39 PM
آخر رد: abomo3ath
  مشكلة الطباعة في الكريستال ريبورت i1982 7 171 03-12-19, 10:47 PM
آخر رد: i1982
  مشاركة قاعدة بيانات سيكول سيرفر makky 2 119 01-12-19, 02:28 AM
آخر رد: ابو ليلى
  [سؤال] عرض بيانات الاكسل بشكل اكتف m.n.hakami 0 77 26-11-19, 02:05 PM
آخر رد: m.n.hakami
  كيف يُمكن حماية قاعدة بيانات الأكسس؟ Hazem1 17 1,590 25-11-19, 12:54 AM
آخر رد: عبد العزيز البسكري
  مشكلة طلب الاسم والباسورد فى الكريستال ريبورت mostafa nada 4 120 24-11-19, 09:18 PM
آخر رد: asemshahen5
  مساعد في عرض جدولين منفصلين في تقرير واحد (كريستال ريبورت) nazarakrawi 1 87 23-11-19, 07:56 PM
آخر رد: nazarakrawi
  ارجو المساعدة في الكود التالي muad 7 145 21-11-19, 10:09 PM
آخر رد: asemshahen5

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم