Discussion :

[greg360]

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 )
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 :

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

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 ?

[ProgElecT]

Salut
On ne type pas les variables en VBScript.

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
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

[greg360]

C'est parfait, merci beaucoup, en effet je me basais sur mes maigres connaissances en vba et, du coup, je typais mes variables.

[Marsupio]

Bonjour,

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

il a fallu que je remplace :

Code :

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

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

par

Code :

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

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 ?