🚀 go-pugleaf

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));