Op donderdag 24-01-2008 om 20:56 uur [tijdzone +1100], schreef John:
> Joost van der Sluis wrote:
> > Op donderdag 24-01-2008 om 00:09 uur [tijdzone +1100], schreef John:
> >
> Snip
> >> It does, in so far as the parameter specs are now retained, but now the
> >> database property of sqlquery is not read, so it still can't work
> >> properly. In fact, I can't even set the database from the Lazarus
> >> object inspector.
> >>
> >
> > Huh? Are you sure? Did you recompile everything correclty?
> >
> You won't often catch me saying "Yes I am *sure* I compiled everything
> correctly" ! I think I did, though.
Quick test is to add a new writeln, see if it is triggered. If so you
have rebuild it properly.
> This is my version of set database:
It doesn't contain a call to Inherited.SetDatabase. I think that that is
your problem now.
> procedure TCustomSQLQuery.SetDatabase(Value : TDatabase);
>
> var db : tsqlconnection;
>
> begin
> if (Database <> Value) then
> begin
> {$IFDEF DBDEBUG}
> if dbdbgOn then
> Writeln(dbdbg, 'TCustomSQLQuery.database is being set to "',
> Value.DatabaseName, '".');
> {$ENDIF}
> if assigned(value) and not (Value is TSQLConnection) then
> DatabaseErrorFmt(SErrNotASQLConnection,[value.Name],self);
Add ' inherited setdatabase(value);'
> if not (csLoading in ComponentState) then
> begin
> UnPrepare;
> if assigned(FCursor) then
> TSQLConnection(DataBase).DeAllocateCursorHandle(FCursor);
> db := TSQLConnection(Value);
> if assigned(value) and (Transaction = nil) and
> (Assigned(db.Transaction)) then
> transaction := Db.Transaction;
> {$IFDEF DBDEBUG}
> if dbdbgOn then
> Writeln(dbdbg, 'Calling TCustomSQLQuery.OnChangeSQL because ',
> 'TCustomSQLQuery.database has been set to "',
> Value.DatabaseName, '".');
> {$ENDIF}
> OnChangeSQL(Self);
> end;
> end;
> end;
Joost
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
