Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Transfert d'une requete a une table

Transfert d'une requete a une table

3 réponses
Avatar
Sim
Bonjour,

J'aurai de besoins que quelqu'un m'aide a faire un bout de code en vba pour
transferer une requete dans une table.

je m'explique....

J'ai 2 base de donnée (A et B)

Dans ma base A j'ai une requete nommer "bidon" avec les champs numéro et
niveau il faut que je prennent tout les donnée de cette requete et les
transferer dans ma table "Final" de ma base de donnée B

Mais il y a un critere important a regarder avant de transferer les donnée
....il faut regarder dans la table final si les champs numero ET les champ
niveau qui provienne de bidon existe dans la table "Final". si cé le cas
supprimer tout les champ dans final qui corresponde a ces 2 critere. Pour
enfin transferer les donnée. J'ai déja coder un bout mais cela ne fonctionne
pas :(

J'espere bien me faire comprendre

Merci a tous de votre futur aide :)
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Eric
Bonjour,

Un truc comme ça à tester sur une copie des bases:
J'ai supposé numero Numérique et niveau Texte
Sub zz()
' Charger la référence Microsoft DAO 3.x Object Library
Dim bd1 As Database, bd2 As Database
Dim rst As DAO.Recordset
Dim strSQL As String
Set bd1 = CurrentDb ' la base A
' Adapter le chemin de la bd B
Set bd2 = Workspaces(0).OpenDatabase(CurrentProject.Path & "b.mdb")
Set rst = bd1.OpenRecordset("bidon")
While Not rst.EOF
strSQL = "delete * from final where numero=" & rst(0) _
& " and niveau='" & rst(1) & "';"
bd2.Execute strSQL
strSQL = "Insert into Final values(" & rst(0) & ",'" & rst(1) &
"');"
bd2.Execute strSQL
rst.MoveNext
Wend
rst.Close
bd2.Close
Set rst = Nothing
Set bd2 = Nothing
End Sub

Bonjour,

J'aurai de besoins que quelqu'un m'aide a faire un bout de code en vba pour
transferer une requete dans une table.

je m'explique....

J'ai 2 base de donnée (A et B)

Dans ma base A j'ai une requete nommer "bidon" avec les champs numéro et
niveau il faut que je prennent tout les donnée de cette requete et les
transferer dans ma table "Final" de ma base de donnée B

Mais il y a un critere important a regarder avant de transferer les donnée
....il faut regarder dans la table final si les champs numero ET les champ
niveau qui provienne de bidon existe dans la table "Final". si cé le cas
supprimer tout les champ dans final qui corresponde a ces 2 critere. Pour
enfin transferer les donnée. J'ai déja coder un bout mais cela ne fonctionne
pas :(

J'espere bien me faire comprendre

Merci a tous de votre futur aide :)





--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
Sim
Re Bonjour Eric,

Merci Beaucoup !! sa l'air de fonctionner #1 :)


"Eric" a écrit dans le message de news:
%
Bonjour,

Un truc comme ça à tester sur une copie des bases:
J'ai supposé numero Numérique et niveau Texte
Sub zz()
' Charger la référence Microsoft DAO 3.x Object Library
Dim bd1 As Database, bd2 As Database
Dim rst As DAO.Recordset
Dim strSQL As String
Set bd1 = CurrentDb ' la base A
' Adapter le chemin de la bd B
Set bd2 = Workspaces(0).OpenDatabase(CurrentProject.Path & "b.mdb")
Set rst = bd1.OpenRecordset("bidon")
While Not rst.EOF
strSQL = "delete * from final where numero=" & rst(0) _
& " and niveau='" & rst(1) & "';"
bd2.Execute strSQL
strSQL = "Insert into Final values(" & rst(0) & ",'" & rst(1) &
"');"
bd2.Execute strSQL
rst.MoveNext
Wend
rst.Close
bd2.Close
Set rst = Nothing
Set bd2 = Nothing
End Sub

Bonjour,

J'aurai de besoins que quelqu'un m'aide a faire un bout de code en vba
pour transferer une requete dans une table.

je m'explique....

J'ai 2 base de donnée (A et B)

Dans ma base A j'ai une requete nommer "bidon" avec les champs numéro et
niveau il faut que je prennent tout les donnée de cette requete et les
transferer dans ma table "Final" de ma base de donnée B

Mais il y a un critere important a regarder avant de transferer les
donnée ....il faut regarder dans la table final si les champs numero ET
les champ niveau qui provienne de bidon existe dans la table "Final". si
cé le cas supprimer tout les champ dans final qui corresponde a ces 2
critere. Pour enfin transferer les donnée. J'ai déja coder un bout mais
cela ne fonctionne pas :(

J'espere bien me faire comprendre

Merci a tous de votre futur aide :)


--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr




Avatar
Eric
re,

Manque en fin de procédure, oubli impardonnable :
bd1.close
Set bd1=Nothing

Re Bonjour Eric,

Merci Beaucoup !! sa l'air de fonctionner #1 :)


"Eric" a écrit dans le message de news:
%

Bonjour,

Un truc comme ça à tester sur une copie des bases:
J'ai supposé numero Numérique et niveau Texte
Sub zz()
' Charger la référence Microsoft DAO 3.x Object Library
Dim bd1 As Database, bd2 As Database
Dim rst As DAO.Recordset
Dim strSQL As String
Set bd1 = CurrentDb ' la base A
' Adapter le chemin de la bd B
Set bd2 = Workspaces(0).OpenDatabase(CurrentProject.Path & "b.mdb")
Set rst = bd1.OpenRecordset("bidon")
While Not rst.EOF
strSQL = "delete * from final where numero=" & rst(0) _
& " and niveau='" & rst(1) & "';"
bd2.Execute strSQL
strSQL = "Insert into Final values(" & rst(0) & ",'" & rst(1) &
"');"
bd2.Execute strSQL
rst.MoveNext
Wend
rst.Close
bd2.Close
Set rst = Nothing
Set bd2 = Nothing
End Sub


Bonjour,

J'aurai de besoins que quelqu'un m'aide a faire un bout de code en vba
pour transferer une requete dans une table.

je m'explique....

J'ai 2 base de donnée (A et B)

Dans ma base A j'ai une requete nommer "bidon" avec les champs numéro et
niveau il faut que je prennent tout les donnée de cette requete et les
transferer dans ma table "Final" de ma base de donnée B

Mais il y a un critere important a regarder avant de transferer les
donnée ....il faut regarder dans la table final si les champs numero ET
les champ niveau qui provienne de bidon existe dans la table "Final". si
cé le cas supprimer tout les champ dans final qui corresponde a ces 2
critere. Pour enfin transferer les donnée. J'ai déja coder un bout mais
cela ne fonctionne pas :(

J'espere bien me faire comprendre

Merci a tous de votre futur aide :)


--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr








--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr