cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 2018
-
6 mai 2006 à 13:51
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 2018
-
6 mai 2006 à 21:51
Bonjour à tous....
J'ai, déjà, posté cette requête, jeudi dernier,
mais n'ayant eu aucune réponse, j'espère qu'avec
cette relance, je pourrais obtenir un petit
aiguillage pour mon problème.
Je suis bloqué dès le début de mon projet.
Lecture de toutes les tables d'une base .mdb (dates début-fin en paramètre)
pour y extraire des messages issus de l'exploitation
batchs dans laquelle les jors sont sauvegardés.
En VBS, jusqu'à présent, j'utilisais la synthaxe:
Const PathOut = "d:\Oxauser"
MaBaseJor = PathOut & "JOB_DIA7.MDB"
MaTable = "JOB"
MaRequete = "SELECT JOBID,AMJ FROM " & MaTable & " ORDER BY AMJ"
Set Db = CreateObject("ADODB.Connection")
Set Rs = CreateObject("ADODB.Recordset")
Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MaBaseJor
Rs.Open MaRequete ,Db
Do While Not Rs.EOF
' Actions
Rs.MoveNext
Loop
Rs.Close
....
Mon nouveau problème:
Dans une base Access, exemple JOR.mdb, je n'arrive pas à lister toutes les tables.
Je souhaiterai ouvrir toutes les tables "J-????-aammjj_????", une par une (il y a # 400),
pour y extraire certaines informations.
Dans l'aide d'Access, il y a la notion de AllTables mais en VB du style,
'Set dbs = Application.CurrentData
' Recherche les objets AccessObject ouverts
' dans la collection AllTables.
For Each obj In db.AllTables
If obj.IsLoaded = TRUE then
' Affiche le nom de l'objet.
MsgBox obj.Name
End If
Next 'obj
je n'arrive pas à transposer le code VB en VBS.
Donc, si quelqu'un, scriptant en VBS, a des solutions.
Merci.
jean-marc
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 201827 6 mai 2006 à 21:51
Bonsoir,
"Asecher - Alain", je planche sur mon problème depuis 3-4 jours.
Et que nenni, je ne trouve pas de solution.
Merci de ton encouregement à perserver !!!