Tengo un problema al imprimir un informe usando Datareports y DataEnvironment con Visual Basic:
El codigo que usamos para imprimir es el siguiente:
DataEnvironmentAGCR.Connection1.ConnectionString = Trim(bd_datos.Name)
DataEnvironmentAGCR.Connection1.Open
rptcomunesccNuevoRR.visible = False
rptcomunesccNuevoRR.WindowState = vbMinimized
rptcomunesccNuevoRR.WindowState = vbNormal
Set rptAuxiliar2 = New rptcomunesccNuevoRR
rptAuxiliar2.Refresh
If Not DataEnvironmentAGCR.Commands.Item(1).ActiveConnect ion Is Nothing Then
DataEnvironmentAGCR.Commands.Item(1).ActiveConnect ion.Close
Set DataEnvironmentAGCR.Commands.Item(1).ActiveConnect ion = Nothing
End If
If Not DataEnvironmentAGCR Is Nothing Then
If Not DataEnvironmentAGCR.Connection1.State = adStateClosed Then
DataEnvironmentAGCR.Connection1.Close
End If
Set DataEnvironmentAGCR = Nothing
End If
Set rptAuxiliar2 = Nothing
El DataEnvironmentAGCR está compuesto de dos Commands, un Command1 al que tenemos asociado una sql statement y un Command2 que es hijo del anterior y al cual también tenemos asociado otra sql statement.
Sin embargo, y aunque la impresión se hace correctamente cuando salgo de la aplicación la base de datos sigue abierta.
Por si surge la duda, el único command al que podemos cerrar explícitamente la conexión activa es al Command1, parece como si el Command2 no fuera visible, al menos no encuentro la forma de acceder a él. No sé si irán por aquí los tiros.
Alguien sabría como debo cerrar la conexión para que no ocurra esto?
Gracias de antemano.
