🚀 go-pugleaf

Database with the same name already exists.

//
// MessageId: DB_E_DUPLICATEDATASOURCE
//
// MessageText:
//
//  Data source object could not be created because the named data source
already exists.
//
#define DB_E_DUPLICATEDATASOURCE         ((HRESULT)0x80040E17L)

//------------------------------------------
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:8ek510h1jdvdgubdq1gevn5kn0ka595vef@4ax.com...
> On Thu, 22 Jan 2004 16:25:42 +0300, "Viatcheslav V. Vassiliev"
> <support@oledbdirect.com> wrote:
> >This should help:
> >
> >    Adox_tlb::Property* ppvObject;
> >    OLECHECK(tbl->Properties->get_Item(WideString("Jet OLEDB:Create
Link",
> >(Adox_tlb::Property**)&ppvObject));
> >    ppvObject->Value = ...
> >
>
> The code below all compiles, but throws and error message when
> executing "cat->Create(...)".  Code:
>
>     AnsiString connectStr = "Provider=Microsoft.Jet.OLEDB.4.0;"
>           "Data Source=c:\\data\\HitTemp.mdb"
>     Adox_tlb::TCOM_Catalog cat = CoCatalog::Create();
>     cat->Create(WideString(connectStr));
>
>     Adox_tlb::TCOM_Table tbl = CoTable::Create();
>     tbl->ParentCatalog = cat;
>
>     Adox_tlb::Property *ppvObject;
>
>     Variant ppvName  = "Jet OLEDB:Create Link";
>     Variant ppvValue = true;
>     ppvObject = tbl->Properties->get_Item(ppvName);
>     ppvObject->set_Value(ppvValue);
>
>     ppvName  = "Jet OLEDB:Link Datasource";
>     ppvValue = "C:\\data\\HitData.mdb";
>     ppvObject = tbl->Properties->get_Item(ppvName);
>     ppvObject->set_Value(ppvValue);
>
>     ppvName  = "Jet OLEDB:Link Remote Table Name";
>     ppvValue = "linkTest";
>     ppvObject = tbl->Properties->get_Item(ppvName);
>     ppvObject->set_Value(ppvValue);
>
>
> Here is the error message:
>
> ---------------------------
> HRCHECK:
> ---------------------------
> (this->Create(ConnectString, (VARIANT*)&Connection)) Error: 80040E17
> (-2147217897) @ c:\program
> files\borland\cbuilder6\imports\ADOX_TLB.h/479
> Press [Y]es to terminate, [N]o to continue and [C]ancel to Debug
> ---------------------------
> Yes   No   Cancel
> ---------------------------
>
> Here is the line 479 from ADOX_TLB.h:
>
>     OLECHECK(this->Create(ConnectString, (VARIANT*)&Connection));
>
> Here is the entire function:
>
>   VARIANT __fastcall Create(BSTR ConnectString/*[in]*/)
>   {
>     VARIANT Connection;
>     OLECHECK(this->Create(ConnectString, (VARIANT*)&Connection));
>     return Connection;
>   }
>
>
>
> As you can see, cat->Create() calls OLECHECK, so it seems unnecessary
> to call it separately.
>
>
> As usual, I would appreciate any suggestions?
>