Por favor alguien que me ayude, tengo un programa de gestion con un BBDD en Access y VB6.
Bien pues necesito que mediante las tareas programadas se ejecute algun proceso que desde una query me genere un listado automatico cada dia.
Yo he creado un proyecto con un DATAREPORT y un MODULO, SIN formularios, en el DATAREPORT he definido los campos de la query y en el modulo he metido el siguiente codigo:
Option Explicit
Dim sPathBase As String
Public rst2 As ADODB.Recordset
Public cnn As ADODB.Connection
Public Sub Main()
Set cnn = New Recordset
sPathBase = App.Path & "\BBDD\Expert.mdb"
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sPathBase & ";"
cnn.Open
Set rst2 = cnn.Execute("SELECT ID_CLIENTE, C_CLIENTE, FECHA_CONTACTO, FORMA_CONTACTO,RESPUESTA_CLI, COMERCIAL, FECHA_VISITA,HORA,COMENTARIOS FROM SEGCLIENTES ORDER BY FECHA_VISITA")
'Asigna el recordset al reporte
Set EnvioDiario.DataSource = rst2
' Muestra el reporte
EnvioDiario.ExportReport rptKeyHTML, App.Path & "\citas.html", True, False
'Cierra el recorset
If Not rst2.State = adStateOpen Then
rst2.Close
End If
'Elimina la variable del recordsert
If Not rst2 Is Nothing Then
Set rst2 = Nothing
End If
cnn.Close
End Sub
Cuando lanzo esto me genera el archivo HTML sin problemas pero el problema es que se queda colgado, no finaliza la ejecución...
Por favor alguien que me diga que puedo hacer porque estoy desesperado...
MIL GRACIAS!!!!!
