Code: Select all
sqlCmd.SQL.Text := '';
sqlCmd.SQL.Text := 'begin update demo set oid = 202 where oid = -1;
commit; end;'
sqlCmd.Execute;
always get 1
best regards ....
Code: Select all
sqlCmd.SQL.Text := '';
sqlCmd.SQL.Text := 'begin update demo set oid = 202 where oid = -1;
commit; end;'
sqlCmd.Execute;
Code: Select all
OraQuery1.SQL.Text:= 'begin '+#13+
'update demo set oid = 202 where oid = -1; '+#13+
':cnt := SQL%ROWCOUNT; '+#13+
'commit; '+#13+
'end;';
OraQuery1.ParamByName('cnt').ParamType:= ptOutput;
OraQuery1.ParamByName('cnt').DataType:= ftInteger;
OraQuery1.Execute;
ShowMessage(OraQuery1.ParamByName('cnt').AsString);Code: Select all
OraSession1.ExecSQL('update demo set oid = 202 where oid = -1',[]);
ShowMessage(IntToStr(OraSession1.SQL.RowsAffected));