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

VB 6 et antérieur Discussion :

Connexion ADO Access 2010 et VB6


Sujet :

VB 6 et antérieur

  1. #1
    Expert éminent
    Avatar de jimbolion
    Homme Profil pro
    Moulticien
    Inscrit en
    Janvier 2013
    Messages
    3 150
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Moulticien
    Secteur : Santé

    Informations forums :
    Inscription : Janvier 2013
    Messages : 3 150
    Points : 7 001
    Points
    7 001
    Billets dans le blog
    2
    Par défaut Connexion ADO Access 2010 et VB6
    Bonjour,

    Depuis quelques temps je remarque chez un certain nombre de mes clients un problème de connexion sur des bases de données en ADO entre VB6 et ma base Access 2010.

    J'utilise la référence Microsoft ActiveX Data Objects 2.0 Library avec la châine de connexion suivante :

    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
    Set DB_DonneesCon = New ADODB.Connection
    '
    '
    'MsgBox I_Database & " " & dataBaseLocation
    '
     
    DB_DonneesCon.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dataBaseLocation & ";Persist Security Info=False;"
    DB_DonneesCon.CursorLocation = adUseClient
    '
     qry_Chaine = "SELECT [Saisie des Clients].Nom, [Saisie des Clients].Prénom FROM [Saisie des Clients];"
     Set rs = New ADODB.Recordset
     With rs
       .Open qry_Chaine, DB_DonneesCon, adOpenForwardOnly, adLockReadOnly
       If .RecordCount > 0 Then
       .MoveFirst
           MsgBox rs![Nom] & " " & rs![prénom]
       End If
       .Close
       Set rs = Nothing
    End With
    DB_DonneesCon.Close
    Set DB_DonneesCon = Nothing
    dataBaseLocation contient bien le chemin de la base de données récupérée à partir d'une variable globale.

    Lors de l'appel sur la ligne suivante :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    DB_DonneesCon.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dataBaseLocation & ";Persist Security Info=False;"
    Le programme me sort le message suivant : Impossible d'ouvrir le fichier d'informations du groupe de travail du moteur de base de données. Pourtant je n'ai ni groupe de travail, ni mot de passe sur la base de données et je confirme que cela fonctionne chez de nombreux clients.

    Chose étrange, lorsque je demande au programme de recherche le fichier manuellement (non fixé en dur dans le programme) grâce au composant Microsoft Common Dialog Control 6.0 cela fonctionne ??
    Et pourtant les deux variables contiennent la même valeur ! Pensant que cela venait d'une mise à jour Microsoft, j'ai donc fait reformaté la machine d'un de mes clients mais le problème subsiste !

    Si l'un d'entre vous à une idée sur la question ou vécu une comportement similaire, je le remercie par avance de son retour d'expérience ou d'une piste me permettant de résoudre ce problème !

    JimBoLion
    N'oubliez pas le Tag si la réponse donnée vous a été utile et pour une réponse pertinente.
    Retrouvez-moi sur le chat en salon base de données

  2. #2
    Expert éminent
    Avatar de jimbolion
    Homme Profil pro
    Moulticien
    Inscrit en
    Janvier 2013
    Messages
    3 150
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Moulticien
    Secteur : Santé

    Informations forums :
    Inscription : Janvier 2013
    Messages : 3 150
    Points : 7 001
    Points
    7 001
    Billets dans le blog
    2
    Par défaut
    Chers membres,

    La solution communiquée par Microsoft et qui pourrait éventuellement se propager :

    Bonsoir Monsieur ...,

    D'après les informations publiées sur le forum Kaspersky (http://forum.kaspersky.com/index.php...ic=292998&st=0), ce problème concerne les applications (DAO ou ADO) qui ouvrent une base MDB sans spécifier explicitement un fichier d'informations de groupe de travail ("System.mdw", "System.mda" ou "System.mdb"). Dans ce contexte, une mise à jour publiée le 9 avril par la société Kaspersky pour leur logiciel anti-virus a pour effet de générer un fichier "System.mdb" vide.
    Quand le moteur ACE essaie ensuite d'ouvrir ce fichier "System.mdb" vide, il génère une erreur parce que la structure de ce fichier "System.mdb" vide est incorrecte.

    RESOLUTION :

    ============
    Vous pouvez appliquer la solution décrite sur le forum Kaspersky :
    http://forum.kaspersky.com/index.php...ic=292998&st=0
    Effectivement et après application de la solution cela fonctionne.

    A noter que cette mise à Jour Kaspersky impacte les connexions ADO et DAO !

    JimBoLion
    N'oubliez pas le Tag si la réponse donnée vous a été utile et pour une réponse pertinente.
    Retrouvez-moi sur le chat en salon base de données

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. runtime access 2010 et vb6
    Par mymeal dans le forum VB 6 et antérieur
    Réponses: 8
    Dernier message: 27/04/2012, 17h43
  2. [VB6] Pb de connexion ADO
    Par ricil78 dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 15/06/2006, 14h40
  3. Lenteur de connexion(ADO+ACCESS(40 000 lignes)) + ADOComand
    Par hugobob dans le forum Bases de données
    Réponses: 5
    Dernier message: 08/03/2006, 19h14
  4. [VB6]Connexion base Access
    Par bébé sall dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 24/02/2006, 13h49
  5. [VB6] [ADO] [Access] Changer le mot de passe
    Par dlpxlid dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 03/03/2003, 09h45

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