Importer des données excel dans access DELPHI

nacer-213
Messages postés
1
Date d'inscription
samedi 17 mars 2018
Statut
Membre
Dernière intervention
9 avril 2018
- 9 avril 2018 à 10:01
Bonjour,
Je serais très reconnaissant si vous pouviez m'aider
Mon problème
les données en la même structure
Excel: n°/Nom/Pre-nom/Date de Naissance/Montant
Table Access :n°/Nom/Pre-nom/Date de Naissance/Montant
J'ai essayé ça
Var app,Sr: variant;
i,j: integer;
s:string;
trouve:boolean;
begin
if OpenDialog1.Execute then
begin
App := CreateOleObject('Excel.Application');
SR:=App.Workbooks.add(OpenDialog1.FileName);
trouve :=false;
i:=2;
while trouve=false do
begin
if Length(app.Range['A'+Inttostr(i)].Formula)>=1 then
begin
demande.Insert;
demandeNum1.Value:=app.Range['A'+Inttostr(i)].Formula ;//Et ainsi pour chaque champs


un message Erreurs : Impossible de convertir le variant de type (OleStr) en type (Double)

J'ai essayé cela aussi :
Var
Importdir,ipo :string ;
begin
if OpenDialog1.Execute then
begin
Importdir:=ExtractFileDir(OpenDialog1.FileName);
ipo:=OpenDialog1.FileName;
end;
ADOConnection1.Execute('insert into mytable select*from [Excel 8.0;Database='+ipo+'].data');
end;
Et n'a pas fonctionné
mes sincères salutations