Discussion :

[Marsupio]

Salut,

Je souhaite ouvrir une base access en évitant les messages de sécurité à l'ouverture. Il y a la méthode d'agir sur la base de registre. Mais malheureusement, c'est pour une application que je me sert pour mon boulot et nous n'avons pas accès au registre (résultat des demandes au service informatique => non autorisé).

En cherchant sur le forum, j'ai trouvé le code suivant, lancé depuis un script VBS :

Code :

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

1
2
3
4
5
6
7
Const cDatabaseToOpen = "Z:\_Bdd Test\BddEssai\Toto.accdb"
Dim AcApp
Set AcApp = CreateObject("Access.Application")
AcApp.AutomationSecurity = 1
AcApp.Visible = True
AcApp.OpenCurrentDatabase cDatabaseToOpen
AcApp.UserControl = True

Il marche nickel (pas de demande sécurité, ...) mais seulement si la version Access est installé. Si j'utilise ce code avec uniquement le runtime installé sur le poste, j'ai l'erreur suivante :

Un composant ActiveX ne peut pas créer un object:'Access Application'

L'erreur est sur le code :

Code :

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

Set AcApp = CreateObject("Access.Application")

Malgré mes recherches et essais selon ce que j'ai trouvé, je n'arrive pas à trouver le problème.

Une solution serait la bienvenue

Merci,

[pc75]

Bonjour,

Tu peux accéder à une base Access via ADO :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Set Rs = CreateObject("ADODB.RecordSet")
connstring = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=Toto.mdb"
 
mysql & "SELECT * from MaTable "
Rs.open mySQL, connstring
if not Rs.EOF then
   do while not Rs.eof
      MsgBox Rs(0)
      Rs.MoveNext
   loop
end if
Rs.Close
Set Rs = Nothing

[Marsupio]

Merci pour cette réponse,

Malheureusement, je n'arrive pas pour le moment à l'appliquer à ma situation.

j'ai le message d'erreur "erreur de syntaxe" à la ligne

Code :

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

mysql & "SELECT * from MaTable "

Je suis sur la voie, c'est déjà pas mal.

a+

[SfJ5Rpw8]

remplace le & par un =

[Marsupio]

Réponse ultra rapide, donc je ne suis pas le seul à être insomniaque,

J'ai essayé mais ça ne fonctionne toujours pas.

Erreur sur la ligne :

Code :

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

Rs.open mySQL, connstring

[Microsoft][Gestionnaire de pilote ODBC] Source de données introuvable ou nom de pilote nom spécifié.

Bon vais aller dormir, moi, j'aurais peut-être l'inspiration demain, lol

a+