1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

PROCEDURE UPDATE_TABLE (p_filename IN VARCHAR2)
IS
   current_transaction_id   INT := 0;
BEGIN
   SELECT sn_tr_seq.NEXTVAL
     INTO current_transaction_id
     FROM DUAL;

   INSERT INTO sosa_tools.serial_transaction
               (transaction_id, filename, tr_date
               )
        VALUES (current_transaction_id, p_filename, SYSDATE
               );

   COMMIT;
END;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:

implementation

{$R *.dfm}

procedure TfMain.FormShow(Sender: TObject);
begin
 Caption := AppVersion;
end;

procedure TfMain.Button1Click(Sender: TObject);
begin
 loadExcel('C:\Development\Tools\SerialTracker\Data\08_27082010.xlsx');
end;

procedure TfMain.FormDestroy(Sender: TObject);
begin
  if not VarIsEmpty(V) then
    V.Quit;
end;

procedure TfMain.loadExcel(FileName: String);

  var
   exit : Boolean;
   i : integer;
   test : String;
   MySettings: TformatSettings;

begin
  MySettings.DateSeparator := '.';
  MySettings.ShortDateFormat := 'dd.mm.yy';
  V := CreateOleObject('Excel.Application');
  V.Visible := True;
  V.Workbooks.Open(FileName);
  //ShowMessage(V.activeWorkbook.worksheets[1].Cells[1,1]);
  dm.qSerialTracker.Close;
  dm.qSerialTracker.Open;
  //dm.qSerialTracker.Edit;
  //dm.qSerialTracker.Insert;
  //dm.qSerialTracker.FieldByName('order_no').AsString := V.activeWorkbook.worksheets[1].Cells[i,1];

   // Dies funktioniert leider nicht..
   dm.update_table_serial.ParamByName('p_filename').AsString := ('08_27082010.xlsx');

   
//Dieser Teil funktioniert
i := 1;
   exit := False;
   repeat
     Inc(i);
     test := V.activeWorkbook.worksheets[1].Cells[i, 1];
       dm.sp_ins_sn_line.ParamByName('p_order_no').AsString := V.activeWorkbook.worksheets[1].Cells[i, 1];
       dm.sp_ins_sn_line.ParamByName('p_digit8').AsString := V.activeWorkbook.worksheets[1].Cells[i, 2];
       dm.sp_ins_sn_line.ParamByName('p_bezeichnung').AsString := V.activeWorkbook.worksheets[1].Cells[i, 3];
       dm.sp_ins_sn_line.ParamByName('p_snr').AsString := V.activeWorkbook.worksheets[1].Cells[i, 4];
       dm.sp_ins_sn_line.ParamByName('p_empfaenger').AsString := V.activeWorkbook.worksheets[1].Cells[i, 5];
       dm.sp_ins_sn_line.ParamByName('p_adresse').AsString := V.activeWorkbook.worksheets[1].Cells[i, 6];
       dm.sp_ins_sn_line.ParamByName('p_plz').AsString := V.activeWorkbook.worksheets[1].Cells[i, 7];
       dm.sp_ins_sn_line.ParamByName('p_ort').AsString := V.activeWorkbook.worksheets[1].Cells[i, 8];
       dm.sp_ins_sn_line.ParamByName('p_lieferdatum').AsDate := StrToDate(V.activeWorkbook.worksheets[1].Cells[i, 9], MySettings);
       dm.sp_ins_sn_line.Execute;
     test := V.activeWorkbook.worksheets[1].Cells[i + 1, 1];
   until Length(test) = 0;

end;

end.                    

1:
2:
3:
4:
5:

INSERT INTO sosa_tools.serial_transaction
               (transaction_id, filename, tr_date
               )
        VALUES (current_transaction_id, p_filename, SYSDATE
               );                    

1:
2:

   dm.update_table_serial.ParamByName('p_filename').AsString := ('08_27082010.xlsx');
   dm.update_table_serial.Execute;