Delphi & Oracle

[gummiente]

end.

Habe in Oracle eine Procedure erstellt.

SQL-Code:

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;

Daten aus dem ExcelFile in die Datenbank hinein schreiben und anzeigen funktioniert ganz gut.

Jedoch das Speichern von Filename in die Datenbank funktioniert leider nicht.

Bitte helft miiir! >.<

Delphi-Quellcode:

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;

[ULIK]

Crosspost: http://www.delphi-forum.de/viewtopic.php?t=101342

Antwort siehe eben dort.

Uli