Problema Crystal report 11r2

[KenMasters]

Estoy estableciendo la conección con VB6 de una plantilla hecha en Crystal Report 11r2 abre el archivo, lo que no entiendo es porque pasado unos segundos se cierra el form automaticamente.

Sin hacer click en el boton para cargar el report adjunto el codigo

referencias1 -> Crystal Reports ActiveX Designer Design and Runtime Library 11.5
referencias2 -> Crystal ActiveX Report Viewer Library 11.5
componentes -> Crystal ActiveX Report Viewer Library 11.5

Version Cr11r2, VB6sp6
sistema: windows 7 32 bits

el Reporte se creo en CR11r2 usando RDO ODBC a un conector de MySQL con una consulta diseñada ahi.

el código en VB6 usado es:

Código vb:

Private Sub Command1_Click()
Dim App1 As New CRAXDDRT.Application
Dim report1 As New CRAXDDRT.Report
 
 
Set report1 = App1.OpenReport("Report1.rpt")
 
CrystalActiveXReportViewer1.ReportSource = report1
CrystalActiveXReportViewer1.ViewReport
CrystalActiveXReportViewer1.Zoom 100
 
 
End Sub
 

Me he dado cuenta de que al parecer es el activex, cuando paso el mouse en alguna de las opciones, se cierra..
Espero me puedan ayudar

[KenMasters]

He intentado usando el Crystal Report 8.5 (previamente he quitado las anteriores referencias y complemento de la versión 11) y ocurren lo mismo, se cierra solo, al parecer según mi suposición se debe alguna compatibilidad con windows7.. alguna idea ???

Por cierto Visual Basic 6 sp6, se ejecuta con compatibilidad de windows XP sp3.

Creo que voy a tener que emular XP y probar ahi..

Aunque me queda la duda, porque me he conseguido un ejemplo usando SQL, una DB mdb, y se mantiene normal.. pero con el mysql no ocurre eso, a pesar de que el reporte es lo más simple posible...

[KenMasters]

He estado buscando, limitando las referencias a las mismas usadas por el ejemplo, pero no encuentro la razón del porque se cierra. Considerando que las referencias son iguales, creo que lo único que cambia es el tipo de DB, adjunto ambos codigos


Codigo problema que se cierra el form pasado unos segundos o por pasar el puntero

Código vb:

Option Explicit
Dim crxApp As New CRAXDRT.Application
Dim crxRpt As CRAXDRT.Report
Dim crParamDefs As CRAXDRT.ParameterFieldDefinitions
Dim crParamDef As CRAXDRT.ParameterFieldDefinition
 
Dim cn As Connection
Dim rsREP As Recordset ' se usa para el boton ver report
 
Private Sub Form_Load()
Set cn = New Connection
cn.ConnectionString = "DRIVER={MySQL ODBC 5.2 ANSI Driver}; SERVER=localhost;DATABASE=basedatos;USER=usuario;PASSWORD=pass;port:33006;OPTION=3"
cn.CursorLocation = adUseClient
 
cn.Open
 
'para el reporte
 
Set rsREP = New Recordset
 
MsgBox SQLquery
 
If SQLquery = "" Then
    Unload Me
Else
    rsREP.Open "" & SQLquery & "", cn, adOpenDynamic, adLockOptimistic
End If
 
 
Set crxApp = New CRAXDRT.Application
Set crxRpt = crxApp.OpenReport(AppPath() & "\Report2.rpt")
crxRpt.EnableParameterPrompting = False
Set crParamDefs = crxRpt.ParameterFields
 
For Each crParamDef In crParamDefs
        Select Case crParamDef.ParameterFieldName
            Case "nombre"
                crParamDef.SetCurrentValue rsREP.Fields("nombre")
            Case "nacimiento"
                crParamDef.SetCurrentValue rsREP.Fields("nacimiento")
        End Select
Next
 
CRViewer1.ReportSource = crxRpt
CRViewer1.ViewReport
CRViewer1.Zoom (100)
Show
End Sub
 

Siendo SQLquery una variable publica tipo string que pasa la consulta al form donde esta el CRViewer1

Codigo de ejemplo que no se cierra

Código vb:

<Modulo1.bas>
Option Explicit
Global CN As New ADODB.Connection
 
Sub main()
CN.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\BD.accdb;Persist Security Info=False;"
Form1.Show
 
End Sub
<fin modulo1>
 
 
 
 
Option Explicit
Dim reporte As New Inventario
Dim rs As New ADODB.Recordset
 
Private Sub cmdCommand1_Click()
rs.Filter = ""
repp
End Sub
 
Private Sub Command1_Click()
Dim rsss
rsss = InputBox("Escriba una letra")
rs.Filter = "nombre like '%" & rsss & "%'"
repp
End Sub
 
Private Sub Form_Load()
 
rs.Open "Select * from Inventario", CN, adOpenDynamic, adLockOptimistic
 
repp
 
End Sub
 
Sub repp()
    With reporte
        .Database.SetDataSource rs
        .PaperOrientation = 1
        .PaperSize = 45
        .DiscardSavedData
    End With
 
    CRViewer1.ReportSource = reporte
    CRViewer1.ViewReport
    
End Sub