Code: Select all
dtsErrorMessage := TUniQuery.Create(nil);
dtsErrorMessage.Name := 'dtsMSGEngineMessages';
dtsErrorMessage.SQL.Clear;
dtsErrorMessage.SQL.Add('SELECT * ');
dtsErrorMessage.SQL.Add('FROM ');
dtsErrorMessage.SQL.Add('(SELECT strErrorID, ');
dtsErrorMessage.SQL.Add(' strTitle, ');
dtsErrorMessage.SQL.Add(' strDescription ');
dtsErrorMessage.SQL.Add('FROM errorscustom ');
dtsErrorMessage.SQL.Add('WHERE strErrorID = :strErrorCode ');
dtsErrorMessage.SQL.Add(' ');
dtsErrorMessage.SQL.Add('UNION ');
dtsErrorMessage.SQL.Add(' ');
dtsErrorMessage.SQL.Add('SELECT strErrorID, ');
dtsErrorMessage.SQL.Add(' strTitle, ');
dtsErrorMessage.SQL.Add(' strDescription ');
dtsErrorMessage.SQL.Add('FROM errors ');
dtsErrorMessage.SQL.Add('WHERE strErrorID = :strErrorCode ');
dtsErrorMessage.SQL.Add(') AS errors ');
dtsErrorMessage.SQL.Add('GROUP BY strErrorID ');
dtsErrorMessage.ParamByName('strErrorCode').AsString := 'F_QUES_BUY_CONNECTED_DEL';
dtsErrorMessage.Execute;