Open impossible sur fichier Access
Bonjour
J'ai une erreur sur la ligne 16 :
Fichier'(Inconnu)' introuvable
Code : 80004005
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Set fso = CreateObject("Scripting.FileSystemObject")
curvbs = WScript.ScriptFullName ' nom du VBS en cours
curdir = left(curvbs,InStrRev(curvbs,"\")) ' nom du répertoire en cours
mdb = curdir & "mescles.mdb"
if not fso.FileExists(mdb) then msgbox "non trouvé",,mdb : wscript.quit
connstring = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"User Id=admin;Password=p4p7;DBQ=.\mescle.mdb"
Set Rs = CreateObject("ADODB.RecordSet")
'Rs.open(connstring)
mysql = "SELECT * from Ident"
Rs.open mySQL, connstring |
