Discussion :

[Sam 069]

Bonjour,

Je souhaite réaliser une requete d'insert d'une table d'une base A (local) vers une base B (reseau).
J'ai la solution de faire une table liée...mais c'est pas très excitant.

J'essaye de créer une requete d'inserten VBA.

J'ai commencé mais je ne parviens pas à faire la requete d'insert à distance.

Ce code suivant fonctionne mais il ouvre un recordset sur une table distante en fonction de la requete. Mais comment inserer des enregistrements "à distance".... je ne sais pas.

Pouvez vous m'aider.

Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Dim cnx As ADODB.Connection
Set cnx = New ADODB.Connection
 
'Définition du pilote de connexion
cnx.Provider = "Microsoft.Jet.Oledb.4.0"
'Définition de la chaîne de connexion
cnx.ConnectionString = "\_Partage\Module_V2.mdb"
'Ouverture de la base de données
cnx.Open
 
rs.Open ("Select * from T_VAL_Forescat"), cnx, adOpenForwardOnly, adLockReadOnly
 
'Ouvre un cache temporaire
cnx.CacheSize = 70000
 
End Function

[LedZeppII]

Bonjour,

On peut le faire sans code.
Extrait de l'aide d'Access:

INSERT INTO cible [(champ1[, champ2[, ...]])] [IN basededonnéesexterne]
SELECT [source.]champ1[, champ2[, ...]
FROM expressiontable

Pour identifier une table destination :
[SELECT | INSERT] INTO destination IN
{chemin | ["chemin" "type"] | ["" [type; DATABASE = chemin]]}

En mode création requête ...
Menu principal:Requête->Requête Ajout, cela ouvre une boîte de dialogue "Ajout".
Là, tu sélectionne "Autre base de données" et tu entres le chemin complet et le nom de la base de données.
Ensuite tu sélectionnes la table destination dans la liste déroulante.
Si elle est vide c'est que le nom de fichier de la base cible est mal orthographié.

A+