IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Mise à jour automatisée d’une frontal


Sujet :

VBA Access

  1. #1
    Membre régulier
    Homme Profil pro
    ingénieur essais électronique
    Inscrit en
    Mai 2011
    Messages
    144
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : ingénieur essais électronique
    Secteur : Industrie

    Informations forums :
    Inscription : Mai 2011
    Messages : 144
    Points : 75
    Points
    75
    Par défaut Mise à jour automatisée d’une frontal
    *Bonjour*

    le code du lien m'a l'air vraiment sympa.

    http://www.developpez.net/forums/d81...rnative-n-2-a/

    Cependant je bloque sur une ligne :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    strConnect = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & kelbase & "Ace OLEDB:System Database=C:\Users\toto\Desktop\reseau\Sécurité.mdw;Persist Security Info=False; User ID=toto; password=tata;"
    Il me dit un probleme est survenu lors de l'accés à une propriété de l'objet OLE.

    PS: j'ai rajouter la référence Microsoft ActiveX Data Objects 6.0 Library

  2. #2
    Membre régulier
    Homme Profil pro
    ingénieur essais électronique
    Inscrit en
    Mai 2011
    Messages
    144
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : ingénieur essais électronique
    Secteur : Industrie

    Informations forums :
    Inscription : Mai 2011
    Messages : 144
    Points : 75
    Points
    75
    Par défaut
    J'ai fait une erreur dans la ligne précédente, c'est cette ligne qui fonctionne :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    strConnect = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & kelbase & ";Jet OLEDB:System Database=C:\Users\toto\Desktop\reseau\Sécurité.mdw;User ID=toto;Password=tata;"
    Maintenant tout fonctionne mais au moment de relancer l'appli (function restart), il y a un problème. Il me dit que je n'est pas les autorisation nécéssaire.

    Normal car le code du lien ne prend pas en compte le mdw pour relancer l'appli.

    Comme je ne comprend pas bien le code restart, pouvez vous me dire ou mettre le chemin de mon mdw pour qu'il soit pris en compte lmors de la réouverture de la base mise à jour ?

    Quelle est la ligne qui permet de relancer l'appli ?

  3. #3
    Membre régulier
    Homme Profil pro
    ingénieur essais électronique
    Inscrit en
    Mai 2011
    Messages
    144
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : ingénieur essais électronique
    Secteur : Industrie

    Informations forums :
    Inscription : Mai 2011
    Messages : 144
    Points : 75
    Points
    75
    Par défaut
    Bon j'ai finalement enlever la ligne :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
     
    s = s & "start "" "" ""%~f2.%3""" & vbCrLf
    C'est cette ligne qui relance l'application.

    Maitenant tout marche........en local entre deux dossier sur le bureau.

    Lorsque je met tout sur la base officiel (sur le réseau), le shell se bloque sur le ping.

    Pourquoi et comment faire ?

    A quoi correspond l'adresse IP 0.0.0.255 ?

  4. #4
    Membre éprouvé
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Février 2010
    Messages
    801
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Enseignement

    Informations forums :
    Inscription : Février 2010
    Messages : 801
    Points : 1 107
    Points
    1 107
    Par défaut
    Citation Envoyé par sylv20 Voir le message
    A quoi correspond l'adresse IP 0.0.0.255 ?
    Bonjour,
    ceci ne peut pas être une adresse IP (le premier octet ne peut pas être égal à zéro). Par contre, cela ressemble à un masque générique. C'est-à-dire "l'inverse" d'un masque de sous-réseau. Cela correspond à 255.255.255.0

    Cordialement

  5. #5
    Membre éclairé

    Homme Profil pro
    Inscrit en
    Juillet 2005
    Messages
    626
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations forums :
    Inscription : Juillet 2005
    Messages : 626
    Points : 726
    Points
    726
    Par défaut oledb12
    ola,

    Désolé du retard je ne suis pas revenu depuis un moment sur le forum ..

    Phase 1 on se connecte avec oledb a la base qui doit-être testée comme nouvelle.


    Phase 2 si la date est supérieure(pour moi), la version est donc plus récente on fabrique un bat, le ping sert à éviter les "wait" ou "sleep" trop aléatoire.
    ping 0.0.0.255 retourne rien trouvé car il est impossible d'avoir une machine à cette adresse avec un délai tjs identique.

    A+

Discussions similaires

  1. [Toutes versions] Mise à jour automatisée d’un frontal alternative N° 2
    Par naphta dans le forum Contribuez
    Réponses: 14
    Dernier message: 07/05/2024, 10h24
  2. [XL-2013] Mise à jour automatique d’une barre d’erreur horizontale
    Par bolide7 dans le forum Excel
    Réponses: 22
    Dernier message: 23/05/2015, 16h53
  3. [AC-2003] Automatiser une requete mise à jour
    Par BqiKo dans le forum Access
    Réponses: 1
    Dernier message: 30/07/2009, 15h12
  4. Automatiser la mise à jour de drivers.
    Par Radio_8 dans le forum Windows XP
    Réponses: 5
    Dernier message: 02/08/2007, 12h36
  5. Automatiser la mise à jour de la bD SQL SERVER from Access
    Par Nadaa dans le forum MS SQL Server
    Réponses: 2
    Dernier message: 11/11/2003, 15h23

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo