Dim l_strSQL as String
Dim l_rsRecordset as New Adodb.Recordset
l_strSQL="Select * From Source"
l_rsRecordset.Open l_strSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
...
Set crReport = crAppl.OpenReport(App.Path & IIf(Right(App.Path, 1) = "\", "", "\") & "report\Test.rpt", 1)
crReport.Database.setDataSource l_rsRecordset, 3, 1
'Show Crystal Report
...
當打開報表預覽時﹐出現Error:
Unable to access first Record!
SQL Server error.
我就將以上的代碼修改如下﹕
l_rsRecordset.Open l_strSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
改為﹕
l_rsRecordset.Open l_strSQL, cnn, adOpenDynamic, adLockReadOnly, adCmdText
運行正常﹐報表可正常預覽﹒
雖然問題可解決﹐但我真的不知道是什么錯﹐adOpenForwardOnly与Crystal Report 是不是不兼容﹖請各位大俠指教﹐謝謝﹗



arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()