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.
:
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:
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..
Partager