Devart Forums

What is wrong with this code:
--------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
OraLoader1.OnPutData:= PutData;
end;

procedure TForm1.PutData(Sender: TOraLoader);
begin
Sender.PutColumnData('STT_ID', 1, 39);
Sender.PutColumnData('CREATED', 1, now);
Sender.PutColumnData('CREATED_BY', 1, 'EDGAR');
Sender.PutColumnData('UPDATED', 1, now);
Sender.PutColumnData('UPDATED_BY', 1, 'EDGAR');
Sender.PutColumnData('LOCK_VN', 1, 1);
Sender.PutColumnData('STT_DESCRIPTION', 1, 'SAMPLE');
Sender.PutColumnData('STT_BRIEF', 1, 'EMH');
Sender.PutColumnData('STT_END_DATE', 1, NOW+365);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
PutData(OraLoader1);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
OraLoader1.Load;
end;

Please send to ODAC support address complete sample that demonstrates your problem and include script to create server objects.