🚀 go-pugleaf

This should help:

    Adox_tlb::Property* ppvObject;
    OLECHECK(tbl->Properties->get_Item(WideString("Jet OLEDB:Create Link",
(Adox_tlb::Property**)&ppvObject));
    ppvObject->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)

"Robert Emmons" <remmons@aurigen.com> ???????/???????? ? ???????? ?????????:
news:pu5t00drncdrn41hnftvesb6nviv7pjs4l@4ax.com...
> I am back to this problem again.  I would like to write some code to
> refresh the links to tables in an MSAccess database.  Thanks to
> Viatcheslav V. Vassiliev, I have some of the code needed, but I have
> not been able to get it to work yet.
>
> This code compiles (after including ADOX_TLB.h):
>
>     Adox_tlb::TCOM_Catalog cat = CoCatalog::Create();
>     cat->Create(WideString("Provider=Microsoft.Jet.OLEDB.4.0;Data
> Source=" + thisDb));
>
>     Adox_tlb::TCOM_Table tbl = CoTable::Create();
>     tbl->ParentCatalog = cat;
>
>
>
> The following was suggested, but generates compiler errors:
>
> tbl->Properties->Item[WideString("Jet OLEDB:Create Link")]->Value =
> true;
>
> Error: 'Item' is not a member of 'Adox_tlb::Properties'
>
> Using "Items" and "Property" instead of "Item" generates similar
> errors.
>
>
> The only thing that might fit which the BCB compiler completion
> suggests is:
>
> tbl->Properties->get_Item(tagVARIANT Item, Property **ppvObject);
>
> Unfortunately, I do not know how to supply these arguments, or even if
> this is the correct approach.
>
> I would appreciate any help or suggestions.
>