[VBS] ouverture d'une bdd access avec un vbscript [RESOLU]

ouverture d'une bdd access avec un vbscript [RESOLU] [VBS] - VB/VBA/VBS - Programmation

Marsh Posté le 12-10-2010 à 11:16:57    

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 :
  1. dim strconnect as string
  2. dim dbconnect as new adodb.connection
  4. strconnect ="provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Demo\GMAO\GMAO.accdb;"
  5. 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 ?


Message édité par greg360 le 19-10-2010 à 10:31:40

---------------
Greg
Reply

Marsh Posté le 12-10-2010 à 11:16:57   

Reply

Marsh Posté le 19-10-2010 à 10:30:51    

Problème résolu, je poste la solution pour aider d'autres utilisateurs ayant le même problème :
 

Code :
  1. dim dbconnect
  2. dim rst
  3. dim path
  4. dim table
  5. dim SQL
  7. path = "mypath"
  8. table = "Table1"
  10. Set dbconnect = createobject("ADODB.Connection" )
  11. SQL="Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & path & ";"
  12. dbconnect.open SQL
  14. set rst = CreateObject("ADODB.Recordset" )
  15. rst.open "sqlreq", dbconnect
  16. rst.Close
  17. dbconnect.Close


Message édité par greg360 le 19-10-2010 à 10:31:11

---------------
Greg
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed