Lancer la generation d'un etat access depuis vb

Soyez le premier à donner votre avis sur cette source.

Vue 20 503 fois - Téléchargée 5 246 fois

Description

Ce petit bout de code lance un ETAT creér dans une base de donnée ACCESS .Il faut donc ACCESS d'instaler sur la machine et dans VB menu projet/reference choisir microsoft ACCESS composants et ADO.
ensuite il faut paramétrer le fichier "parametre.ini" avec le chemin,le nom de la bd et le nom donner a l Etat dans access ainsi que le nom du fichier snapshot a generer.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

surfzoid
Messages postés
467
Date d'inscription
vendredi 15 août 2003
Statut
Membre
Dernière intervention
21 avril 2010
-
Hum, tu utilises quel entivirus, certain considére d'office tout les module VB6 voir certain fichier VB6 comme virus a tords ou alors par mauvaise config
De mon coté, avec clamav, rien :
./vbfrance_LANCER-GENERATION-ETAT-ACCESS-DEPUIS-VB___Page.zip: OK

----------- SCAN SUMMARY -----------
Known viruses: 918457
Engine version: 0.96.3
Scanned directories: 0
Scanned files: 1
Infected files: 0
Data scanned: 0.05 MB
Data read: 0.01 MB (ratio 4.33:1)
Time: 6.760 sec (0 m 6 s)

./creer_un_ini.bas: OK
./Form1.frm: OK
./Histo-Etat.exe: OK
./Module1.bas: OK
./Module2.bas: OK
./Parametres.ini: OK
./Project1.vbp: OK
./Project1.vbw: OK
./@Readme-CodeS-SourceS-FR.txt: OK
./@Source telecharge depuis ce lien.url: OK

----------- SCAN SUMMARY -----------
Known viruses: 918457
Engine version: 0.96.3
Scanned directories: 0
Scanned files: 10
Infected files: 0
Data scanned: 0.04 MB
Data read: 0.04 MB (ratio 1.11:1)
Time: 6.841 sec (0 m 6 s)
[eric@localhost vbfrance_LANCER-GENERATION-ETAT-ACCESS-DEPUIS-VB___Page]$
surfzoid
Messages postés
467
Date d'inscription
vendredi 15 août 2003
Statut
Membre
Dernière intervention
21 avril 2010
-
Hé, bé, je n avais jamais eut de soucis auparavant, serais ce un problème avec les serveurs codes sources ?
Un admin pourrait il intervenir s'il vous plais ?
Nota : je tourne sous Linux depuis de nombreuse années.
alexbigfoug
Messages postés
31
Date d'inscription
dimanche 11 mars 2007
Statut
Membre
Dernière intervention
25 mai 2011
-
Le zip contient un virus!
surfzoid
Messages postés
467
Date d'inscription
vendredi 15 août 2003
Statut
Membre
Dernière intervention
21 avril 2010
-
Pour compléter le post du dessus sur la méthode avec macro et aussi pour répondre a tifawine qui ma écrit en MP :

tout ce passe dans le fichier Parametres.ini qui doit se trouvé a coté du fichier etat.exe, ce fichier contien :

[Chemins]
Chemin_Base=C:\Appli\historisation\
Base=historisation
snapshot=C:\Appli\historisation\rapport.snp
[Commandes]
Etat_Access=Rapport production
[debug]
voire fenetre=1

et fonctionne comme ça :

[Chemins]
Chemin_Base= chemein du repertoire du fichier .mdb
Base= nom du fichier mdb sans extention
snapshot=chemin ou le fichier snapshot (snp) sera generer
[Commandes]
Etat_Access=nom de la macro vba stocké ds la bd acces qui vas générer le rapport
[debug]
voire fenetre= affiche ou nom la fenetre de runtime access
-----------------
surfzoid
Messages postés
467
Date d'inscription
vendredi 15 août 2003
Statut
Membre
Dernière intervention
21 avril 2010
-
A noter que les notes(lol) pour cette source sont toujours les bienvenues (etoiles en haut)

Je viens de trouver une seconde methode qui consiste non pas a utiliser le nom du rapport stocké dans access mais le nom d'une macro, cequi donne :
Pour la methode par nom de rapport :
Private Sub Command2_Click()
On Error Resume Next
KillProcessus "MSACCESS.EXE"
KillProcessus "SNAPVIEW.EXE"

If Dir(snap) <> "" Then Kill snap

'en tapant dans le syteme d'etat access
OpenCurrentDatabase (cheminbd & basededonnee & ".mdb")
'DoCmd.OutputTo acReport, etat, "SnapshotFormat(*.snp)", snap, True, "", 0
DoCmd.OutputTo acReport, etat, acFormatSNP, snap, -1
CloseCurrentDatabase
End Sub

Pour la methode par nom de macro :
Private Sub Command2_Click()
On Error Resume Next
KillProcessus "MSACCESS.EXE"
KillProcessus "SNAPVIEW.EXE"

If Dir(snap) <> "" Then Kill snap
'en tapant dans le syteme de macro access
access.OpenCurrentDatabase (cheminbd & basededonnee & ".mdb")
access.DoCmd.RunMacro (etat)
CloseCurrentDatabase
End Sub

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.