🚀 go-pugleaf

On Mon, 26 Jan 2004 20:16:54 +0300, "Viatcheslav V. Vassiliev"
<support@oledbdirect.com> wrote:
>
>  Various suggestions for linking tables between
>     Access Databases
>

Success!  Thanks again for your help and patience.  I have pasted the
woking code below in case someone else needs it.  Of course,
Viatcheslav V. Vassiliev deserves the credit for almost all of it.

I use "cat->set_ActiveConnection(thisDbConnectStr);", rather than
"DeleteFile()" and "Create()" because I am linking a table from an
existing MSAccess database into another existing MSAccess database.

Here is the code:


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

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


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

    Adox_tlb::TCOM_Table tbl = CoTable::Create();
    tbl->set_Name(thisTbl.c_bstr());
    tbl->ParentCatalog = cat;


    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 = thatDb;
    ppvObject = tbl->Properties->get_Item(ppvName);
    ppvObject->set_Value(ppvValue);

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


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