Subject | Re: Datasnap and IBO |
---|---|
Author | jensdein |
Post date | 2004-08-17T09:10:51Z |
I am using IBO and datasnap and with some minor changes (that I have
made the author aware of) it works quite well.
I have made the following small change to the IBODataset.pas (enclosed
in the // JDE comment) to make things work :
function TIBODataSet.PSExecuteStatement( const ASQL: string;
AParams: TParams;
ResultSet: pointer = nil ):
integer;
var
FQuery: TIBOQuery;
begin
// Potential Multi-threading problem!!!
FQuery := TIBOQuery.Create( IB_Session );
try
FQuery.IB_Connection := IB_Connection;
FQuery.IB_Transaction := IB_Transaction;
FQuery.SQL.Text := ASQL;
FQuery.Prepare;
// FQuery.FParams.Assign( AParams ); //JDE
// JDE Solves Problems with unnamed params
if Assigned(AParams) then
begin
FQuery.FParams.Assign( AParams );
FQuery.AssignParamsValues(AParams);
end;
// JDE
if Assigned( ResultSet ) then
FQuery.Open
else
FQuery.ExecSQL;
Result := FQuery.RowsAffected;
finally
if Assigned( ResultSet ) then
TDataSet( ResultSet^ ) := FQuery
else
FQuery.Free;
end;
end;
made the author aware of) it works quite well.
I have made the following small change to the IBODataset.pas (enclosed
in the // JDE comment) to make things work :
function TIBODataSet.PSExecuteStatement( const ASQL: string;
AParams: TParams;
ResultSet: pointer = nil ):
integer;
var
FQuery: TIBOQuery;
begin
// Potential Multi-threading problem!!!
FQuery := TIBOQuery.Create( IB_Session );
try
FQuery.IB_Connection := IB_Connection;
FQuery.IB_Transaction := IB_Transaction;
FQuery.SQL.Text := ASQL;
FQuery.Prepare;
// FQuery.FParams.Assign( AParams ); //JDE
// JDE Solves Problems with unnamed params
if Assigned(AParams) then
begin
FQuery.FParams.Assign( AParams );
FQuery.AssignParamsValues(AParams);
end;
// JDE
if Assigned( ResultSet ) then
FQuery.Open
else
FQuery.ExecSQL;
Result := FQuery.RowsAffected;
finally
if Assigned( ResultSet ) then
TDataSet( ResultSet^ ) := FQuery
else
FQuery.Free;
end;
end;
--- In IBObjects@yahoogroups.com, "Jens Holtsmark" <jens@h...> wrote:
> Does anybody have practical general experience with using Datasnap
and IBO
> in conjunction?
>
> Is this a good combination that works great? Or should I choose
another
> combination?
>
>
>
> Kind regards
>
> Jens Holtsmark
>
>
>
>
>
>
>
>
>
> [Non-text portions of this message have been removed]