Discussion :

[altheorijinal]

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

[Flamby38]

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

[altheorijinal]

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

voici le code que j'ai utilisé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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?

[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!!

[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?