منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - اخوان الاعزاء ارجو مساعدتى في حل عرض بيانات في تقرير كريستال ريبورت

السلام عليكم

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

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

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

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

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

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 

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

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

[attachment=23085]

[attachment=23086]

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

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

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 

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

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

هذا كود ثان :

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 

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

nazarakrawi

asemshahen5

nazarakrawi

asemshahen5

nazarakrawi

asemshahen5

nazarakrawi

asemshahen5

mohamed Matrix