Application Excel et Access
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:
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:
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:
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:
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. |
