delphi importer une table access d'une base vers une autre

Bonjour,
Je souhaite importer une table d'une base b1 vers une autre base b2, en VBA je le peux mais en delphi impossible. Le code vba est le suivant

Code:

---

1 2 3

DoCmd.TransferDatabase acImport, "Microsoft Access", _ "D:\Sauvegarde\Bases\Bdd\BaseG\B2.mdb", acTable, "selections", _ "selections_import"

---

Je le faisais en parcourant la table B2 et remplissant B1 mais une base volumineuse m'a posé un problème de lenteur.
j'utilise delphi7 avec access2003
Merci

bonjour, voici la solution
1-placer le composant AccessApplication1 de la palette Serveurs en fin de la palette cliquer sur >>

Code:

---

1 2 3 4 5 6 7

procedure TForm1.Button1Click(Sender: TObject); begin AccessApplication1.OpenCurrentDatabase('D:\BaseG\B1.mdb', false,''); AccessApplication1.DoCmd.TransferDatabase (acImport, 'Microsoft Access','D:\Sauvegarde\Bases\Bdd\BaseG\B2.mdb', acTable, 'selections','selections_import','',''); accessapplication1.Free ; end;

---

et si vous avez une base protéger par mot de passe vous allez exporter une table voici le code
chemin1 est le chemin de la base protéger bdd1.mdb

Code:

---

1 2 3 4 5 6 7 8 9

if opendialog1.Execute then chemin1:=opendialog1.FileName; if ((length(opendialog1.FileName)<> 0) and (copy(opendialog1.FileName,length(opendialog1.FileName)-2,3)='mdb')) then begin AccessApplication1.OpenCurrentDatabase(chemin1, false,mpasse); AccessApplication1.DoCmd.TransferDatabase (acexport, 'Microsoft Access',ExtractFilePath(Application.ExeName)+'bdd2.mdb', acTable, 'selection2','selection2_export','',''); AccessApplication1.Free ; end;

---

Merci.