Discussion :

[fawzee]

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 :

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

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.

[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

[Kruttie]

Voici ce que j'ai commencé à taper :

Code :

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

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 ?