Discussion :

[swizerman]

J'ai le code suivant et lorsque j execute mon .vbs

et bien celui ci va lire mon access et ecrit des donnes dans un document Word.

:

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add()
 
Set objRange = objDoc.Range()
objDoc.Tables.Add objRange,1,3
Set objTable = objDoc.Tables(1)
 
 
Set objConn = CreateObject("ADODB.Connection")
Set LaBase = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= C:\Inetpub\wwwroot\FcB.accdb;"
 
 
Set objRS = CreateObject("ADODB.Recordset")
Lavariable = inputbox("Les transactions avec quelle équipes voulez-vous voir ?")
sqlString = "Select * from [Transaction] where IdEquipe = " & Lavariable &""
 
 
objConn.Open LaBase
 
 
objRS.Open SQLString, objConn	
 
 
 
do until objRS.EOF
	    for each x in objRS.Fields
	       Response.Write(x.name)
	       Response.Write(" : ")
	       Response.Write(x.value & "<br />") 
	    next
	    Response.Write("<br />")
	    objRS.MoveNext
	loop
 
 
 
 
    ExecuteGlobal oFile.WriteLine
    oFile.Close
 
 
objDoc.SaveAs("C:\Scripts\Word\Rapport.doc")
objWord.Quit
objRS.close

Il me donne une erreur à la ligne 12.
Code de la ligne 12:

Code :

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

Set LaBase = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= C:\Inetpub\wwwroot\FcB.accdb;"

et le message d'erreur est :

Erreur : Objet requis : '[String: "Provider=Microsoft.A"]'
Source Erreur d'execution Microsoft vbScript

Je ne comprends pas ce qu'il n'aime pas et je n'ai plus d'idée..

[_Ez3kiel]

Retire le Set, LaBase n'est pas un Object ici, c'est un string, donc pas de Set.

Code :

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

LaBase = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= C:\Inetpub\wwwroot\FcB.accdb;"

[swizerman]

En effet le Set était à enlever Merci

Mais maintenant il me donne une autre erreur a la ligne 20 qui est :

Code :

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

objConn.Open LaBase

Il ne semble pas aimer :

Code :

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

LaBase = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= C:\Inetpub\wwwroot\FcB.accdb;"

Il me donne comme erreur : Provider cannot be found. It may not be properly installed.
Source : Adobe.Connection.

De plusieurs endroit web que j'ai regardé personne ne semble utilise la meme instruction pour se connecter à la base de donnée Access....

[omen999]

bonjour,
peut-être que le fournisseur n'est pas installé sur ta machine...
pour le vérifier, le (ré)installer : http://www.microsoft.com/fr-fr/downl....aspx?id=13255

[swizerman]

bonjour,
peut-être que le fournisseur n'est pas installé sur ta machine...
pour le vérifier, le (ré)installer : http://www.microsoft.com/fr-fr/downl....aspx?id=13255

Que vuex-tu dire par le fournisseur n'est pas installé ?

J'ai fais certain que mon access avec mes données ce trouve au meme endroit que mon .vbs (J'ai du changer le chemin d'access et tout ce qui vient avec) et il me donne toujours la meme erreur et meme si j'ouvre mon access puis execute le .vbs pendant que access est ouvert, il me donne la même erreur.

[omen999]

Que vuex-tu dire par le fournisseur n'est pas installé ?

tout simplement que l'accès avec ADO aux fichiers Access nécessite la présence d'un driver particulier (cf le lien de mon précédent message)
c'est totalement indépendant de MS Office, ce qui signifie que l'on peut parfaitement manipuler des fichiers Access ou Excel
avec des machines sur lesquelles MS Office est absent
en revanche, l'accès aux documents Word implique la présence de MS Office (ou d'un équivalent comme Kingsoft Office...)

[swizerman]

tout simplement que l'accès avec ADO aux fichiers Access nécessite la présence d'un driver particulier (cf le lien de mon précédent message)
c'est totalement indépendant de MS Office, ce qui signifie que l'on peut parfaitement manipuler des fichiers Access ou Excel
avec des machines sur lesquelles MS Office est absent
en revanche, l'accès aux documents Word implique la présence de MS Office (ou d'un équivalent comme Kingsoft Office...)

En effet tu avais raison je n'avais pas ce driver la d'installe

l'erreur qu'il me donne maintanant c'est : a la ligne 29

ligne 29:

Code :

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

1
2
3
4
5
6
7
8
 
	       Response.Write(x.name)
	       Response.Write(" : ")
	       Response.Write(x.value & "<br />") 
	    next
	    Response.Write("<br />")
	    objRS.MoveNext
	loop

Il ne semble pas aimer ce bloque là et plus precisement le response.write je pense car en .asp c'est un response.write que j'utilise pour afficher le contenu X mais bon il me suiffit juste de trouver l'équivalent en .vbs j'imagine

Merci pour le driver !