The following code gives me :
[Pervasive][ODBC Client Interface][LNA][Pervasive][ODBC Engine Interface][Error in expression: :BilledDate
procedure UpDateFJDataBase(AdNumber:string;BilledDate:tDateTime);
var
EntryYear : string;
begin
if (AdNumber[2]='C') then
EntryYear := '2005' else
EntryYear := '2005';
FJMain.Query2.Close;
FJMain.Query2.SQL.Clear;
FJMain.Query2.SQL.Add('Update FreshJobs A');
FJMain.Query2.SQL.Add('set A.FJInvoiceDate = :BilledDate');
FJMain.Query2.SQL.Add('where A.AdNumber = :AdNumber');
FJMain.Query2.SQL.Add(' and A.EntryYear = :EntryYear');
FJMain.Query2.Params[0].asDate := BilledDate;
FJMain.Query2.Params[1].asString := AdNumber;
FJMain.Query2.Params[2].asString := EntryYear;
FJQuery := FJMain.Query2.Text;
FJMain.Query2.ExecSQL;
end;
[Pervasive][ODBC Client Interface][LNA][Pervasive][ODBC Engine Interface][Error in expression: :BilledDate
procedure UpDateFJDataBase(AdNumber:string;BilledDate:tDateTime);
var
EntryYear : string;
begin
if (AdNumber[2]='C') then
EntryYear := '2005' else
EntryYear := '2005';
FJMain.Query2.Close;
FJMain.Query2.SQL.Clear;
FJMain.Query2.SQL.Add('Update FreshJobs A');
FJMain.Query2.SQL.Add('set A.FJInvoiceDate = :BilledDate');
FJMain.Query2.SQL.Add('where A.AdNumber = :AdNumber');
FJMain.Query2.SQL.Add(' and A.EntryYear = :EntryYear');
FJMain.Query2.Params[0].asDate := BilledDate;
FJMain.Query2.Params[1].asString := AdNumber;
FJMain.Query2.Params[2].asString := EntryYear;
FJQuery := FJMain.Query2.Text;
FJMain.Query2.ExecSQL;
end;