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
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
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
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
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
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر