将日期参数从PHP传递到Crystal Report

时间:2012-08-08 10:21:51

标签: php parameters crystal-reports

我在Windows上从PHP5传递日期参数到Crystal Reports 11组件时遇到很大麻烦。当然,它应该很容易,但各种已注释掉的项似乎不起作用:

<?php
$my_report = "C:\\xampp\htdocs\wincare\laporan\adm_JumlahPasienPoli.rpt"; // rpt source file
$my_pdf = "C:\\xampp\htdocs\wincare\laporan\adm_JumlahPasienPoli.pdf"; // RPT export to pdf file
//-Create new COM object-depends on your Crystal Report version
$ObjectFactory= new COM("CrystalReports115.ObjectFactory.1") or die ("Error on load"); // call COM port
$crapp = $ObjectFactory-> CreateObject("CrystalDesignRunTime.Application.11"); // create an instance for Crystal
$creport = $crapp->OpenReport($my_report,1); // call rpt report

// to refresh data before

//- Set database logon info - must have
$creport->Database->Tables(1)->SetLogOnInfo("localhost", "db_wincare", "sa", "sa");

//- field prompt or else report will hang - to get through
$creport->EnableParameterPrompting = 0;



// this is the error 

$zz = $creport->ParameterFields(1)->SetCurrentValue("2011-01-01 00:00:00");    

//export to PDF process
$creport->ExportOptions->DiskFileName=$my_pdf; //export to pdf
$creport->ExportOptions->PDFExportAllPages=true;
$creport->ExportOptions->DestinationType=1; // export to file
$creport->ExportOptions->FormatType=31; // PDF type
$creport->Export(false);

//------ Release the variables ------
$creport = null;
$crapp = null;
$ObjectFactory = null;

//------ Embed the report in the webpage ------
print "<embed src=\"adm_JumlahPasienPoli.pdf\" width=\"100%\" height=\"100%\">"



?>

和messege:

  

致命错误:带有消息的未捕获异常'com_exception'   '来源:
说明:'in   C:\ xampp \ htdocs \ wincare \ laporan \ pakai.php:36堆栈跟踪:#0   C:\ XAMPP \ htdocs中\ wincare \ laporan \ pakai.php(36):   variant-&gt; SetCurrentValue('2011-01-01 00:0 ...')#1 {main}引入   第36行的C:\ xampp \ htdocs \ wincare \ laporan \ pakai.php

1 个答案:

答案 0 :(得分:1)

我记得大约五年前在这个问题上花了很长时间,并最终找到了一个黑客但却有效的答案:

// This block is strictly guesswork
$application = new COM("CrystalRuntime.Application.9"); // Change to your version
$report = $application->OpenReport($my_report,1);       // From OP's code
$rptParams = $report.ParameterFields
$rptParam = $rptParams->Item(2);                        // From my SitePoint post; 
                                                        // obviously you need to use
                                                        // the right index

// Check that $rptParam->ValueType evaluates to 10 - if it does not
// then modify the type in Crystal Reports itself. Again, see my
// original solution

// This bit should be fine
$oScript = new COM("MSScriptControl.ScriptControl");
$oScript->Language = "VBScript";
$oScript->AllowUI = false;
$oScript->AddObject('rptParam', $rptParam, true);
$oScript->AddCode('Function SetDateParameter(strDate)
rptParam.AddCurrentValue(CDate(strDate))
End Function');
$oScript->Run("SetDateParameter", "25 April 2006");

这很好用,但不是很优雅!我认为,在Windows Server 2003上使用CR9。从here复制 - 在StackExchange诞生之前:)