I don't know if this is a bug, a feature or just me being thick again. When I try and open the detail query I'm getting

---------------------------
Debugger Exception Notification
---------------------------
Project TfR.exe raised exception class EDatabaseError with message 'SubBlack: Field '_Domain' not found'.
---------------------------
Break   Continue   Help  
---------------------------

I have the datasource set properly.

MASTER QUERY

SELECT
SUBSTR(_EMail,POS('@',_Email),LENGTH(_EMail)) AS _Domain,
COUNT(*) AS _Variants,
MAX(_LastDetected)AS _LastDetected
FROM emBlackOrWhite
WHERE
NOT _WhiteList
AND _Level = 0
GROUP BY _Domain
HAVING _Variants >= :Times
ORDER BY _Domain

DETAIL QUERY

SELECT
_EMail,
_Occurances,
_LastDetected
FROM
emBlackOrWhite
WHERE
_EMail LIKE :_Domain
AND NOT _Whitelist
AND _Level = 0


The code that runs it is triggered by a page change  event

procedure TemDownloadControlForm.nlhPageHolder1AfterChange(Sender: TObject; PageIndex: Integer);
begin
if PageIndex = 0 then begin
 SubBlack.Close;
 BlackAnalysis.Close;
 nlhWaiter1.WaitControl := bwGrid;
end else begin
 nlhWaiter1.WaitControl := BlackDomains;
 nlhWaiter1.Active := True;
 if not BlackAnalysis.Prepared then BlackAnalysis.Prepare;
 BlackAnalysis.ParamByName('Times').AsInteger := MinVariants.AsInteger;
 BlackAnalysis.ExecSQL;
 if not SubBlack.Prepared then SubBlack.Prepare;
 SubBlack.Open; <<<<<<<<<<<<<<<<< problem here
 nlhWaiter1.Active := False;
end;
end;




Roy Lambert

Weirder


I thought, lets try it with an after scroll event instead, and changed the parameter name

procedure TemDownloadControlForm.BlackAnalysisAfterScroll(DataSet: TDataSet);
begin
SubBlack.Close;
if not SubBlack.Prepared then SubBlack.Prepare;
SubBlack.ParamByName('XYZ').AsString := '%' + BlackAnalysis_Domain.AsString;
SubBlack.Open;
end;

---------------------------
Debugger Exception Notification
---------------------------
Project TfR.exe raised exception class EDatabaseError with message 'SubBlack: Field '_Domain' not found'.
---------------------------
Break   Continue   Help  
---------------------------

SubBlack's sql is

SELECT
_EMail,
_Occurances,
_LastDetected
FROM
emBlackOrWhite
WHERE
_EMail LIKE :XYZ
AND NOT _Whitelist
AND _Level = 0


I'm having a serious WTF moment. Deleted all the dcus just in case, checked to make sure there isn't a different version lying around. Retyped the sql just in case there's invisible ink being used. I'm now officially baffled.

Roy Lambert

Found it - it was me being thick. I copied a TEDBQuery component to save having to set session & database and it brought across some persistent fields - delete those and I'm good to go.

Roy Lambert