transactd 2.4.3 → 2.4.4

data/source/bzs/test/tdclphp/transactd_Test.php

@@ -207,6 +207,8 @@ class transactdTest extends PHPUnit_Framework_TestCase
         $fd->len = 33;
         $dbdef->updateTableDef($tableid);
         $this->assertEquals($dbdef->stat(), 0);
+        //test statMsg
+        $this->assertEquals($dbdef->statMsg(), '');
         
         $kd = $dbdef->insertKey($tableid, 0);
         $kd->segment(0)->fieldNum = 0;
@@ -217,12 +219,19 @@ class transactdTest extends PHPUnit_Framework_TestCase
         $dbdef->updateTableDef($tableid);
         $this->assertEquals($dbdef->stat(), 0);
         $this->assertEquals($dbdef->validateTableDef($tableid), 0);
+        
+        //test toChar
+        $s = $td->toChar('abcdefg');
+        $this->assertEquals($s, 'abcdefg');
+        
     }
     private function openTable($db)
     {
         $this->openDatabase($db);
         $tb = $db->openTable(TABLENAME);
         $this->assertEquals($db->stat(), 0);
+        //test statMsg
+        $this->assertEquals($db->statMsg(), '');
         return $tb;
     }
     
@@ -328,6 +337,28 @@ class transactdTest extends PHPUnit_Framework_TestCase
         $this->assertEquals($engine_ver->minorVersion, Bz\transactd::TRANSACTD_VER_MINOR);
         $this->assertEquals(chr($engine_ver->type), 'T');
     }
+    public function testReadDatabaseDirectory()
+    {
+       $db = new Bz\database();
+       $tb = $this->openTable($db);
+       $this->assertNotEquals($tb, NULL);
+       $s = $db->readDatabaseDirectory();
+       $this->assertNotEquals($s, '');
+    }
+    public function testGetFileName()
+    {
+        $s = '';
+        if (PHP_OS == 'WIN32' || PHP_OS == 'WINNT')
+           $s = Bz\nstable::getFileName('test\abcdefghijklnmopqrstuvwxyz1234567890.txt');
+        else
+           $s = Bz\nstable::getFileName('test/abcdefghijklnmopqrstuvwxyz1234567890.txt');
+        $this->assertEquals($s, 'abcdefghijklnmopqrstuvwxyz1234567890.txt');
+    }
+    public function testGetDirURI()
+    {
+       $s = Bz\nstable::getDirURI('tdap://localhost/test?dbfile=test.bdf');
+       $this->assertEquals($s, 'tdap://localhost/test?dbfile=');
+    }
     public function testInsert()
     {
         $db = new Bz\database();
@@ -339,6 +370,9 @@ class transactdTest extends PHPUnit_Framework_TestCase
         $tb->setFV(FDI_NAME, 'kosaka');
         $tb->insert();
         $this->assertEquals($tb->stat(), 0);
+        //test statMsg
+        $this->assertEquals($tb->statMsg(), '');
+
         $db->beginTrn();
         $n = 1;
         $tb->seekLast();

data/source/bzs/test/tdclphp/transactd_pool_Test.php

@@ -130,10 +130,4 @@ class transactdPoolTest extends PHPUnit_Framework_TestCase
         }
         $this->assertEquals(true, true);
     }
-    
-    public function testReset()
-    {
-        $dbm1 = new Bz\pooledDbManager();
-        $dbm1->reset(0);
-    }
 }

data/source/bzs/test/tdclrb/transactd_spec.rb

@@ -85,6 +85,10 @@ end
 def testOpenDatabase(db)
   db.open(URL, Transactd::TYPE_SCHEMA_BDF, Transactd::TD_OPEN_NORMAL)
   expect(db.stat()).to eq 0
+  # test statMsg
+  msg = db.statMsg()
+  expect(msg).to eq ''
+
 end
 
 def testCreateTable(db)
@@ -168,6 +172,10 @@ def testCreateTable(db)
   dbdef.updateTableDef(table_id)
   expect(dbdef.stat()).to eq 0
   
+  # test statMsg
+  msg = dbdef.statMsg()
+  expect(msg).to eq ''
+  
   kd = dbdef.insertKey(table_id, 0)
   kd.segment(0).fieldNum = 0
   kd.segment(0).flags.bit8 = 1
