[R] Copier le contenu d'une table access dans un tableau

[havoc2]

Bonjour à tous,

je suis en train de programmer un outil qui me permettra (enfin j'espère ) de récupérer les données de 2 tables Access et de les coller dans une troisième, pour ce qui est de la connexion à la base et à l'insertion des données, pas de problème, par contre pour ce qui est de la récupération des données dans un tableau, là ça coince.

J'ai récupéré des morceaux de code sur d'autres programmes, et je pense que le langage utilisé pour l'accès aux tables est VB (sans conviction). Ne connaissant pas ce langage et après moultes (ca se dit ça?) recherches infructueuses, j'en viens à vous poser la question...

Voici le code :

► Afficher le texte

Code : Tout sélectionner

;-------------------------------
; Declaration gestionnaire d'erreur pour objet COM
;-------------------------------

Global $oComError       = ObjEvent("AutoIt.Error", "MyErrFunc")
Global $UneChaine       = ""
Global $MonCompteur     = 0
Global $NomFichierLog   = "Log.txt" ; Fichier Log pour tests
Global $LogFile     = ""    
Global $Temp        = ""    ; Variable temp pour tests
Global $Resultat        = ""

;Variables de saisie des chiffres clés dans le tableau excel

;-------------------------------

Sleep(5000)

;-------------------------------
; Acces aux  objets ADO = Access
;-------------------------------
Global $objRecordSet            = ObjCreate("ADODB.Recordset")
Global $objRsResult             = ObjCreate("ADODB.Recordset")
Global $objConnection           = ObjCreate("ADODB.Connection")
Global $ChaineConnexion         = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=MaBaseDeDonnees.mdb" ; Noter ici le nom de la base Access
Global $CommandeSQL              = ""
Global $NbEnregs                     = 0
Global $Array                           = ""
Global Const $adOpenStatic       = 3
Global Const $adLockOptimistic   = 3

;-------------------------------
; Ouverture de l'objet permettant d'accéder à la base access
;-------------------------------

$objConnection.Open( $ChaineConnexion )

;-------------------------------
; Ouverture du fichier de Log
;-------------------------------

$LogFile = FileOpen( $NomFichierLog, 2)

;-------------------------------
; Récupération de la liste des enregistrements de ma table
;-------------------------------

$CommandeSQL = "SELECT * FROM MaTable"

$objRecordSet.Open( $CommandeSQL, $objConnection, $adOpenStatic, $adLockOptimistic )
$NbEnregs = $objRecordSet.RecordCount
FileWriteLine( $LogFile, "1) Nombre de lignes : " & $NbEnregs )

;Accès aux données

$objRecordSet.Close

;-------------------------------
; Récupération de la liste des enregistrements de ta table
;-------------------------------

$CommandeSQL = "SELECT * FROM TaTable"

$objRecordSet.Open( $CommandeSQL, $objConnection, $adOpenStatic, $adLockOptimistic )
$NbEnregs = $objRecordSet.RecordCount
FileWriteLine( $LogFile, "1) Nombre de lignes : " & $NbEnregs )

;Accès aux données

$objRecordSet.Close

;-------------------------------
; Mise en correspondance des lignes
;-------------------------------

;-------------------------------
; Création des lignes correspondantes dans  la table résultat
;-------------------------------

$CommandeSQL = "INSERT INTO NotreTable (MaTable_id,MaTable_info,TaTable_id,TaTable_Info) VALUES ('" &   $DB_MaTable_id & "','" &   $DB_MaTable_Info & "','" &   $DB_TaTable_id & "','" &   $DB_TaTable_Info & ")"
FileWriteLine($LogFile, "2) Requete INSERT : " & $CommandeSQL )
$objConnection.Execute( $CommandeSQL )
Sleep(1000)

;-------------------------------
; Fermeture des connexions
;-------------------------------
FileClose( $LogFile )
$objConnection.Close

Voilà, le script est encore en chantier (il manque des morceaux) mais je recherche la commande qui me permette de récupérer les champs de mes tables Access et une fois cela fait de les intégrer dans une variable de type tableau...
Je sais que lorsque j'exécute la commande

Code : Tout sélectionner

$objRecordSet.RecordCount

J'obtiens le nombre de lignes de résultat de ma requête, donc je suppose qu'il doit y avoir une commande $objRecordSet.RecordQuelqueChose qui me permettrait de récupérer les données...

Merci d'avance pour vos réponses

Bonne Fin de journée

[moutelous]

Bonsoir,

Juste une petite remarque parceque je ne comprends pas trop là ...

Pourquoi vouloir passer par un langage de script tel qu'autoit pour régler ce genre ce problème ?

A partir de 2 tables access pour en créer une troisième il est bien plus simple d'utiliser une macro VBA en interne ....

[havoc2]

Bonjour moutelous,

Tout d'abord car je ne maitrise pas VBA, comme je l'ai expliqué dans mon post, et ensuite, je voudrais avoir un raccourci sur mon bureau vers cet exécutable, et je ne crois pas que cela soit possible avec une macro... Enfin, d'après mes connaissances VBA qui sont assez limitées...

J'ai avancé dans mes recherches :

Code : Tout sélectionner

$objRecordSet.MoveFirst

While $objRecordSet.EOF=0
     FileWriteLine( $LogFile, "1.1) Valeur de EOF : " & $objRecordSet.EOF)
     $Array[$i][0] = $objRecordSet.Fields[0]
     $Array[$i][1] = $objRecordSet.Fields[1]
     FileWriteLine( $LogFile, "2) Valeurs des lignes : " & $Array[$i][0] & ";" & $Array[$i][1])
     $i +=1
     $objRecordSet.MoveNext
Wend

Par contre, il n'aime pas :
"Fields[0]" : J'obtiens le message d'erreur suivant :Illegal text at the end of statement (one statement per line)
"Fields(0)" : J'obtiens le message d'erreur suivant :Badly formated variable or macro

[havoc2]

J'avance petit à petit...

j'ai trouvé un forum en anglais où une personne a utilisé la commande :

Code : Tout sélectionner

$objRecordSet.Fields("MaTable_id").Value

Et chez qui à priori, cela fonctionne...Mais chez moi, j'ai l'erreur : "the requested action with this object has failed"

Peut-être un problème d'include... Mais pour ObjCreate, je n'ai pas l'impression qu'il y ait besoin d'include particulier, j'ai déjà ca :

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <File.au3>
#include <Math.au3>
#include <Array.au3>

Bref je tourne en rond et j'arrive pas à récupérer les valeurs contenues dans mes tables access... Je pense que je vais aller acheter de la corde ...
Si quelqu'un a une idée là dessus (sur mon problème, pas sur la corde )

A vot' bon coeur

[Tlem]

Le lien vers le post du forum Anglais aurait été intéressant.

[havoc2]

Voici le lien : http://www.autoitscript.com/forum/lofiv ... 12456.html...

Effectivement cela fonctionne, j'avais mis le nom de mon champ entre crochets...Il n'en fallait pas.

J'espère que ce post pourra aider les personnes qui ont (ou auront) le même problème que moi...

[Tlem]

Je n'y connais pas grand chose dans l'accés aux bases de données, mais ceci ne vous conviendrait-il pas ?
http://www.autoitscript.com/forum/index ... ess++table

[havoc2]

Et bien je ne pense pas, car mes requêtes attaquent une base access, et à moins de pouvoir déterminer les paramètres (chemin...) dans la fonction :

Code : Tout sélectionner

_SQLConnect(-1,"localhost","test","sa","superartcore") ; fonction donnée dans la page proposée par Tlem
 

il ne sera pas possible de créer la connexion, à moins de créer un accès web à la base access, et je ne sais même pas si ça peut se faire ...

[Tlem]

Le lien était là pour guider.

Je verrais plutôt ceci pour votre recherche : http://www.autoitscript.com/forum/index ... t&p=415426