🚀 go-pugleaf

After some hour into VCL debug :

VCL wrapper code suppose always to use prepared command except for:
    cmdFile and cmdTableDirect.

DynamicResultSet like Oracle REF CURSOR.

It would be great to add a property EnableResultSet and override this
code!!!
------------------------
  procedure InitializeConnection;
  var
    UseCommand: Boolean;
  begin
    { Async operations require a connection component so we can hook
events }
    if not Assigned(Connection) and (ExecuteOptions * AsyncOptions <> [])
then
      DatabaseError(SConnectionRequired);
    FConnectionChanged := False;
    ActiveConnection := EmptyParam;
    UseCommand := not (CommandType in RSOnlyCommandTypes);
    if UseCommand then
    begin
      SetConnectionFlag(cfOpen, True);
      Command.Initialize;
      InitializeMasterFields(Self);
      Source := Command.CommandObject;
    end else
    begin
      { Can't use command for cmdFile and cmdTableDirect }
--->>      { cmdText of Dynamic ResulSet cannot be use in AdoCommand too }
--->>
      if Assigned(Connection) then
      begin
        Connection.Open;
        ActiveConnection := Connection.ConnectionObject;
      end else if ConnectionString <> '' then
        ActiveConnection := ConnectionString;
      Command.CheckCommandText;
      Source := CommandText;
    end;
  end;
------------------------------------------



"Diego Scaravaggi" <Diego.Scaravaggi@txt.it> wrote in message
news:419b1586$1@newsgroups.borland.com...
> Hallo,
>
> I'm using c++ builder with ADODB vcl unit from Borland
>
> I got "unspecified error" running this query:
>
> sql = " {call ReadMeasureData( 57223, 67, 279, {resultset 0,
> result_set_arg})}  "
>
> note that VBA excel code referencing ADO 2.7 com objects works well:
> ------------- Excel VBA code -------------------
>
> sql = " {call ReadMeasureData( 57223, 67, 279, {resultset 0,
> result_set_arg})}  "
> 'm_Connection.Properties("PLSQLRSet") = True 'only for oracle oledb not
> required by msdaora
> runSQL = sql
> m_rsBrand.CursorLocation = adUseServer 'adUseClient ' adUseServer
> m_rsBrand.Open runSQL, m_Connection, adOpenForwardOnly, adLockReadOnly,
> adCmdText
> ---------------------------------------------------
>
> After in my C++ builder application I start debug session with VCL debug,
> I got Com exception in:
>
> ---------- VCL Unit ADODB ---------------------
>     Recordset.Open(Source, ActiveConnection,
>       CursorTypeValues[FCursorType], LockTypeValues[FLockType],
>       Integer(CommandTypeValues[CommandType]) +
> ExecuteOptionsToOrd(ExecuteOptions));
> -----------------------------------------------
>
> with evaluate/inspect I got:
>     FCursorType = adOpenForwardOnly
>     FLockType = adLockReadOnly
>     CommandType = adCmdText
>     ExecuteOptions = '\0' // empty
>
>
> Recordset cannot be depth inspected because is COM intf
> How can I discover which COM typelib is binded to this intf ?
>
> Is it possible that ADODB unit is referencing some old ADO GUUID (2.0,
2.1,
> 2.5, 2.5 sp1) instead of 2.7
> I know that ResultSet with MSDAORA works well only from 2.5
>
>
> Should I avoid original VCL adodb unit for some thirty part Delphi ADO
> wrapper ?
>
> Thanx a lot
>
> --
> Scaravaggi Diego  T X T  e - s o l u t i o n s
> work: +390225771249 mobile: +393485266985
> work address: office 305 via Frigia, 27 20126 Milano (MI) Italy
> Milano - Barcelona - Frankfurt - London - Paris
>
>