Planification journalière script VB.net

Version imprimable

18/03/2010, 11h33
altheorijinal

Planification journalière script VB.net

Bonjours,

J'ai crée sous Visual Studio 2008 express et VB.net, un "script" en utilisant un module (sans utiliser de form) un code qui m'actualise plusieur base de donnée Access.
Ces bases de donnée contienent des macros qui vont chercher via ODBC les info sur un server et les actualisent.
Mon script, en fait, pilote Access et utilise ces macros.

J'ai crée une tache planifier avec le planificateur de Windows 7 qui lance tous les jours le script à la même heure.

Le probleme c'est que le sript à l'air de se lancer car je le voit dans les processus mais il ne lance pas MSAccess.exe et les tables ne s'actualise pas.

Quand je le lance "à la main" directement sur l'appli, ça fonctionne.

Je suppose qu'il ya une meilleur façon de proceder que d'utiliser l'automation et un planificateur mais je ne la connait pas.

Merci

Alexis
18/03/2010, 13h23
Flamby38

tu peux peut etre nous donner le code de ce script?

Bien sûr, je dois précisé que j'ai le niveau debutant/intermediare.

voici le code que j'ai utilisé:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
 
Imports Microsoft
Imports System
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Access
 
 
Module DB_ACTUA
 
    Dim _pathDBFile As String
    Dim _end As Boolean = False
 
    Sub Main()
 
        _pathDBFile = "U:\DATABASE\DB\"
 
        Console.WriteLine("Bienvenidos al programa de actualizacion de la base de datos.")
 
        While Not _end
 
            If My.Computer.FileSystem.DirectoryExists(_pathDBFile) Then
 
                Dim my_dbfiles As System.Collections.ObjectModel.ReadOnlyCollection(Of String) = My.Computer.FileSystem.GetFiles(_pathDBFile)
 
                For Each n In my_dbfiles
                    actua_table(n)
                Next
 
                _end = True
 
            Else
 
                Console.WriteLine("El directorio U:\DATABASE\DB\ no existe.")
                Console.WriteLine("Por favor, entrar el camino completo del directorio conteniendo las bases de datos: ")
                _pathDBFile = Console.ReadLine()
 
            End If
 
        End While
 
    End Sub
 
    Public Sub actua_table(ByVal my_dbfile As String)
 
        Dim oAccess = New Access.ApplicationClass()
 
 
        Try
            'Ouvre une base de données en mode exclusif :
 
            oAccess.OpenCurrentDatabase(filepath:=my_dbfile, Exclusive:=True)
            oAccess.DoCmd.RunMacro(MacroName:="creation_table")
            Console.WriteLine("Actualizacion de : " & my_dbfile & " => OK ")
 
        Catch ex As Exception
 
            Console.WriteLine("error actualizacion de :" & my_dbfile)
            System.Threading.Thread.Sleep(2000)
 
        End Try
 
        oAccess.CloseCurrentDatabase()
        oAccess.Quit(AcQuitOption.acQuitPrompt)
 
    End Sub
 
 
End Module

Il y a quelque partis en espagnol car je travail en espagne.

18/03/2010, 15h48
Flamby38

et tu as compilé ca dans un executable? Quand tu lances l'exe a la main ca marche? Quand la tache planifiée s'execute, est ce que tu es loggé sur le PC?
18/03/2010, 15h57
altheorijinal

J'ai compilé avec visual studio et j'ai publié sur mon pc ensuite à l'emplacement ou il est publier je lance l'aplli et rien. J'ai aussi essayer avec l'exe installer à partir du setup et rien non plus.

Oui je suis loggé.

Je ne sais pas pourquoi, il y a un processus corespondant à l'application mais elle ne fait rien!!
18/03/2010, 17h34
Flamby38

C'est donc l'exe qui a un problème, pas la tache planifiée.

Est ce que tu vois au moins ta messagebox? est ce que access est installé sur le poste client? dans la meme version que sur ton poste?
19/03/2010, 08h18
altheorijinal

La tache est programmée sur le même poste que sur lequel j'ai crée l'appli.
Il ya access et tout devrait être ok???

Je ne vois même pas la message box ni la fenetre de commande...
peut-être qu'il faut lancer l'application d'une aure façon, en utilisant un srcipt batch... je sais pas trop.
19/03/2010, 14h52
Flamby38

et le framework .net est installé dans la bonne version?

Ne cherche pas une autre manière de lancer ton programme, à priori ce n'est pas le problème, quand tu double clic dessus il doit fonctionner.
24/03/2010, 15h04
altheorijinal

Bonjours,

Désolé de ne pas avoir répondu avant.

J'ai finalement trouvé ce qui n'allait pas et cela n'avait rien avoir avec le code ou VB.net mais directement avec le planificateur.

J'utilisais l'option d'execution sans que l'utilisateur soit logger sur l'ordinateur et cela executait le programme en tâche de fond. En changeant cette option, le programme s'exectue normalement!

Ce que je n'arrive pas à m'expliquer c'est pourquoi lorsqu'on lance le programme en tache de fond, il ne s'execute pas correctement même si je pense qu'il doit y avoir un moyen de resoudre ça aussi.

Merci encore Flamby38 pour ton aide.