@@ -225,6 +233,29 @@ def testVersion()
   db.close()
 end
 
+def testReadDatabaseDirectory()
+  db = Transactd::Database.new()
+  tb = testOpenTable(db)
+  expect(tb).not_to be nil
+  s = db.readDatabaseDirectory()
+  expect(s).not_to eq ''
+end
+
+def testGetFileName()
+  s = ''
+  if RUBY_PLATFORM =~ /mswin(?!ce)|mingw|cygwin|bccwin/
+    s = Transactd::Nstable::getFileName('test\abcdefghijklnmopqrstuvwxyz1234567890.txt')
+  else
+    s = Transactd::Nstable::getFileName('test/abcdefghijklnmopqrstuvwxyz1234567890.txt')
+  end
+  expect(s).to eq 'abcdefghijklnmopqrstuvwxyz1234567890.txt'
+end
+
+def testGetDirURI()
+   s = Transactd::Nstable::getDirURI('tdap://localhost/test?dbfile=test.bdf')
+   expect(s).to eq 'tdap://localhost/test?dbfile='
+end
+
 def testInsert()
   db = Transactd::Database.new()
   tb = testOpenTable(db)
@@ -235,6 +266,9 @@ def testInsert()
     tb.setFV(FDI_NAME, 'kosaka')
     tb.insert()
     expect(tb.stat()).to eq 0
+    # test statMsg
+    msg = tb.statMsg()
+    expect(msg).to eq ''
   end
   db.beginTrn()
   n = 1

data/source/bzs/test/trdclengn/test_trdclengn.cpp

@@ -263,6 +263,9 @@ void testCreateNewDataBase(database* db)
              TD_OPEN_NORMAL);
     BOOST_CHECK_MESSAGE(0 == db->stat(),
                         "createNewDataBase 1 stat = " << db->stat());
+    _TCHAR buf[255];
+    db->readDatabaseDirectory(buf, 255);
+    BOOST_CHECK_MESSAGE(_tstring(buf) != _tstring(_T("")), "readDatabaseDirectory" << buf);
 
     dbdef* def = db->dbDef();
     if (def)
@@ -4808,7 +4811,7 @@ void testDbPool()
         BOOST_CHECK_MESSAGE(0 == tb2->stat(), "tb2->seekFirst");
     }
     poolMgr.endSnapshot();
-    poolMgr.reset(0);
+
 }
 
 //--------------------------------------------------------------------------------------

data/source/global/tdclatl/Database.cpp

@@ -23,6 +23,20 @@
 #include "TdVersion.h"
 
 using namespace bzs::db::protocol::tdap::client;
+STDMETHODIMP CDatabase::InterfaceSupportsErrorInfo(REFIID riid)
+{
+	static const IID* const arr[] = 
+	{
+		&IID_IDatabase
+	};
+
+	for (int i=0; i < sizeof(arr) / sizeof(arr[0]); i++)
+	{
+		if (InlineIsEqualGUID(*arr[i],riid))
+			return S_OK;
+	}
+	return S_FALSE;
+}
 
 STDMETHODIMP CDatabase::Open(BSTR Uri, eSchemaType SchemaType, eOpenMode Mode,
                              BSTR Dir, BSTR Ownername, VARIANT_BOOL* Param6)
