Discussion :

[Mymi]

Bonjour,

J'ai cherché pas mal sur le site (FAQ, Forum, Google, etc.) et j'ai trouvé des questions semblable mais jamais la réponse.

Voici donc ma question :
Je fais une requête SQL (3 tables jointes et sélection de quelques champs) sur la BD1 en Access. J'obtiens présentement le résultat dans une ADODB.Recordset. Voici ma connexion :

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
18
19
20
21
22
 
Dim sql as string
Dim rsSMAF As ADODB.Recordset
Dim cnSMAF As New ADODB.Connection
 
Set cnSMAF = New ADODB.Connection
Set rsSMAF = New ADODB.Recordset
 
sql = "SELECT [T_Resume].Dossier, [T_Resume].Date, " & _
   "[T_Resume].Profil, [T_Resume].DistanceE, " & _
   "[Patients].[GroupUID], Groups.GroupName  FROM " & _
   "([T_Resume] LEFT JOIN Patients ON [T_Resume].[PatientUID] = [Patients].[PatientUID]) " & _
   "LEFT JOIN Groups ON [Patients].[GroupUID] = [Groups].[GroupUID] "
 
 
cnSMAF.Provider = "Microsoft.Jet.OLEDB.4.0"
cnSMAF.ConnectionString = Monchemin
cnSMAF.Open
rsSMAF.CursorLocation = adUseClient
rsSMAF.Open sql, cnSMAF, adOpenDynamic, adLockOptimistic, adCmdText
 
'Close où nécessaire pour les variables

J'aimerais copier le résultat contenu dans le recordset dans une autre BD Access. La table est déjà existante mais vide (et pourrait être créé si c'est plus facile). Dans cette 2e BD j'ai le même genre de connexion.

À part boucler à travers tous les enregistrements, il n'existe pas une autre méthode pour copier un recordset dans une table?

Merci pour votre aide!

Mymi

[Delbeke]

Essaie de voir du coté des Insert Into ou Select Into du language sql

[Rico Nuch]

Essaie de voir du coté des Insert Into ou Select Into du language sql

En effet, avec une requête de ce type :

Code :

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

1
2
3
INSERT INTO target [IN externaldatabase] [(field1[, field2[, ...]])]
SELECT [source.]field1[, field2[, ...]
FROM tableexpression

[Mymi]

Merci pour votre aide!

Alors voici où j'en suis :

Code :

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

1
2
3
4
5
 
Dim cnPrinc As New ADODB.Connection
Set cnPrinc = New ADODB.Connection
sql = "Insert into SMAF SELECT * FROM [SMAF1] in [c:\maBD.mdb]"
cnPrinc.Execute sql

Ma cnPrinc est branché sur ma BD (Access) qui contient la table SMAF et où je veux envoyer mes données. Elle est identique à la SMAF1 contenue dans la BD maBD.mdb.

Peut-être que je n'ai pas la bonne façon de faire mais ça plante sur :

Code :

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

cnPrinc.Execute sql

Il me dit : Le moteur de base de donnée ne peut pas trouvé '[c:\maBD.mdb]'. Assurez-vous que le nom de paramètre ou d'alias est valide, qu'il ne comprend pas de caractère ou de ponctuation incorrect et qu'il n'est pas trop long.

Des suggestions?

Merci encore pour votre aide c'est apprécié!

[Mymi]

Ça fonctionne!

En changeant les "[" et "]" qui encadraient le nom de ma BD par des " ' ", ça fonctionne!

Code :

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

sql = "Insert into SMAF SELECT * FROM [SMAF1] in 'c:\maBD.mdb'"

Merci pour votre aide!