🚀 go-pugleaf

You may also need to add to any cpp unit.


#include <comobj.hpp>

namespace System
{
 void __fastcall CheckSafecallResult(HRESULT hr)
 {
  OleCheck(hr);
 }
}

for BCB6, BCB5 should work without this.

//------------------------------------------
Regards,
Vassiliev V. V.
http://www.managed-vcl.com - using .Net objects in Delphi + ADO.Net
http://www.oledbdirect.com - The fastest way to access MS SQL Server,
MS Jet (Access) and Interbase (through OLEDB)

"Viatcheslav V. Vassiliev" <support@oledbdirect.com> �������/�������� �
�������� ���������: news:3fd8c747$2@newsgroups.borland.com...
> DataSet->Recordset->Fields->Item[WideString("OrderID")]->Value;
>
> //------------------------------------------
> Regards,
> Vassiliev V. V.
> http://www.managed-vcl.com - using .Net objects in Delphi + ADO.Net
> http://www.oledbdirect.com - The fastest way to access MS SQL Server,
> MS Jet (Access) and Interbase (through OLEDB)
>
> "Vic" <victor@espainformatica.com> �������/�������� � �������� ���������:
> news:3fd891a0$1@newsgroups.borland.com...
> > Thanks Vassiliev, that works perfert!!. The problem that I have now is
> when
> > I try to write it in C++.
> > Which is the way to do this in Builder ? :
> > DataSet.Recordset.Fields['OrderID'].Value
> >
> > All the other things works perfect in Builder too. Thanks
> >
> > "Viatcheslav V. Vassiliev" <support@oledbdirect.com> escribi� en el
> mensaje
> > news:3fd874b0@newsgroups.borland.com...
> > > It is interesting. This will not solve your problem, but it is not
with
> > > CacheSize - it is with ADO Express. However exactly CacheSize first
rows
> > are
> > > missed:
> > >
> > > procedure TForm1.ADOQuery1FetchComplete(DataSet: TCustomADODataSet;
> > >   const Error: Error; var EventStatus: TEventStatus);
> > > var
> > >   ListItem: TListItem;
> > >   i: Integer;
> > > begin
> > >   i := 0;
> > >
> > >   DataSet.First;
> > >   DataSet.Recordset.MoveFirst();
> > >   with ListView1 do
> > >   begin
> > >  while ( DataSet.Eof = false ) do
> > >  begin
> > >    ListItem := Items.Add;
> > >    ListItem.Caption := //DataSet.FieldValues['OrderID'];
> > >   DataSet.Recordset.Fields['OrderID'].Value;
> > >    ListITem.SubItems.Add(//DataSet.FieldValues['ProductID']);
> > >   DataSet.Recordset.Fields['ProductID'].Value);
> > >    Inc(i);
> > >    DataSet.Next;
> > >  end;
> > >   end;
> > >   Label1.Caption := 'Dataset '+ IntToStr(Dataset.RecordCount) + '
Items
> '
> > +
> > >  IntToStr(ListView1.Items.Count) + ' Items2 ' + IntToStr(i);
> > > end;
> > >
> > > I added variable i to be sure that the problem is not in TListView (in
> > other
> > > tests I commented all TListView-related code). I found that if I use
ADO
> > > recordset methods (avoiding TDataSet methods) all works correctly.
> > > DataSet.Recordset.MoveFirst() added to position to first record and
> > > DataSet.FieldValues['FieldName'] should be changed to
> > > DataSet.Recordset.Fields['FieldName'].Value. Now correct number is
> > > displayed. Tested with [Order Details] table from Northwind database,
MS
> > SQL
> > > Server.
> > >
> > > //------------------------------------------
> > > Regards,
> > > Vassiliev V. V.
> > > http://www.managed-vcl.com - using .Net objects in Delphi + ADO.Net
> > > http://www.oledbdirect.com - The fastest way to access MS SQL Server,
> > > MS Jet (Access) and Interbase (through OLEDB)
> > >
> >
> >
>
>
>