Mi problema viene cuando quiero mostrar un reporte armado en CR7 con su extensión .rpt.
Este es el codigo:
Código PHP:
Dim reginfo As New ADODB.Recordset
Dim CrxInfor As CRAXDRT.Report
Dim CrxApp As New CRAXDRT.Application
Private Sub Form_Load()
Set reinfo = New ADODB.Recordset
reginfo.Open "SELECT * From ventas", Form1.cn, adOpenDynamic, adLockOptimistic
Screen.MousePointer = 11
Set CrxInfor = CrxApp.OpenReport(App.Path & "\Reportes\ventas.rpt")
reginfo.Close
Set reginfo = Nothing
CrxInfor.DiscardSavedData
CrxInfor.Database.SetDataSource reginfo
With CRViewer1
.ReportSource = CrxInfor
.EnableExportButton = True
.DisplayGroupTree = False
.EnableDrillDown = False
.EnableSelectExpertButton = False
.ViewReport
End With
Screen.MousePointer = 0
End Sub
La cadena de conección está en el form1:
Código PHP:
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database.mdb"
Set cn = New ADODB.Connection
cn.ConnectionString = strconn
cn.CursorLocation = adUseClient
cn.Open
El recordset y la cadena de conección están declaradas, todas las referencias están hechas, incluso por las dudas marqué todas las de CR7.
Pero siempre me dá el error:
Server has not yet been started
Cabe aclarar que el error solo lo muestra desde VB6, si lo abro desde CR directamente funciona bien.
Espero que me puedan dar una mano!
Salu2!