En .vbs Lire une table Access et Affiche le contenu en .doc
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:
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:
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..
