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

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


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


الملفات المرفقة
.rar   TESTCRYSAL.rar (الحجم : 156.19 ك ب / التحميلات : 19)
الرد
تم الشكر بواسطة:
#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 ك ب / التحميلات : 55)
الرد
تم الشكر بواسطة: حريف برمجة
#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 
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيفية انشاء QR CODE داخل ريبورت فيوير khairallah 0 24 منذ 10 ساعة مضت
آخر رد: khairallah
  [سؤال] اريد الربط بين البرنامج وقاعدة بيانات اكسس المرفوعة على الانترنت وشكرا Mina Botros 2 42 24-01-20, 02:50 PM
آخر رد: Mina Botros
  استخدام ملف txt كقاعدة بيانات اسهل واسرع وافضل ام لا؟ nowiglah 2 114 24-01-20, 12:44 PM
آخر رد: abubasilIraq
  كيفية جعل القيمة null لحقل رقمي = 0 في الكريستال ريبورت bassant 1 81 24-01-20, 03:37 AM
آخر رد: boudyonline
  [سؤال] الرجاء المساعد في الكريستال ريبورت nouribenyahia 3 127 22-01-20, 08:21 PM
آخر رد: nouribenyahia
  كريستال ريبورت ghias 4 166 20-01-20, 08:37 AM
آخر رد: ghias
  سوال عن قاعدة بيانات sql ? nazarakrawi 3 108 18-01-20, 10:13 PM
آخر رد: boudyonline
  [سؤال] مشكلة في الاتصال بقاعدة بيانات اكسس 2003 ناجح احمد 10 283 17-01-20, 10:57 PM
آخر رد: ناجح احمد
  مكشلة الأ{قام في الكرستال ريبورت DOX.1 0 81 15-01-20, 01:34 AM
آخر رد: DOX.1
  التعامل مع الارقام في الكرستال ريبورت DOX.1 1 99 14-01-20, 02:37 AM
آخر رد: DOX.1

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


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