[nazarakrawi]

السلام عليكم 

ارجو مساعدتى في حل عرض تقرير كريستال ريبورت

دائما يتم عرض بيانات قديمة وعند تحديث التقرير يتم جلب بيانات حديثة 

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

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

[asemshahen5]

عدل الكود التالي :

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 Object, e As EventArgs) Handles 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 


[nazarakrawi]

مشكورررر اخي كود الثاني نفع معي بس مشكلة يطلع رسالة خطا ثم يتحدث تقرير بطريقة الصحيحة

[asemshahen5]

هذا مثالك بعد التعديل .

   

   

[nazarakrawi]

مشكوررررر تم حل المشكلة
لكن لي طلب ياستاد غالي
ممكن تصدير البيانات الى جدول اكسل

[asemshahen5]

جرب هذا الكود :

PHP كود :

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Private Sub BtnExportToExcel_Click(sender As Object, e As EventArgs) Handles 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 


[nazarakrawi]

مشكورررررررررر اخي نجت عملية  في مشكلة 

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

[asemshahen5]

هذا كود ثان :

PHP كود :

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Private Sub ExportToExcel1_Click(sender As Object, e As EventArgs) Handles 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 


[mohamed Matrix]

ممكن حل للمشكلة دي عندي مع العلم انا بستخدم sql server