🚀 go-pugleaf

1.     cat->Tables->Append(Variant(thisTbl));

Why do you add thisTbl - it is a string. You create TCOM_Table object, fill
properties and do not use it. Add

 tbl->set_Name(WideString(thisTbl).c_bstr());

after

 tbl->ParentCatalog = cat;

and add table as

 cat->Tables->Append(Variant((IDispatch*)tbl));

2. Change all strings to WideString - Variant accepts ANSI strings, COM does
not.

Your code should be:

 AnsiString thisDb  = "C:\\data\\HitTemp.mdb";
 AnsiString thisTbl = "HitDataLinkTest";
 AnsiString thatDb  = "C:\\data\\HitData.mdb";
 AnsiString thatTbl = "LinkTest";

    DeleteFile(thisDb);

 Variant thisDbConnectStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
+ thisDb;


 Adox_tlb::TCOM_Catalog cat = CoCatalog::Create();
 cat->Create(WideString(thisDbConnectStr));
//    cat->set_ActiveConnection(thisDbConnectStr);

    Adox_tlb::TCOM_Table tbl = CoTable::Create();
 tbl->ParentCatalog = cat;

 tbl->set_Name(WideString(thisTbl).c_bstr());


    Adox_tlb::Property *ppvObject;
 Variant ppvName;
 Variant ppvValue;

 ppvName  = WideString("Jet OLEDB:Create Link");
    ppvValue = true;
    ppvObject = tbl->Properties->get_Item(ppvName);
    ppvObject->set_Value(ppvValue);

 ppvName  = WideString("Jet OLEDB:Link Datasource");
 ppvValue = WideString(thatDb);
 ppvObject = tbl->Properties->get_Item(ppvName);
 ppvObject->set_Value(ppvValue);

 ppvName  = WideString("Jet OLEDB:Remote Table Name");
 ppvValue = WideString(thatTbl);
    ppvObject = tbl->Properties->get_Item(ppvName);
    ppvObject->set_Value(ppvValue);

//    cat->Tables->Append(Variant(thisTbl));
 cat->Tables->Append(Variant((IDispatch*)tbl));
 cat.Release();

//------------------------------------------
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:vkda10dt31enmokkrfrgmipag5du0igvs4@4ax.com...
> Now all the code compiles and runs without error messages.  However,
> it does not create a table in HitTemp.mdb linked to the "LinkTest"
> table in HitData.mdb.  I suspect the problem is with the
> cat->Append(Variant) statement.  I don't know what to use as the
> "Variant" or "tagVARIANT" argument.
>
> As usual, I would appreciate any help.  Here is the code:
>
>
>     AnsiString thisDb  = "C:\\data\\HitTemp.mdb";
>     AnsiString thisTbl = "HitDataLinkTest";
>     AnsiString thatDb  = "C:\\data\\HitData.mdb";
>     AnsiString thatTbl = "LinkTest";
>
>     Variant thisDbConnectStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data
> Source=" + thisDb;
>
>
>     Adox_tlb::TCOM_Catalog cat = CoCatalog::Create();
> //    cat->Create(WideString(thisDbConnectStr));
>     cat->set_ActiveConnection(thisDbConnectStr);
>
>     Adox_tlb::TCOM_Table tbl = CoTable::Create();
>     tbl->ParentCatalog = cat;
>
>
>     Adox_tlb::Property *ppvObject;
>     Variant ppvName;
>     Variant ppvValue;
>
>     ppvName  = "Jet OLEDB:Create Link";
>     ppvValue = true;
>     ppvObject = tbl->Properties->get_Item(ppvName);
>     ppvObject->set_Value(ppvValue);
>
>     ppvName  = "Jet OLEDB:Link Datasource";
>     ppvValue = thatDb;
>     ppvObject = tbl->Properties->get_Item(ppvName);
>     ppvObject->set_Value(ppvValue);
>
>     ppvName  = "Jet OLEDB:Remote Table Name";
>     ppvValue = thatTbl;
>     ppvObject = tbl->Properties->get_Item(ppvName);
>     ppvObject->set_Value(ppvValue);
>
>     cat->Tables->Append(Variant(thisTbl));
>
>