Ouvrir base access sous Runtime en vbs

Version imprimable

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:

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:

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,

Bonjour,

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

Code:

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

24/03/2011, 23h30
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:

mysql & "SELECT * from MaTable "

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

a+
24/03/2011, 23h35
SfJ5Rpw8

remplace le & par un =
24/03/2011, 23h52
Marsupio

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

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

Erreur sur la ligne :

Code:

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+