sorry, ich glaube ich habe jetzt alle Copy-Paste Fehler behoben
Delphi-Quellcode:
*********************************************************************
procedure TForm1.Button1Click(Sender: TObject);
var
sSql : String;
stmtParams: TParams;
begin
SQLConnect1.Connected := True;
SQLQuery1.SQL.Clear;
sSql := '';
sSql := 'INSERT INTO SCAN_LOG ' +
'(DATAMART, CUBE, TRANFORMER_DATE, ' +
'CODE, DESCRIPTION, SEQ) ' +
'VALUES (:Datamart, :Cube, :Transformer_Date, ' +
':Code, :Description, :SEQ)';
SQLQuery1.SQL.Add(sSql);
SQLQuery1.Params[0].AsString := 'FUS';
SQLQuery1.Params[1].AsString := 'FuS_Behaelter';
SQLQuery1.Params[2].AsDateTime := Now;
SQLQuery1.Params[3].AsString := '12345678';
SQLQuery1.Params[4].AsString := 'Dies ist ein Test';
SQLQuery1.Params[5].AsInteger := 250;
SQLQuery1.ExecSQL(False);
SQLConnect1.Connected := False;
end;
Oracle Table:
CREATE TABLE DWH.SCAN_LOG
(
DATAMART VARCHAR2(255),
CUBE VARCHAR2(255),
TRANFORMER_DATE DATE,
CODE VARCHAR2(255),
DESCRIPTION VARCHAR2(255),
SEQ INT
)