/************************************************************************* * * $RCSfile: AConnection.cxx,v $ * * $Revision: 1.19 $ * * last change: $Author: oj $ $Date: 2002-08-23 10:06:33 $ * * The Contents of this file are made available subject to the terms of * either of the following licenses * * - GNU Lesser General Public License Version 2.1 * - Sun Industry Standards Source License Version 1.1 * * Sun Microsystems Inc., October, 2000 * * GNU Lesser General Public License Version 2.1 * ============================================= * Copyright 2000 by Sun Microsystems, Inc. * 901 San Antonio Road, Palo Alto, CA 94303, USA * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License version 2.1, as published by the Free Software Foundation. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, * MA 02111-1307 USA * * * Sun Industry Standards Source License Version 1.1 * ================================================= * The contents of this file are subject to the Sun Industry Standards * Source License Version 1.1 (the "License"); You may not use this file * except in compliance with the License. You may obtain a copy of the * License at http://www.openoffice.org/license.html. * * Software provided under this License is provided on an "AS IS" basis, * WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, * WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS, * MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING. * See the License for the specific provisions governing your rights and * obligations concerning the Software. * * The Initial Developer of the Original Code is: Sun Microsystems, Inc. * * Copyright: 2000 by Sun Microsystems, Inc. * * All Rights Reserved. * * Contributor(s): _______________________________________ * * ************************************************************************/ #ifndef _CONNECTIVITY_ADO_ACONNECTION_HXX_ #include "ado/AConnection.hxx" #endif #ifndef _CONNECTIVITY_ADO_ADATABASEMETADATA_HXX_ #include "ado/ADatabaseMetaData.hxx" #endif #ifndef _CONNECTIVITY_RESOURCE_HRC_ #include "Resource.hrc" #endif #ifndef _CONNECTIVITY_MODULECONTEXT_HXX_ #include "ModuleContext.hxx" #endif #ifndef _CONNECTIVITY_ADO_ADRIVER_HXX_ #include "ado/ADriver.hxx" #endif #ifndef _CONNECTIVITY_ADO_ASTATEMENT_HXX_ #include "ado/AStatement.hxx" #endif #ifndef _CONNECTIVITY_ADO_ACALLABLESTATEMENT_HXX_ #include "ado/ACallableStatement.hxx" #endif #ifndef _CONNECTIVITY_ADO_APREPAREDSTATEMENT_HXX_ #include "ado/APreparedStatement.hxx" #endif #ifndef _CONNECTIVITY_ADO_CATALOG_HXX_ #include "ado/ACatalog.hxx" #endif #ifndef _COM_SUN_STAR_SDBC_COLUMNVALUE_HPP_ #include #endif #ifndef _COM_SUN_STAR_SDBC_TRANSACTIONISOLATION_HPP_ #include #endif #ifndef _COM_SUN_STAR_SDBC_XROW_HPP_ #include #endif #ifndef _COM_SUN_STAR_LANG_DISPOSEDEXCEPTION_HPP_ #include #endif #ifndef _CPPUHELPER_TYPEPROVIDER_HXX_ #include #endif #ifndef _DBHELPER_DBEXCEPTION_HXX_ #include "connectivity/dbexception.hxx" #endif using namespace dbtools; using namespace connectivity::ado; using namespace com::sun::star::uno; using namespace com::sun::star::lang; using namespace com::sun::star::beans; using namespace com::sun::star::sdbc; using namespace com::sun::star::sdbcx; //------------------------------------------------------------------------------ IMPLEMENT_SERVICE_INFO(OConnection,"com.sun.star.sdbcx.AConnection","com.sun.star.sdbc.Connection"); // -------------------------------------------------------------------------------- OConnection::OConnection(const ::rtl::OUString& url, const Sequence< PropertyValue >& info, ODriver* _pDriver) throw(SQLException, RuntimeException) : OSubComponent((::cppu::OWeakObject*)_pDriver, this), m_bClosed(sal_False), m_xMetaData(NULL), m_xCatalog(NULL), m_pDriver(_pDriver), m_pAdoConnection(NULL), m_bAutocommit(sal_True), m_nEngineType(0) { ModuleContext::AddRef(); osl_incrementInterlockedCount( &m_refCount ); IClassFactory2* pIUnknown = NULL; IUnknown *pOuter = NULL; HRESULT hr; hr = CoGetClassObject( ADOS::CLSID_ADOCONNECTION_21, CLSCTX_INPROC_SERVER, NULL, IID_IClassFactory2, (void**)&pIUnknown ); if( !FAILED( hr ) ) { ADOConnection *pCon = NULL; hr = pIUnknown->CreateInstanceLic( pOuter, NULL, ADOS::IID_ADOCONNECTION_21, ADOS::GetKeyStr(), (void**) &pCon); if( !FAILED( hr ) ) { OSL_ENSURE( pCon, "OConnection::OConnection: invalid ADO object!" ); m_pAdoConnection = new WpADOConnection( pCon ); // CreateInstanceLic returned an object which was already acquired pCon->Release( ); } // Class Factory is no longer needed pIUnknown->Release(); } osl_decrementInterlockedCount( &m_refCount ); } //----------------------------------------------------------------------------- OConnection::~OConnection() { ModuleContext::ReleaseRef(); } //----------------------------------------------------------------------------- void OConnection::construct(const ::rtl::OUString& url,const Sequence< PropertyValue >& info) { osl_incrementInterlockedCount( &m_refCount ); sal_Int32 nLen = url.indexOf(':'); nLen = url.indexOf(':',nLen+1); ::rtl::OUString aDSN(url.copy(nLen+1)),aUID,aPWD; sal_Int32 nTimeout = 20; sal_Bool bSilent = sal_True; const PropertyValue *pBegin = info.getConstArray(); const PropertyValue *pEnd = pBegin + info.getLength(); for(;pBegin != pEnd;++pBegin) { if(!pBegin->Name.compareToAscii("Timeout")) pBegin->Value >>= nTimeout; else if(!pBegin->Name.compareToAscii("Silent")) pBegin->Value >>= bSilent; else if(!pBegin->Name.compareToAscii("user")) pBegin->Value >>= aUID; else if(!pBegin->Name.compareToAscii("password")) pBegin->Value >>= aPWD; } if(m_pAdoConnection) { if(m_pAdoConnection->Open(aDSN,aUID,aPWD,adConnectUnspecified)) m_pAdoConnection->PutCommandTimeout(nTimeout); else ADOS::ThrowException(*m_pAdoConnection,*this); if(m_pAdoConnection->get_State() != adStateOpen) ::dbtools::throwFunctionSequenceException(*this); WpADOProperties aProps = m_pAdoConnection->get_Properties(); if(aProps.IsValid()) { OTools::putValue(aProps,::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("Jet OLEDB:ODBC Parsing")),sal_True); OLEVariant aVar(OTools::getValue(aProps,::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("Jet OLEDB:Engine Type")))); if(!aVar.isNull() && !aVar.isEmpty()) m_nEngineType = aVar; } buildTypeInfo(); //bErg = TRUE; } else ::dbtools::throwFunctionSequenceException(*this); osl_decrementInterlockedCount( &m_refCount ); } //----------------------------------------------------------------------------- void SAL_CALL OConnection::release() throw(RuntimeException) { relase_ChildImpl(); } // -------------------------------------------------------------------------------- Reference< XStatement > SAL_CALL OConnection::createStatement( ) throw(SQLException, RuntimeException) { ::osl::MutexGuard aGuard( m_aMutex ); checkDisposed(OConnection_BASE::rBHelper.bDisposed); OStatement* pStmt = new OStatement(this); Reference< XStatement > xStmt = pStmt; m_aStatements.push_back(WeakReferenceHelper(*pStmt)); return pStmt; } // -------------------------------------------------------------------------------- Reference< XPreparedStatement > SAL_CALL OConnection::prepareStatement( const ::rtl::OUString& sql ) throw(SQLException, RuntimeException) { ::osl::MutexGuard aGuard( m_aMutex ); checkDisposed(OConnection_BASE::rBHelper.bDisposed); OPreparedStatement* pStmt = new OPreparedStatement(this,m_aTypeInfo,sql); Reference< XPreparedStatement > xPStmt = pStmt; m_aStatements.push_back(WeakReferenceHelper(*pStmt)); return xPStmt; } // -------------------------------------------------------------------------------- Reference< XPreparedStatement > SAL_CALL OConnection::prepareCall( const ::rtl::OUString& sql ) throw(SQLException, RuntimeException) { ::osl::MutexGuard aGuard( m_aMutex ); checkDisposed(OConnection_BASE::rBHelper.bDisposed); OCallableStatement* pStmt = new OCallableStatement(this,m_aTypeInfo,sql); Reference< XPreparedStatement > xPStmt = pStmt; m_aStatements.push_back(WeakReferenceHelper(*pStmt)); return xPStmt; } // -------------------------------------------------------------------------------- ::rtl::OUString SAL_CALL OConnection::nativeSQL( const ::rtl::OUString& _sql ) throw(SQLException, RuntimeException) { ::osl::MutexGuard aGuard( m_aMutex ); checkDisposed(OConnection_BASE::rBHelper.bDisposed); ::rtl::OUString sql = _sql; WpADOProperties aProps = m_pAdoConnection->get_Properties(); if(aProps.IsValid()) { OTools::putValue(aProps,::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("Jet OLEDB:ODBC Parsing")),sal_True); WpADOCommand aCommand; aCommand.Create(); aCommand.put_ActiveConnection((IDispatch*)*m_pAdoConnection); aCommand.put_CommandText(sql); sql = aCommand.get_CommandText(); } return sql; } // -------------------------------------------------------------------------------- void SAL_CALL OConnection::setAutoCommit( sal_Bool autoCommit ) throw(SQLException, RuntimeException) { ::osl::MutexGuard aGuard( m_aMutex ); checkDisposed(OConnection_BASE::rBHelper.bDisposed); m_bAutocommit = autoCommit; if(!autoCommit) m_pAdoConnection->BeginTrans(); else m_pAdoConnection->RollbackTrans(); } // -------------------------------------------------------------------------------- sal_Bool SAL_CALL OConnection::getAutoCommit( ) throw(SQLException, RuntimeException) { ::osl::MutexGuard aGuard( m_aMutex ); checkDisposed(OConnection_BASE::rBHelper.bDisposed); return m_bAutocommit; } // -------------------------------------------------------------------------------- void SAL_CALL OConnection::commit( ) throw(SQLException, RuntimeException) { ::osl::MutexGuard aGuard( m_aMutex ); checkDisposed(OConnection_BASE::rBHelper.bDisposed); m_pAdoConnection->CommitTrans(); } // -------------------------------------------------------------------------------- void SAL_CALL OConnection::rollback( ) throw(SQLException, RuntimeException) { ::osl::MutexGuard aGuard( m_aMutex ); checkDisposed(OConnection_BASE::rBHelper.bDisposed); m_pAdoConnection->RollbackTrans(); } // -------------------------------------------------------------------------------- sal_Bool SAL_CALL OConnection::isClosed( ) throw(SQLException, RuntimeException) { ::osl::MutexGuard aGuard( m_aMutex ); return OConnection_BASE::rBHelper.bDisposed && !m_pAdoConnection->get_State(); } // -------------------------------------------------------------------------------- Reference< XDatabaseMetaData > SAL_CALL OConnection::getMetaData( ) throw(SQLException, RuntimeException) { ::osl::MutexGuard aGuard( m_aMutex ); checkDisposed(OConnection_BASE::rBHelper.bDisposed); Reference< XDatabaseMetaData > xMetaData = m_xMetaData; if(!xMetaData.is()) { xMetaData = new ODatabaseMetaData(this); m_xMetaData = xMetaData; } return xMetaData; } // -------------------------------------------------------------------------------- void SAL_CALL OConnection::setReadOnly( sal_Bool readOnly ) throw(SQLException, RuntimeException) { ::osl::MutexGuard aGuard( m_aMutex ); checkDisposed(OConnection_BASE::rBHelper.bDisposed); m_pAdoConnection->put_Mode(adModeRead); ADOS::ThrowException(*m_pAdoConnection,*this); } // -------------------------------------------------------------------------------- sal_Bool SAL_CALL OConnection::isReadOnly( ) throw(SQLException, RuntimeException) { ::osl::MutexGuard aGuard( m_aMutex ); checkDisposed(OConnection_BASE::rBHelper.bDisposed); return m_pAdoConnection->get_Mode() == adModeRead; } // -------------------------------------------------------------------------------- void SAL_CALL OConnection::setCatalog( const ::rtl::OUString& catalog ) throw(SQLException, RuntimeException) { ::osl::MutexGuard aGuard( m_aMutex ); checkDisposed(OConnection_BASE::rBHelper.bDisposed); m_pAdoConnection->PutDefaultDatabase(catalog); ADOS::ThrowException(*m_pAdoConnection,*this); } // -------------------------------------------------------------------------------- ::rtl::OUString SAL_CALL OConnection::getCatalog( ) throw(SQLException, RuntimeException) { ::osl::MutexGuard aGuard( m_aMutex ); checkDisposed(OConnection_BASE::rBHelper.bDisposed); return m_pAdoConnection->GetDefaultDatabase(); } // -------------------------------------------------------------------------------- void SAL_CALL OConnection::setTransactionIsolation( sal_Int32 level ) throw(SQLException, RuntimeException) { ::osl::MutexGuard aGuard( m_aMutex ); checkDisposed(OConnection_BASE::rBHelper.bDisposed); IsolationLevelEnum eIso; switch(level) { case TransactionIsolation::NONE: eIso = adXactUnspecified; break; case TransactionIsolation::READ_UNCOMMITTED: eIso = adXactReadUncommitted; break; case TransactionIsolation::READ_COMMITTED: eIso = adXactReadCommitted; break; case TransactionIsolation::REPEATABLE_READ: eIso = adXactRepeatableRead; break; case TransactionIsolation::SERIALIZABLE: eIso = adXactSerializable; break; default: OSL_ENSURE(0,"OConnection::setTransactionIsolation invalid level"); return; } m_pAdoConnection->put_IsolationLevel(eIso); ADOS::ThrowException(*m_pAdoConnection,*this); } // -------------------------------------------------------------------------------- sal_Int32 SAL_CALL OConnection::getTransactionIsolation( ) throw(SQLException, RuntimeException) { ::osl::MutexGuard aGuard( m_aMutex ); checkDisposed(OConnection_BASE::rBHelper.bDisposed); sal_Int32 nRet = 0; switch(m_pAdoConnection->get_IsolationLevel()) { case adXactUnspecified: nRet = TransactionIsolation::NONE; break; case adXactReadUncommitted: nRet = TransactionIsolation::READ_UNCOMMITTED; break; case adXactReadCommitted: nRet = TransactionIsolation::READ_COMMITTED; break; case adXactRepeatableRead: nRet = TransactionIsolation::REPEATABLE_READ; break; case adXactSerializable: nRet = TransactionIsolation::SERIALIZABLE; break; default: OSL_ENSURE(0,"OConnection::setTransactionIsolation invalid level"); } ADOS::ThrowException(*m_pAdoConnection,*this); return nRet; } // -------------------------------------------------------------------------------- Reference< ::com::sun::star::container::XNameAccess > SAL_CALL OConnection::getTypeMap( ) throw(SQLException, RuntimeException) { ::osl::MutexGuard aGuard( m_aMutex ); checkDisposed(OConnection_BASE::rBHelper.bDisposed); return NULL; } // -------------------------------------------------------------------------------- void SAL_CALL OConnection::setTypeMap( const Reference< ::com::sun::star::container::XNameAccess >& typeMap ) throw(SQLException, RuntimeException) { } // -------------------------------------------------------------------------------- // XCloseable void SAL_CALL OConnection::close( ) throw(SQLException, RuntimeException) { { ::osl::MutexGuard aGuard( m_aMutex ); checkDisposed(OConnection_BASE::rBHelper.bDisposed); } dispose(); } // -------------------------------------------------------------------------------- // XWarningsSupplier Any SAL_CALL OConnection::getWarnings( ) throw(SQLException, RuntimeException) { return Any(); } // -------------------------------------------------------------------------------- void SAL_CALL OConnection::clearWarnings( ) throw(SQLException, RuntimeException) { } //-------------------------------------------------------------------- void OConnection::buildTypeInfo() throw( SQLException) { ::osl::MutexGuard aGuard( m_aMutex ); Reference< XResultSet> xRs = getMetaData()->getTypeInfo(); Reference< XRow> xRow(xRs,UNO_QUERY); // Information for a single SQL type // Loop on the result set until we reach end of file while (xRs->next()) { OTypeInfo* aInfo = new OTypeInfo(); aInfo->aTypeName = xRow->getString (1); aInfo->nType = xRow->getShort (2); aInfo->nPrecision = xRow->getInt (3); aInfo->aLiteralPrefix = xRow->getString (4); aInfo->aLiteralSuffix = xRow->getString (5); aInfo->aCreateParams = xRow->getString (6); aInfo->bNullable = xRow->getInt (7) == ColumnValue::NULLABLE; aInfo->bCaseSensitive = xRow->getBoolean (8); aInfo->nSearchType = xRow->getShort (9); aInfo->bUnsigned = xRow->getBoolean (10); aInfo->bCurrency = xRow->getBoolean (11); aInfo->bAutoIncrement = xRow->getBoolean (12); aInfo->aLocalTypeName = xRow->getString (13); aInfo->nMinimumScale = xRow->getShort (14); aInfo->nMaximumScale = xRow->getShort (15); aInfo->nNumPrecRadix = (sal_Int16)xRow->getInt (18); // Now that we have the type info, save it // in the Hashtable if we don't already have an // entry for this SQL type. m_aTypeInfo.insert(OTypeInfoMap::value_type(aInfo->nType,aInfo)); } // Close the result set/statement. Reference< XCloseable>(xRs,UNO_QUERY)->close(); } //------------------------------------------------------------------------------ void OConnection::disposing() { ::osl::MutexGuard aGuard(m_aMutex); // m_aTables.disposing(); for (OWeakRefArray::iterator i = m_aStatements.begin(); m_aStatements.end() != i; ++i) ::comphelper::disposeComponent(i->get()); m_aStatements.clear(); m_bClosed = sal_True; m_xMetaData = ::com::sun::star::uno::WeakReference< ::com::sun::star::sdbc::XDatabaseMetaData>(); m_xCatalog = ::com::sun::star::uno::WeakReference< ::com::sun::star::sdbcx::XTablesSupplier>(); m_pDriver = NULL; m_pAdoConnection->Close(); OTypeInfoMap::iterator aIter = m_aTypeInfo.begin(); for (; aIter != m_aTypeInfo.end(); ++aIter) delete aIter->second; m_aTypeInfo.clear(); delete m_pAdoConnection; m_pAdoConnection = NULL; dispose_ChildImpl(); OConnection_BASE::disposing(); } // ----------------------------------------------------------------------------- sal_Int64 SAL_CALL OConnection::getSomething( const ::com::sun::star::uno::Sequence< sal_Int8 >& rId ) throw (::com::sun::star::uno::RuntimeException) { return (rId.getLength() == 16 && 0 == rtl_compareMemory(getUnoTunnelImplementationId().getConstArray(), rId.getConstArray(), 16 ) ) ? (sal_Int64)this : OConnection_BASE::getSomething(rId); } // ----------------------------------------------------------------------------- Sequence< sal_Int8 > OConnection::getUnoTunnelImplementationId() { static ::cppu::OImplementationId * pId = 0; if (! pId) { ::osl::MutexGuard aGuard( ::osl::Mutex::getGlobalMutex() ); if (! pId) { static ::cppu::OImplementationId aId; pId = &aId; } } return pId->getImplementationId(); } // ----------------------------------------------------------------------------- const ::connectivity::OTypeInfo* OConnection::getTypeInfoFromType(const OTypeInfoMap& _rTypeInfo, sal_Int32 _nType, const ::rtl::OUString& _sTypeName, sal_Int32 _nPrecision, sal_Int32 _nScale, sal_Bool& _brForceToType) { const ::connectivity::OTypeInfo* pTypeInfo = NULL; _brForceToType = sal_False; // search for type ::std::pair aPair = _rTypeInfo.equal_range(_nType); OTypeInfoMap::const_iterator aIter = aPair.first; if(aIter != _rTypeInfo.end()) // compare with end is correct here { for(;aIter != aPair.second;++aIter) { // search the best matching type #ifdef DBG_UTIL ::rtl::OUString sDBTypeName = aIter->second->aTypeName; sal_Int32 nDBTypePrecision = aIter->second->nPrecision; sal_Int32 nDBTypeScale = aIter->second->nMaximumScale; #endif if ( ( !_sTypeName.getLength() || (aIter->second->aTypeName.equalsIgnoreAsciiCase(_sTypeName)) ) && (aIter->second->nPrecision >= _nPrecision) && (aIter->second->nMaximumScale >= _nScale) ) break; } if (aIter == aPair.second) { for(aIter = aPair.first; aIter != aPair.second; ++aIter) { // search the best matching type (now comparing the local names) if ( (aIter->second->aLocalTypeName.equalsIgnoreAsciiCase(_sTypeName)) && (aIter->second->nPrecision >= _nPrecision) && (aIter->second->nMaximumScale >= _nScale) ) { // we can not assert here because we could be in d&d /* OSL_ENSURE(sal_False, ( ::rtl::OString("getTypeInfoFromType: assuming column type ") += ::rtl::OString(aIter->second->aTypeName.getStr(), aIter->second->aTypeName.getLength(), gsl_getSystemTextEncoding()) += ::rtl::OString("\" (expected type name ") += ::rtl::OString(_sTypeName.getStr(), _sTypeName.getLength(), gsl_getSystemTextEncoding()) += ::rtl::OString(" matches the type's local name).")).getStr()); */ break; } } } if (aIter == aPair.second) { // no match for the names, no match for the local names // -> drop the precision and the scale restriction, accept any type with the property // type id (nType) // we can not assert here because we could be in d&d /* OSL_ENSURE(sal_False, ( ::rtl::OString("getTypeInfoFromType: did not find a matching type") += ::rtl::OString(" (expected type name: ") += ::rtl::OString(_sTypeName.getStr(), _sTypeName.getLength(), gsl_getSystemTextEncoding()) += ::rtl::OString(")! Defaulting to the first matching type.")).getStr()); */ pTypeInfo = aPair.first->second; _brForceToType = sal_True; } else pTypeInfo = aIter->second; } else { ::comphelper::TStringMixEqualFunctor aCase(sal_False); // search for typeinfo where the typename is equal _sTypeName OTypeInfoMap::const_iterator aFind = ::std::find_if(_rTypeInfo.begin(), _rTypeInfo.end(), ::std::compose1( ::std::bind2nd(aCase, _sTypeName), ::std::compose1( ::std::mem_fun(&::connectivity::OTypeInfo::getDBName), ::std::select2nd()) ) ); if(aFind != _rTypeInfo.end()) pTypeInfo = aFind->second; } // we can not assert here because we could be in d&d // OSL_ENSURE(pTypeInfo, "getTypeInfoFromType: no type info found for this type!"); return pTypeInfo; } // -----------------------------------------------------------------------------