Discussion :

[popzelda]

Salut tout le monde

j'ai un fichier excel je veux le convertir en une BD est ce que c'est possible

merci pour votre aide

[anapurna]

salut

tout est possible meme utilise ta feuille ecxel directement avec ado

@+ Phil

[popzelda]

merci pour ton conseil mais je suis un peut débutant en delphi

j ai essayé ce petit code pour écrire de la feuille vers la bd

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button2Click(Sender: TObject);
var xl,tl :  variant ;
    i : integer ;
begin
   xl:= xl.CreateOLEObject('Excel.application');
   tl.workbooks.open('D:\mois\janvier.xls');
   for i:=6 to 1119 do
   begin
    Table1.FieldByName('Date_acte').Value := XL.cells[1,i].value ;
    Table1.FieldByName('ord').Value := XL.cells[2,i].value ;
    Table1.FieldByName('type').Value := XL.cells[3,i].value ;
    Table1.Post;
    table1.Next;
 
   end;

pouvez vous m éclairé un peut plus ou bien me filé des liens directe STP

[anapurna]

salut

tu as oublier le append de ta table pour mettre a jour les elements
le post suffit ce qui nous donne

Code :

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

1
2
3
4
5
6
7
8
9
   for i:=6 to 1119 do
   begin
      Table1.Append;    
      Table1.FieldByName('Date_acte').Value := XL.cells[1,i].value ;
      Table1.FieldByName('ord').Value := XL.cells[2,i].value ;
      Table1.FieldByName('type').Value := XL.cells[3,i].value ;
      Table1.Post;
   end; 
end;

avec Ado un exemple ici