🚀 go-pugleaf

In type library Item is property, and GetItem, get_Item and/or [] depends on 
program that imports type library. [] are imported, if I am not wrong, by 
C++ Builder 6, but not earlier.

>            wstUser =
> adoRS->Fields->get_Item(Variant(1))->get_Value().bstrVal;

try

adoRS->Fields->getItem(WideString("User"))->get_Value();

Recordset is disposed when you assign new recordset, you do not need to 
dispose it. You need to release your pointer to recordset (ado) - you may do 
it just after assigning recordset to TADODataSet, Close() will be called by 
TADODataSet.

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


"Bas Groeneveld" <nospam@nospam.com.au> �������/�������� � �������� 
���������: news:42796494@newsgroups.borland.com...
> "Viatcheslav V. Vassiliev" <support@oledbdirect.com> wrote in message
> news:42789e2f$1@newsgroups.borland.com...
>> Use recordset Fields collection, it has operator [] or GetItem() method.
>
> I did manage to get it going using the following
>
>            wstUser =
> adoRS->Fields->get_Item(Variant(1))->get_Value().bstrVal;
>
> However I was unable to get the [] operator working. Also the get_Item 
> works
> only on the field position, not the name. I expected to be able to go
> something like
>
>            wstUser = adoRS->Fields["User"]->Value().bstrVal;
>
> Am I missing something here?
>
> Also I could not access a GetItem method (as suggested in some ADO 
> Recordset
> documentation) but had to use get_Item instead.
>
>> ADODataSet has property Recordset that you can use, it takes
>> System::DelphiInterface< _Recordset >.
>
> Thanks, I've got that to work.
>
> Could you please tell me if the following code is correct. I especially
> wondered if I need to dispose of the Recordset originally created with the
> TADODataSet - or does that not exist until the Dataset is actually
> populated?
>
>    (Adodb_tlb::Recordset15*)ado = RxWClient->GetEmailAddresses(&ClientID);
>
>    TADODataSet* ds = new TADODataSet(this);
>
>    ds->Recordset = (Adoint::Recordset*)ado;
>
>    ShowMessage(ds->FieldByName("Phone Number")->AsString);
>
>    delete ds;
>
>    ado->Close();
>
> Cheers
> Bas
>
>