Subject | Re: [IBO] Feature request: ActiveAtConnect |
---|---|
Author | IMB T |
Post date | 2002-01-25T15:47:06Z |
""Jason Wharton"" <jwharton@...> wrote in message
news:219801c1a4f4$dadb5fb0$dc756a41@CX170673E...
of course, I trigger it in the AfterConnect event:
procedure SetDatasets(aDataBase: TIBODatabase; AActive: boolean; ATag:
integer);
var
i: integer;
begin
with aDatabase do
for i:=0 to DataSetCount-1 do
if DataSets[i].Owner.InheritsFrom(TIBODataSet) then
begin
if TIBODataSet(DataSets[i].Owner).Tag=ATag then
TIBODataSet(DataSets[i].Owner).Active:=AActive;
end
else
if (DataSets[i].Tag=ATag) and (DataSets[i].Name<>'') then
DataSets[i].Active:=AActive;
end;
Some questions:
1. You'll try to change the name of internal cursors from '' to other else
(in the TIBO layer)?
(or, perhaps, better, can you put in all the internal datasets which now
are '' some 'flag' (let's say a sequence of characters) to distinguish the
'position' (or 'status') of the dataset)
2. Can I (in any way) detect if a stored procedure is a 'Select' one?
TIA
news:219801c1a4f4$dadb5fb0$dc756a41@CX170673E...
> > Please consider the following problems:...
> >datasets
> > An easy way to solve these problems is to add (on both layers T_IB and
> TIBO)
> > a property named ActiveAtConnect: boolean
> >
> > and to have in the after connect part of the connection's component a
> simple
> > code (I can send it to you if you want) which will open again the
> > which have the FActiveAtConect=True.Yes, I have the code but it uses as 'ActiveAtConnect' the Tag property, and,
> >
> > What do you say?
>
> Easier would be to add a method to the connection to loop through its
> datasets and set them all to active.
> I'd prefer to allow you to write that method in your own application for
> now.
>
> Jason Wharton
> CPS - Mesa AZ
> http://www.ibobjects.com
>
of course, I trigger it in the AfterConnect event:
procedure SetDatasets(aDataBase: TIBODatabase; AActive: boolean; ATag:
integer);
var
i: integer;
begin
with aDatabase do
for i:=0 to DataSetCount-1 do
if DataSets[i].Owner.InheritsFrom(TIBODataSet) then
begin
if TIBODataSet(DataSets[i].Owner).Tag=ATag then
TIBODataSet(DataSets[i].Owner).Active:=AActive;
end
else
if (DataSets[i].Tag=ATag) and (DataSets[i].Name<>'') then
DataSets[i].Active:=AActive;
end;
Some questions:
1. You'll try to change the name of internal cursors from '' to other else
(in the TIBO layer)?
(or, perhaps, better, can you put in all the internal datasets which now
are '' some 'flag' (let's say a sequence of characters) to distinguish the
'position' (or 'status') of the dataset)
2. Can I (in any way) detect if a stored procedure is a 'Select' one?
TIA
>___________________________________________________________________________
>
>
> IB Objects - direct, complete, custom connectivity to Firebird orInterBase
> without the need for BDE, ODBC or any other layer.___________________________________________________________________________
>
> http://www.ibobjects.com - your IBO community resource for Tech Infopapers,
> keyword-searchable FAQ, community code contributions and more !
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
>
>