Gestinux Forum

Code: Select all

SELECT J.Code, J.Name, J.ManualEntry, J.JournalClass, AC.Id, AC.Account, J.CloseDate
FROM Journals J
LEFT JOIN Accounts AC ON AC.Id=J.LinkedAccountId
WHERE J.Id = 1
FOR UPDATE

Code: Select all

SELECT J.Code, J.Name, J.ManualEntry, J.JournalClass, AC.Id, AC.Account, J.CloseDate
FROM Journals J
LEFT JOIN Accounts AC ON AC.Id=J.LinkedAccountId
WHERE J.Id = 1
FOR UPDATE OF J

Code: Select all

function TableNameFromQuery(Query: string): string;
var
  TempStr: string;
  offset, i: integer;
  KeyWords: array[0..6] of string = ('FROM','LEFT','RIGHT','INNER','WHERE',',',' ');
  Direction: array [0..6] of integer = (0,1,1,1,1,1,0); // 0 - Right Part , 1 - Left Part
begin
  TempStr := UpperCase(Query);
  for i := 0 to 6 do begin
    offset := Pos(KeyWords[i], TempStr);
    if offset > 0 then
      case Direction[i] of
        0: TempStr := Trim(RightStr(TempStr, Length(TempStr) - offset - (Length(KeyWords[i])-1)));
        1: TempStr := Trim(LeftStr(TempStr, offset - 1));
      end;
  end;
  result := TempStr;
end;

Code: Select all

Select(aDbConnection, aSql + ' FOR UPDATE OF ' + TableNameFromQuery(aSql));