moi_leila
Messages postés15Date d'inscriptionmercredi 26 avril 2006StatutMembreDernière intervention29 février 2008 20 févr. 2008 à 10:34
Merci bcp,
ça marche à la perfection.
1- J'ai défini un mot de passe à la base des données access 2000: Dans le menu Outils, pointez sur Sécurité, puis cliquez sur Définir le mot de passe de la base de données. (dans Access2000)
2- J'ai coché la référence à la Bibliothèque d'objets : Microsoft DAO 3.6 (dans VB6)
3- J'ai crée un module dans VB6 dans lequel j'ai mis le code suivant :
Option Compare Database
Option Explicit
Sub OpenPasswordProtectedDB()
'Définit la valeur Static de façon à ce que l'instance de Microsoft Access
'ne se ferme pas lorsque la procédure est terminée.
Static acc As Access.Application
Dim db As DAO.Database
Dim strDbName As String
strDbName = "C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb"
Set acc = New Access.Application
acc.Visible = True
Set db = acc.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=nwind")
acc.OpenCurrentDatabase strDbName
db.Close
Set db = Nothing
End Sub
4- Vue que je ne voulais pas que ma base des données soit ouverte et que la structure des table soit vue, j'ai enlevé le "acc.Visible = True" du code.
5- J'ai fait appel à la procédure dans la feuille.
6- J'ai mit le code suivant pour le transfertext :
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 18 févr. 2008 à 16:47
Salut
Je n'ai rien compris à ton problème.
Explique ton environnement, quels objets te utilises ... parce que "ouvrir une fenêtre de base de données" en VB6, je ne vois pas trop de quoi tu parles.
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Si je me contente de faire un opendatabase avant ce code pour ouvrir la bd l'opération d'import/export ne marche pas. Je suis obligée d'ouvrir une fenêtre access manuellement et ouvrir ma bd pour que ça marche.
Je veux savoir si il ya un moyen pour éviter d'ouvrir access et se contenter d'un opendatabase.
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 18 févr. 2008 à 17:13
Ok, mais "DoCmd", ça sort d'où ?
C'est surement lié à un type d'objet, mais lequel ?
Dans l'aide DoCmd se rapporte à FoxPro : aucun rapport.
OpenDatabase s'applique aux objets ADO : Ce moteur est obsolète = ne pas l'utiliser
Si DoCmd se rapporte à un objet de type Database, je pense que la syntaxe devrait être maDatabase.DoCmd ou quelque chose du genre
Si tu dois maniper des bases Access depuis VB6, je te conseille fortement d'utiliser ADODB et des requètes SQL + RecordSet + séquences d'analyse pour stocker dans un fichier texte.
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Vous n’avez pas trouvé la réponse que vous recherchez ?