Discussion :

[hocine]

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 vba :

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

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

[hocine]

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

Code :

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

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 :

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

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.