Executer une requête stockée sous Access en VB Script

Version imprimable

Bonjour,

Je suis plutôt novice en vbScript et j'ai un peu de mal pour exécuter une requête d'insertion via vbScript.

Ci-dessous les détails concernant ma requête

- C'est une requête d'insertion stocké sur une base Access
- Nom de la requête = "0190_Ajout_des_appels_du_mois"
- Si j'exécute la requête manuellement et directement sur Access => Pas de problème ( 2093 lignes créées)

Le code VBScript
Code:

1 2 3 4 5 Set CommandAccess = CreateObject ("ADODB.Command") CommandAccess.ActiveConnection = strConnectAccess CommandAccess.CommandType = adCmdStoredProc CommandAccess.CommandText = "0190_Ajout_des_appels_du_mois" CommandAccess.Execute
Quand j'exécute ce code j'ai un message d'erreur qui est le suivant:

Ligne : 157 ( CommandAccess.Execute )
Erreur : Le champ est trop petit pour accepter la quantité de données que vous voulez ajouter. Essayez d'insérer ou de coller moins de données.
Code : 80040E57
Source : Microsoft JET Database Engine

Pour info: je n'ai pas vraiment la possibilité de modifier la requête stockée sur Access car elle est utilisé par d'autres appli.

Y-a-t'il des paramètres ADODB.Command à configurer?
Sinon y-a-t'il un autre moyen pour faire appel à cette requête ?

Je suis vraiment fatigué avec ca, j'ai passé mon WE entier à essayer de résoudre ce problème.

Merci d'avance pour votre aide.

28/08/2009, 11h41
Kruttie

Bonjour,

Je remonte ce poste car j'ai le même soucis.
Je suis en train d'automatiser l'ensemble d'un projet qui utilise plusieurs applications (Excel, Access, puis Excel) et de façon à n'avoir qu'un minimum de manipulation pour l'utilisateur, je créé un .vbs qui exécute le tout.

Cependant, je veux mettre à jour une table access à partir d'un fichier .txt, hors la requête d'AJOUT sous Access, ne prend pas en compte ce format de fichier, d'où mon envie d'exécuter un SQL via mon script.

Est-ce que qq'un aurait une idée ?
Merci par avance

Voici ce que j'ai commencé à taper :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Set f=createobject("scripting.FileSystemObject")
Set con=createobject("ADODB.Connection")
Set rec=createobject("ADODB.Recordset")
 
if f.FileExists ("c:\Fichiers.txt") then
   Base="c:\base.mdb"
   con.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=Base;UID=root;PASSWORD=mysql;"
   fich="INSERT INTO t_fichier ( Fichier ) IN 'c:\Fichiers.txt' SELECT t_fichier.Fichier FROM t_fichier;"
   rec.Open (fich),con
end if

mais j'ai une erreur à la ligne "fich=..." il me demande le PILOT et ne sait pas où il doit récupérer l'info...

Qui peut m'aider ?