Problema al ejecutar una funcion despues de haber usado un datareport !!

[KingColt]

Bueno despues de haber utilizado un datareport conectado a un dataenvronment y ejecutar el codigo del backup para access me sale este error



Solo aparece cuando utilizo el reporte conectado al dataenvironment

Código:

    If Len(Dir$(sDestino)) Then Kill sDestino
    je.CompactDatabase "Data Source=" & sOrigen & ";" & _
        "Jet OLEDB:Database Password=" & sPwd, _
        "Data Source=" & sDestino & ";" & _
        "Jet OLEDB:Database Password=" & sPwd

     CopiaBDPwd = "El proceso se completo satisfactoriamente en '" & sDestino & "'."

Como puedo solucionarlo y a que se debe?
Tambien quisiera poner este codigo je.CompactDatabase "Data Source=" & .......
en una sola linea pero me sale error no entiendo bien su composicion

Tambien cierro la conexion antes de llamar a la funcion cn.close

saludos

[Avellaneda]

Antes de compactar cierra la conexión al DataEnvironment:

If DataEnvironment1.connection.State Then DataEnvironment1.connection.Close

Y no entiendo el problema de poner toda la instrucción en una línea (cuando la cadena es larga siempre es mas legible ponerla en varias líneas), pero bueno, sería así:

je.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sOrigen & ";Jet OLEDB:Database Password=" & sPwd, "Data Source=" & sDestino & ";Jet OLEDB:Database Password=" & sPwd

Por cierto, que ese código me suena.

[KingColt]

No funciono con tu codigo probe y antes de ejecutar la funcion verifico si la conexion al dataenvironment esta abierta y me dice que esta cerrada

Código:

If dteEntornoDatos.cnxListados.State = 1 Then
MsgBox "OPEN DATAEN"
Else
MsgBox "CLOSE DATAEN"
End If

El hecho es que despues de ejecutar el reporte, asi cierre la conexion a la bd y la del dataenvironment me sigue mostrando el icono de que algo esta abierto?


Que puede ser?

[KingColt]

He revisado donde el problema pero no lo encuentro, alguien tiene alguna idea?

[seba123neo]

evidentemente esta quedando algo abierto...borra ese archivo de bloqueo y proba de nuevo haber si queda el archivo ese...cerra todo lo que abriste...

saludos.

[KingColt]

Bueno gracias por la ayuda, revisando detenidamente y con calma me di cuenta de que tenia cargada la propiedad datasource del datareport en tiempo de diseño por eso la conexion permanecia activa aunque aparentemente todo estaba cerrado

Ahora la coloque en tiempo de ejecucion
Set drProductosXcategoria.DataSource = Entorno

saludos