Importer des données excel dans access DELPHI

nacer-213 1 Messages postés samedi 17 mars 2018Date d'inscription 9 avril 2018 Dernière intervention - 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
Afficher la suite 

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.