[VBScript]ouvrir base access avec un vbscript

Version imprimable

14/10/2010, 09h19
greg360

[VBScript]ouvrir base access avec un vbscript
Bonjour à tous, je suis débutant en vbs et je suis en train de développer un petit extra pour un logiciel de GMAO.
En effet, je dois exporter des données dans une base access 2007 (.accdb) et pour ce faire, j'utilise un vbscript, codé avec le bloc-notes (les moyens du bord :oops:)
Pour le moment, je bloque sur l'ouverture de la base access, je pense utiliser la methode ADO, mais je me retrouve avec des problèmes de syntaxe à l'éxécution..

voici le code :
Code:

1 2 3 4 5 dim strconnect as string dim dbconnect as new adodb.connection strconnect ="provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Demo\GMAO\GMAO.accdb;" dbconnect.open strconnect
Au moment de l'éxécution, Windows Script Host me dit qu'à la ligne 1, caractère 16, j'ai une fin d'instruction attendue code 800A0401, ce qui correspond a la premiere lettre du premier "as"

Est-ce que quelqu'un pourrait m'aider sur ce problème svp ?

Salut
On ne type pas les variables en VBScript.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
dim ConnDataBase
dim TablES1
dim CheminNomDelabase
dim NomDeLaTable
dim SQL
 
'***** à adapter ***************************************
CheminNomDelabase = "C:\PersoFrancis\BDpourEssais.mdb"
NomDeLaTable = "Principal"
'***** fini à adapter **********************************
 
Set ConnDataBase = createobject("ADODB.Connection")
SQL="PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source= " & CheminNomDelabase & ";"
ConnDataBase.open SQL
 
Set TablES1 = CreateObject("ADODB.Recordset")
SQL= NomDeLaTable
TablES1.open SQL, ConnDataBase, 3, 2
.........
TablES1.Close
ConnDataBase.Close

14/10/2010, 15h17
greg360

C'est parfait, merci beaucoup, en effet je me basais sur mes maigres connaissances en vba et, du coup, je typais mes variables.
25/03/2011, 00h14
Marsupio

Bonjour,

Je me suis inspiré des codes proposé plus haut mais pour une base accdb.

il a fallu que je remplace :

Code:

PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=...

par

Code:

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=...

pour que ça ne me génère plus d'erreur.

Par contre, la base ne s'ouvre pas, rien ne se passe.

Des idées ?