@@ -59,9 +73,9 @@ STDMETHODIMP CDatabase::OpenTable(VARIANT TableID, eOpenMode Mode,
                                   BSTR Uri, ITable** ret)
 {
 
-    if (!m_db->dbDef())
-        return Error("database is not opened. ", IID_IDatabase);
-
+    //if (!m_db->dbDef())
+    //    return Error("database is not opened. ", IID_IDatabase);
+    *ret = NULL;
     table* tb = NULL;
     if (TableID.vt == VT_BSTR)
         tb = m_db->openTable(TableID.bstrVal, Mode, (bool)AutoCreate, OwnerName,
@@ -70,8 +84,9 @@ STDMETHODIMP CDatabase::OpenTable(VARIANT TableID, eOpenMode Mode,
         tb = m_db->openTable(TableID.iVal, Mode, (bool)AutoCreate, OwnerName,
                              Uri);
 
-    if (tb == NULL)
-        return Error("Invalid tableid", IID_IDatabase);
+    if (m_db->stat() != 0)
+        return S_OK;
+        //return Error("Invalid tableid", IID_IDatabase);
 
     CComObject<CTableTd>* ptb;
     CComObject<CTableTd>::CreateInstance(&ptb);
@@ -86,8 +101,7 @@ STDMETHODIMP CDatabase::OpenTable(VARIANT TableID, eOpenMode Mode,
         *ret = itb;
         m_IsAtatchOK = false;
     }
-    else
-        *ret = NULL;
+        
 
     return S_OK;
 }
@@ -356,6 +370,14 @@ STDMETHODIMP CDatabase::TdapErr(OLE_HANDLE hWnd, BSTR* Value)
     return S_OK;
 }
 
+STDMETHODIMP CDatabase::StatMsg(BSTR* Value)
+{
+    wchar_t tmp[1024] = { NULL };
+    m_db->statMsg(tmp);
+    *Value = ::SysAllocString(tmp);
+    return S_OK;
+}
+
 STDMETHODIMP CDatabase::Clone(IDatabase** Value)
 {
     CComObject<CDatabase>* ptb;

data/source/global/tdclatl/Database.h

@@ -35,6 +35,7 @@ bool __stdcall onDeleteRecord(bzs::db::protocol::tdap::client::database* db,
 class ATL_NO_VTABLE CDatabase
     : public CComObjectRootEx<CComSingleThreadModel>,
       public CComCoClass<CDatabase, &CLSID_Database>,
+	  public ISupportErrorInfo,
       public IDispatchImpl<IDatabase, &IID_IDatabase, &LIBID_transactd,
                            /* wMajor = */ 1, /* wMinor = */ 0>,
       public IConnectionPointContainerImpl<CDatabase>,
@@ -61,7 +62,10 @@ public:
     COM_INTERFACE_ENTRY(IDatabase)
     COM_INTERFACE_ENTRY(IDispatch)
     COM_INTERFACE_ENTRY(IConnectionPointContainer)
+    COM_INTERFACE_ENTRY(ISupportErrorInfo)
     END_COM_MAP()
+// ISupportsErrorInfo
+	STDMETHOD(InterfaceSupportsErrorInfo)(REFIID riid);
 
     BEGIN_CONNECTION_POINT_MAP(CDatabase)
     CONNECTION_POINT_ENTRY(__uuidof(_IDatabaseEvents))
@@ -127,6 +131,7 @@ public:
     STDMETHOD(Rename)(BSTR oldUri, BSTR newUri);
     STDMETHOD(get_Uri)(BSTR* uri);
     STDMETHOD(TdapErr)(OLE_HANDLE hWnd, BSTR* Value);
+    STDMETHOD(StatMsg)(BSTR* Value);
     STDMETHOD(Clone)(IDatabase** Value);
     STDMETHOD(AssignSchemaData)(IDbDef* Src, short* Value);
     STDMETHOD(Continuous)(eContinusOpr Op, VARIANT_BOOL inclideRepfile,
@@ -152,6 +157,7 @@ public:
     STDMETHOD(get_MaxTables)(int* Value);
     STDMETHOD(get_TrxIsolationServer)(eSrvIsorationType* Value);
     STDMETHOD(get_TrxLockWaitTimeoutServer)(int* Value);
+
 };
 
 OBJECT_ENTRY_AUTO(__uuidof(Database), CDatabase)

data/source/global/tdclatl/DbDef.cpp

@@ -34,22 +34,20 @@ STDMETHODIMP CDbDef::get_TableCount(short* Value)
 
 STDMETHODIMP CDbDef::TableDef(short Index, ITableDef** Value)
 {
-    if (!m_dbDef->tableDefs(Index))
-        return Error("Invalid index.", IID_IDbDef);
-
-    CComObject<CTableDef>* piObj = NULL;
-    CComObject<CTableDef>::CreateInstance(&piObj);
-    if (piObj)
+    *Value = 0;
+    if (m_dbDef->tableDefs(Index))
     {
-        piObj->m_tabledefPtr = m_dbDef->tableDefPtr(Index);
-        ITableDef* tbd;
-        piObj->QueryInterface(IID_ITableDef, (void**)&tbd);
-        _ASSERTE(tbd);
-        *Value = tbd;
+        CComObject<CTableDef>* piObj = NULL;
+        CComObject<CTableDef>::CreateInstance(&piObj);
+        if (piObj)
+        {
+            piObj->m_tabledefPtr = m_dbDef->tableDefPtr(Index);
+            ITableDef* tbd;
+            piObj->QueryInterface(IID_ITableDef, (void**)&tbd);
+            _ASSERTE(tbd);
+            *Value = tbd;
+        }
     }
-    else
-        *Value = 0;
-
     return S_OK;
 }
 
@@ -89,24 +87,22 @@ STDMETHODIMP CDbDef::InsertField(short TableIndex, short InsertIndex,
                                  IFieldDef** Param3)
 
 {
+    *Param3 = 0;
     fielddef* fdPtr = m_dbDef->insertField(TableIndex, InsertIndex);
-    if (!fdPtr)
-        return Error("Invalid index.", IID_IDbDef);
-
-    CComObject<CFieldDef>* piObj;
-    CComObject<CFieldDef>::CreateInstance(&piObj);
-    if (piObj)
-    {
-        piObj->m_tabledefPtr = m_dbDef->tableDefPtr(TableIndex);
-        piObj->m_index = InsertIndex;
-        IFieldDef* fd;
-        piObj->QueryInterface(IID_IFieldDef, (void**)&fd);
-        _ASSERTE(fd);
-        *Param3 = piObj;
+    if (fdPtr)
+    {    
+        CComObject<CFieldDef>* piObj;
+        CComObject<CFieldDef>::CreateInstance(&piObj);
+        if (piObj)
+        {
+            piObj->m_tabledefPtr = m_dbDef->tableDefPtr(TableIndex);
+            piObj->m_index = InsertIndex;
+            IFieldDef* fd;
+            piObj->QueryInterface(IID_IFieldDef, (void**)&fd);
+            _ASSERTE(fd);
+            *Param3 = piObj;
+        }
     }
-    else
-        *Param3 = 0;
-
     return S_OK;
 }
 
@@ -114,23 +110,23 @@ STDMETHODIMP CDbDef::InsertKey(short TableIndex, short InsertIndex,
                                IKeyDef** Param3)
 
 {
+    *Param3 = 0;
     keydef* keyPtr = m_dbDef->insertKey(TableIndex, InsertIndex);
-    if (!keyPtr)
-        return Error("Invalid index.", IID_IDbDef);
-    CComObject<CKeyDef>* piObj;
-    CComObject<CKeyDef>::CreateInstance(&piObj);
-    if (piObj)
-    {
-        piObj->m_tabledefPtr = m_dbDef->tableDefPtr(TableIndex);
-        ;
-        piObj->m_index = InsertIndex;
-        IKeyDef* kb;
-        piObj->QueryInterface(IID_IKeyDef, (void**)&kb);
-        _ASSERTE(kb);
-        *Param3 = piObj;
+    if (keyPtr)
+    {    
+        CComObject<CKeyDef>* piObj;
+        CComObject<CKeyDef>::CreateInstance(&piObj);
+        if (piObj)
+        {
+            piObj->m_tabledefPtr = m_dbDef->tableDefPtr(TableIndex);
+            ;
+            piObj->m_index = InsertIndex;
+            IKeyDef* kb;
+            piObj->QueryInterface(IID_IKeyDef, (void**)&kb);
+            _ASSERTE(kb);
+            *Param3 = piObj;
+        }
     }
-    else
-        *Param3 = 0;
     return S_OK;
 }
 
@@ -245,6 +241,14 @@ STDMETHODIMP CDbDef::TdapErr(OLE_HANDLE hWnd, BSTR* Value)
     return S_OK;
 }
 
+STDMETHODIMP CDbDef::StatMsg(BSTR* Value)
+{
+    wchar_t tmp[1024] = { NULL };
+    m_dbDef->tdapErr(0, tmp);
+    *Value = ::SysAllocString(tmp);
+    return S_OK;
+}
+
 STDMETHODIMP CDbDef::ValidateTableDef(short TableIndex, short* Value)
 {
     *Value = m_dbDef->validateTableDef(TableIndex);

data/source/global/tdclatl/DbDef.h

@@ -76,5 +76,6 @@ public:
     STDMETHOD(put_Version)(int Value);
     STDMETHOD(get_Stat)(eStatus* Value);
     STDMETHOD(TdapErr)(OLE_HANDLE hWnd, BSTR* Value);
+    STDMETHOD(StatMsg)(BSTR* Value);
     STDMETHOD(ValidateTableDef)(short TableIndex, short* Value);
 };

data/source/global/tdclatl/FieldDef.cpp

@@ -19,6 +19,20 @@
 #include "stdafx.h"
 #include "FieldDef.h"
 #include "Flags.h"
+STDMETHODIMP CFieldDef::InterfaceSupportsErrorInfo(REFIID riid)
+{
+	static const IID* const arr[] = 
+	{
+		&IID_IFieldDef
+	};
+
+	for (int i=0; i < sizeof(arr) / sizeof(arr[0]); i++)
+	{
+		if (InlineIsEqualGUID(*arr[i],riid))
+			return S_OK;
+	}
+	return S_FALSE;
+}
 
 STDMETHODIMP CFieldDef::get_Name(BSTR* Value)
 {

data/source/global/tdclatl/FieldDef.h

@@ -27,6 +27,7 @@ using namespace ATL;
 class ATL_NO_VTABLE CFieldDef
     : public CComObjectRootEx<CComSingleThreadModel>,
       public CComCoClass<CFieldDef, &CLSID_FieldDef>,
+	  public ISupportErrorInfo,
       public IDispatchImpl<IFieldDef, &IID_IFieldDef, &LIBID_transactd,
                            /* wMajor = */ 1, /* wMinor = */ 0>
 {
@@ -58,7 +59,10 @@ public:
     BEGIN_COM_MAP(CFieldDef)
     COM_INTERFACE_ENTRY(IFieldDef)
     COM_INTERFACE_ENTRY(IDispatch)
+    COM_INTERFACE_ENTRY(ISupportErrorInfo)
     END_COM_MAP()
+// ISupportsErrorInfo
+	STDMETHOD(InterfaceSupportsErrorInfo)(REFIID riid);
 
     DECLARE_PROTECT_FINAL_CONSTRUCT()
 

data/source/global/tdclatl/FieldDefs.cpp

@@ -19,6 +19,20 @@
 #include "stdafx.h"
 #include "FieldDefs.h"
 #include "FieldDef.h"
+STDMETHODIMP CFieldDefs::InterfaceSupportsErrorInfo(REFIID riid)
+{
+	static const IID* const arr[] = 
+	{
+		&IID_IFieldDefs
+	};
+
+	for (int i=0; i < sizeof(arr) / sizeof(arr[0]); i++)
+	{
+		if (InlineIsEqualGUID(*arr[i],riid))
+			return S_OK;
+	}
+	return S_FALSE;
+}
 
 void CFieldDefs::FinalRelease()
 {

data/source/global/tdclatl/FieldDefs.h

@@ -28,6 +28,7 @@ class CFieldDef;
 class ATL_NO_VTABLE CFieldDefs
     : public CComObjectRootEx<CComSingleThreadModel>,
       public CComCoClass<CFieldDefs, &CLSID_FieldDefs>,
+	  public ISupportErrorInfo,
       public IDispatchImpl<IFieldDefs, &IID_IFieldDefs, &LIBID_transactd,
                            /* wMajor = */ 1, /* wMinor = */ 0>
 {
@@ -41,7 +42,10 @@ public:
     BEGIN_COM_MAP(CFieldDefs)
     COM_INTERFACE_ENTRY(IFieldDefs)
     COM_INTERFACE_ENTRY(IDispatch)
+    COM_INTERFACE_ENTRY(ISupportErrorInfo)
     END_COM_MAP()
+// ISupportsErrorInfo
+	STDMETHOD(InterfaceSupportsErrorInfo)(REFIID riid);
 
     DECLARE_PROTECT_FINAL_CONSTRUCT()
 

data/source/global/tdclatl/GroupQuery.cpp

@@ -24,6 +24,21 @@
 
 using namespace bzs::db::protocol::tdap::client;
 
+STDMETHODIMP CGroupQuery::InterfaceSupportsErrorInfo(REFIID riid)
+{
+	static const IID* const arr[] = 
+	{
+		&IID_IGroupQuery
+	};
+
+	for (int i=0; i < sizeof(arr) / sizeof(arr[0]); i++)
+	{
+		if (InlineIsEqualGUID(*arr[i],riid))
+			return S_OK;
+	}
+	return S_FALSE;
+}
+
 void CGroupQuery::setResult(IGroupQuery** retVal)
 {
     this->QueryInterface(IID_IGroupQuery, (void**)retVal);

data/source/global/tdclatl/GroupQuery.h

@@ -27,6 +27,7 @@ using namespace ATL;
 class ATL_NO_VTABLE CGroupQuery
     : public CComObjectRootEx<CComSingleThreadModel>,
       public CComCoClass<CGroupQuery, &CLSID_GroupQuery>,
+	  public ISupportErrorInfo,
       public IDispatchImpl<IGroupQuery, &IID_IGroupQuery, &LIBID_transactd,
                            /* wMajor = */ 1, /* wMinor = */ 0>
 {
@@ -43,7 +44,10 @@ public:
     BEGIN_COM_MAP(CGroupQuery)
     COM_INTERFACE_ENTRY(IGroupQuery)
     COM_INTERFACE_ENTRY(IDispatch)
+    COM_INTERFACE_ENTRY(ISupportErrorInfo)
     END_COM_MAP()
+// ISupportsErrorInfo
+	STDMETHOD(InterfaceSupportsErrorInfo)(REFIID riid);
 
     DECLARE_PROTECT_FINAL_CONSTRUCT()
 

data/source/global/tdclatl/KeyDef.cpp

@@ -32,7 +32,7 @@ STDMETHODIMP CKeyDef::put_SegmentCount(unsigned char Value)
     return S_OK;
 }
 
-STDMETHODIMP CKeyDef::Segments(short Index, IKeySegment** Value)
+STDMETHODIMP CKeyDef::get_Segments(short Index, IKeySegment** Value)
 {
     CComObject<CKeySegment>* piObj;
     CComObject<CKeySegment>::CreateInstance(&piObj);

data/source/global/tdclatl/KeyDef.h

@@ -53,6 +53,6 @@ public:
 
 public:
     STDMETHOD(get_SegmentCount)(unsigned char* Value);
-    STDMETHOD(Segments)(short Index, IKeySegment** Value);
+    STDMETHOD(get_Segments)(short Index, IKeySegment** Value);
     STDMETHOD(put_SegmentCount)(unsigned char Value);
 };

data/source/global/tdclatl/PooledDbManager.cpp

@@ -24,6 +24,21 @@
 
 using namespace bzs::db::protocol::tdap::client;
 
+STDMETHODIMP CPooledDbManager::InterfaceSupportsErrorInfo(REFIID riid)
+{
+	static const IID* const arr[] = 
+	{
+		&IID_IPooledDbManager
+	};
+
+	for (int i=0; i < sizeof(arr) / sizeof(arr[0]); i++)
+	{
+		if (InlineIsEqualGUID(*arr[i],riid))
+			return S_OK;
+	}
+	return S_FALSE;
+}
+
 STDMETHODIMP CPooledDbManager::put_MaxConnections(int n)
 {
     pooledDbManager::setMaxConnections(n);

data/source/global/tdclatl/PooledDbManager.h

@@ -26,6 +26,7 @@ using namespace ATL;
 class ATL_NO_VTABLE CPooledDbManager
     : public CComObjectRootEx<CComSingleThreadModel>,
       public CComCoClass<CPooledDbManager, &CLSID_PooledDbManager>,
+	  public ISupportErrorInfo,
       public IDispatchImpl<IPooledDbManager, &IID_IPooledDbManager,
                            &LIBID_transactd, /* wMajor = */ 1, /* wMinor = */ 0>
 {
@@ -40,7 +41,10 @@ public:
     BEGIN_COM_MAP(CPooledDbManager)
     COM_INTERFACE_ENTRY(IPooledDbManager)
     COM_INTERFACE_ENTRY(IDispatch)
+    COM_INTERFACE_ENTRY(ISupportErrorInfo)
     END_COM_MAP()
+// ISupportsErrorInfo
+	STDMETHOD(InterfaceSupportsErrorInfo)(REFIID riid);
 
     DECLARE_PROTECT_FINAL_CONSTRUCT()
 

data/source/global/tdclatl/PreparedQuery.cpp

@@ -19,6 +19,21 @@
 #include "stdafx.h"
 #include "PreparedQuery.h"
 
+STDMETHODIMP CPreparedQuery::InterfaceSupportsErrorInfo(REFIID riid)
+{
+	static const IID* const arr[] = 
+	{
+		&IID_IPreparedQuery
+	};
+
+	for (int i=0; i < sizeof(arr) / sizeof(arr[0]); i++)
+	{
+		if (InlineIsEqualGUID(*arr[i],riid))
+			return S_OK;
+	}
+	return S_FALSE;
+}
+
 STDMETHODIMP CPreparedQuery::SupplyValue(int Index, VARIANT Value, VARIANT_BOOL* retVal)
 {
     if (Value.vt != VT_BSTR)

data/source/global/tdclatl/PreparedQuery.h

@@ -26,6 +26,7 @@ using namespace ATL;
 class ATL_NO_VTABLE CPreparedQuery
     : public CComObjectRootEx<CComSingleThreadModel>,
       public CComCoClass<CPreparedQuery, &CLSID_PreparedQuery>,
+	  public ISupportErrorInfo,
       public IDispatchImpl<IPreparedQuery, &IID_IPreparedQuery, &LIBID_transactd,
                            /* wMajor = */ 1, /* wMinor = */ 0>
 {
@@ -44,7 +45,10 @@ public:
     BEGIN_COM_MAP(CPreparedQuery)
     COM_INTERFACE_ENTRY(IPreparedQuery)
     COM_INTERFACE_ENTRY(IDispatch)
+    COM_INTERFACE_ENTRY(ISupportErrorInfo)
     END_COM_MAP()
+// ISupportsErrorInfo
+	STDMETHOD(InterfaceSupportsErrorInfo)(REFIID riid);
 
     DECLARE_PROTECT_FINAL_CONSTRUCT()
 

data/source/global/tdclatl/QueryBase.cpp

@@ -21,6 +21,21 @@
 #include "Table.h"
 #include "Bookmark.h"
 
+STDMETHODIMP CQueryBase::InterfaceSupportsErrorInfo(REFIID riid)
+{
+	static const IID* const arr[] = 
+	{
+		&IID_IQueryBase
+	};
+
+	for (int i=0; i < sizeof(arr) / sizeof(arr[0]); i++)
+	{
+		if (InlineIsEqualGUID(*arr[i],riid))
+			return S_OK;
+	}
+	return S_FALSE;
+}
+
 STDMETHODIMP CQueryBase::Reset(IQueryBase** retVal)
 {
     m_qb.reset();

data/source/global/tdclatl/QueryBase.h

@@ -27,6 +27,7 @@ using namespace ATL;
 class ATL_NO_VTABLE CQueryBase
     : public CComObjectRootEx<CComSingleThreadModel>,
       public CComCoClass<CQueryBase, &CLSID_QueryBase>,
+	  public ISupportErrorInfo,
       public IDispatchImpl<IQueryBase, &IID_IQueryBase, &LIBID_transactd,
                            /*wMajor =*/1, /*wMinor =*/0>
 {
@@ -43,7 +44,10 @@ public:
     BEGIN_COM_MAP(CQueryBase)
     COM_INTERFACE_ENTRY(IQueryBase)
     COM_INTERFACE_ENTRY(IDispatch)
+    COM_INTERFACE_ENTRY(ISupportErrorInfo)
     END_COM_MAP()
+// ISupportsErrorInfo
+	STDMETHOD(InterfaceSupportsErrorInfo)(REFIID riid);
 
     DECLARE_PROTECT_FINAL_CONSTRUCT()