Discussion :

[hanitax]

salut à tous , j'ai trouvé ce code qui permet de exporter données d'un fichier excel vers une table d'access je l'ai modifié quand je compile rien ne s marche que dois je faire merci
voila mon code si vous voulez m'aider à le corriger

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button3Click(Sender: TObject);
  var
  LAdoQueryExcel  : TADOQuery;
  LADOAccesCmd    : TADOCommand;
begin
   LAdoQueryExcel:=TADOQuery.Create(nil);
   LADOAccesCmd:=TADOCommand.Create(nil);

connection avec fichier access

Code :

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

1
2
3
4
LADOAccesCmd.ConnectionString:=Format('Provider=Microsoft.ACE.OLEDB.12.0;DataSource=D:\controle.mdb;','controle.mdb');
    LADOAccesCmd.Parameters.Clear;
    LADOAccesCmd.CommandText:='INSERT INTO CONT_HVBL (FACTURE,PHARMACIEN) VALUES (:FACTURE,:PHARMACIEN)';
    LADOAccesCmd.ParamCheck:=False;

connection avec fichier excel

Code :

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

1
2
LAdoQueryExcel.ConnectionString:='Provider=Microsoft.ACE.OLEDB.12.0;DataSource=D:\BL2602.XLS;';
        LAdoQueryExcel.ConnectionString:=Format('Provider=Microsoft.ACE.OLEDB.12.0;DataSource=D:\BL2602.XLS;Extended Properties="Excel 12.0 Xml;HDR=YES;IMEX=1"','BL2602.xls');

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
LAdoQueryExcel.SQL.Add('SELECT * FROM [Feuil1$]');
    LAdoQueryExcel.Open;
    while not  LAdoQueryExcel.eof do
    begin
      LADOAccesCmd.Parameters.ParamByName('FACTURE').Value := LAdoQueryExcel.FieldByname('N°BL').AsInteger;
      LADOAccesCmd.Parameters.ParamByName('PHARMACIEN').Value:= LAdoQueryExcel.FieldByname('Pharmacie').AsString;
      LADOAccesCmd.Execute;
      LAdoQueryExcel.Next;
    end;
   LAdoQueryExcel.Free;
     LADOAccesCmd.Free;
end;
 
end.

[ShaiLeTroll]

Attention LADOAccesCmd.ParamCheck:=False; ne doit être utilisé uniquement si tu fais explicitement les CreateParam, ce que tu n'as pas fourni, je retirais cette ligne !

Pourquoi ne pas utiliser deux TADOQuery ?
TADOCommand est un plus pénible je crois !

Code :

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

... ça ne marche pas ...

Message d'Erreur ?
Pas de Boucle ?



Format sans %s ??? bizarre !
je suppose que tu voulais écrire

Code :

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

1
2
3
4
5
6
7
 
(*string*)NomDuFichier := 'D:\BL2602.xls'; // un TEdit ou OpenDialog pour fournir la valeur
 
LAdoQueryExcel.ConnectionString := Format(
  'Provider=Microsoft.ACE.OLEDB.12.0;DataSource=%s;Extended Properties="Excel 12.0 Xml;HDR=YES;IMEX=1"',
  [NomDuFichier]
);

[hanitax]

j'ai effectué les modifications dont tu m'as conseillé mais les données ne sont pas transférées vers access , et quand je fais l'exécution de mon programme rien ne s'affiche ni message d'error ni exception..

[ShaiLeTroll]

As-tu regardé si il entre dans la boucle ?
Tu utilise bien ExecSQL du TADOQuery pour ton INSERT