Discussion :

[haganidjamel]

Salut
je veux transférer les donnés d'un fichier excel vers une table access

Code :

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

1
2
3
4
5
6
7
8
9
procedure TFormMain.Button1Click(Sender: TObject);
var
 dir :string;
begin
with DM do begin
  dir:='C:\SOTRAVITORAN';
  ADOConnection1.Execute('insert into CG2017 select * from [Excel 8.0; database='+DIR+'].CG2017');
end;
end;

mais apparemment ca ne veut pas marcher
TCR.mdb
GC2017.xlsx

[SergioMaster]

Bonjour,

Tout d'abord il serait bon d'indiquer avec quelle version de Delphi vous travaillez. Cela étant, vous n'êtes pas le seul à avoir poser cette question i.e cette discussion

Mon avis qui vaut ce qu'il vaut puisque je ne suis pas un fan de ADO (ni des produits MS tels qu'Access et Excel d'ailleurs )
je ne suis pas sûr qu'il soit possible de faire ce genre de chose, c'est comme si vous aviez besoin de joindre deux tables contenues dans deux bases de données de deux SGBD différents
Si vous voulez vous connecter à un tableau Excel, même via ADO vous devez indiquer Extended properties=Excel d'où mon doute

La solution est, à mon avis, de faire deux connexions , une pour access, une pour excel et d'utiliser une bonne vieille boucle while not Excel.EOF do Access.Insert; ... Access.Post; Excel.Next; end;Maintenant, peut-être que des composants non ADO comme Firedac des nouvelles versions de Delphi permettent d'aller plus loin avec FDBatchMove ?