Discussion :

[Ouija33]

bonjour à tous,

j'ai trouver beaucoup de sources sur le sujet, mais aucune ayant répondu à cette question. je tente de trouver un moyen d'ouvrir une base de donnée via vb.net automatiquement mais à chaque fois je dois prendre le controle de access et entrer un mot de passe (base de donnée programmer par une autre personne).

j'ai tenter

Code :

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

1
2
dim access03 as new access.application '(du vb.net)
access03.opencurrentdatabase(myDB.mdb, false, "mot de passe")

mais ca me demande pareil le mot de passe pour l'ouverture de session...y a t-il un moyen de l'automatiser...quel serait le nom de cette variable ??

merci à tous

[argyronet]

Bonjour,

Tu veux ouvrir la base de données contenant des tables ou bien lancer une application Access ?
Ce sont deux choses bien différentes.

Argy

[Ouija33]

Merci pour la réponse,

dans le fond, je demande à Vb de se créer un objet qui est l'application Access, il ouvre une base de donnée et imprime un état.

Tout fonctionne parfaitement avec ce code :

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
            Dim MaDBMat As String
            Dim Access03 As New Access.Application
            MaDBMat = "C:\rep\test.mdb"
            Access03.OpenCurrentDatabase(MaDBMat, False, "passw0rd")
            Select Case ligne
                Case 1
                    Access03.DoCmd.OpenReport("ESVetiquetteprod1", Access.AcView.acViewNormal)
                Case 2
                    Access03.DoCmd.OpenReport("ESVetiquetteprod2", Access.AcView.acViewNormal)
                Case 3
                    Access03.DoCmd.OpenReport("ESVetiquetteprod3", Access.AcView.acViewNormal)
                Case 4
                    Access03.DoCmd.OpenReport("ESVetiquetteprod4", Access.AcView.acViewNormal)
            End Select
        End If

le seule problème, c'est que le créateur de la base de donnée access a programmer une ouverture de session avec nom utilisateur et mot de passe.

sur la ligne :

Code :

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

Access03.OpenCurrentDatabase(MaDBMat, False, "passw0rd")

passw0rd ne sert a rien...je l'enlève, le change ou danse en même temps que mon application s'exécute. il demande toujours un mot de passe qui ne s'inscrit pas automatiquement.

à ce que j'ai pu savoir de cette base de donnée ; access à l'ouverture, va chercher le nom d'utilisateur et mot de passe de domaine réseau. il inscrit le nom d'utilisateur et demande la confirmation du mot de passe (passw0rd que je n'arrive pas à passer à access.

merci encore de votre aide...je suis hélas bloqué la pour l'instant

[Ouija33]

j'y suis presque,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim MaDBMat As String
            Dim Access03 As New Access.Application
            MaDBMat = "c:\rep\test.mdb /user moi /pwd passw0rd"
            Access03.OpenCurrentDatabase(MaDBMat, False)
            Select Case ligne
                Case 1
                    Access03.DoCmd.OpenReport("ESVetiquetteprod1", Access.AcView.acViewNormal)
                Case 2
                    Access03.DoCmd.OpenReport("ESVetiquetteprod2", Access.AcView.acViewNormal)
                Case 3
                    Access03.DoCmd.OpenReport("ESVetiquetteprod3", Access.AcView.acViewNormal)
                Case 4
                    Access03.DoCmd.OpenReport("ESVetiquetteprod4", Access.AcView.acViewNormal)
            End Select

ca fonctionne si je fais un shell, mais si je l'ajoute à mon code comme si-dessus, je recois l'erreur suivante :

System.Runtime.InteropServices.COMException (0x800A1EBA): Impossible d'ouvrir la base de données parce que celle-ci est manquante, ou a été ouverte par un autre utilisateur en mode exclusif.

pourtant elle est ouverte par personne à nul part.