ADODB.Recordset

[therafou]

Salut,

je cherche à savoir, si l'on peut mettre en place la solution suivante.
j'ai une zone sur un feuille qui est déffinit par A3:M5000.
j'aimerai pouvoir la mettre dans une RecordSet pour ensuite l'envoyer dans une base Access par une update ou Insert into.

Exemple:

Sub importer_access_jour()

Dim source As ADODB.Connection
Dim zone As ADODB.Recordset
Dim chemin As String

chemin = ActiveWorkbook.Path
' ouvre la base de données Access
Set source = New ADODB.Connection
source.Provider = "Microsoft.Jet.OLEDB.4.0;"
source.Open chemin & "\autocom.mdb"

'Création du RecordSet
Set zone = New ADODB.Recordset

' envoye de la zone vers le RecordSet "zone"
Set zone = Range("A3:M5000")

/-------------------------------/
'La fonction qui va faire que le RecordSet qui contient la zone sera envoyé vers la base.
/-------------------------------/

'ferme la requête
zone.Close
source.Close

End Sub

Bien entendu le bout de code ci-dessus ne fonctionne pas, mais je l'ai inscrit pour mieux vous montrer mon idée.

voilà si vous avez des solutions ou exemples.

Merci d'avance

 

[Wan]

Re : ADODB.Recordset

Bonjour,

Essaie de voir faire une macro sur excel pour connaitre l'exportation de tes donnés sur access. en ce qui concerne, le chemin de la nouvelle base de données, il faudrait l'identifié dans ton code en donnant le chemin d'adresse correcte (par exemple vers un répertoire)

En tout cas l'utilisation du "ADODB" est plus tôt conseiller pour access et sql (mais ça) c'est une autre histoire.

Utilise donc une macro pour connaitre le bout de code dont tu as besoin.

Erwan

 

[_Thierry]

Re : ADODB.Recordset

Bonsoir Wan, Therafou

Wan, je ne suis pas vraiment d'accord avec "En tout cas l'utilisation du "ADODB" est plutôt conseillée pour access et sql (mais ça) c'est une autre histoire"

En effet on peut faire de très belles associations Excel/Access/Excel avec ADO et ADODB... Voir le très beau travail des Michel's et aussi de quelques contributions de ma part dans ce Forum. (Faire recherches sur ADO)

Pour Therafou, je te conseille ce Fil
https://www.excel-downloads.com/threads/import-auto-excel-dans-access.51353/

Bon Week End

@+Thierry
​

 

[Wan]

Re : ADODB.Recordset

Merci de m'avoir corriger therafou, je suis désolé Thierry de t'avoir conduit en erreur. Moi-même, je ne le savais pa !