connectivity/source/commontools/dbtools2.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20 #include "connectivity/dbtools.hxx"
  21 #include "connectivity/dbconversion.hxx"
  22 #include "connectivity/dbcharset.hxx"
  23 #include "connectivity/SQLStatementHelper.hxx"
  24 #include <unotools/confignode.hxx>
  25 #include "resource/sharedresources.hxx"
  26 #include "resource/common_res.hrc"
  27 #include <com/sun/star/sdbc/XConnection.hpp>
  28 #include <com/sun/star/sdbc/ColumnValue.hpp>
  29 #include <com/sun/star/sdbc/DataType.hpp>
  30 #include <com/sun/star/sdbc/DriverManager.hpp>
  31 #include <com/sun/star/sdbc/XRow.hpp>
  32 #include <com/sun/star/sdbc/XResultSetMetaDataSupplier.hpp>
  33 #include <com/sun/star/sdbcx/XKeysSupplier.hpp>
  34 #include <com/sun/star/sdbc/XDriverAccess.hpp>
  35 #include <com/sun/star/sdbcx/XDataDefinitionSupplier.hpp>
  36 #include <com/sun/star/sdbcx/Privilege.hpp>
  37 #include <com/sun/star/container/XIndexAccess.hpp>
  38 #include <com/sun/star/container/XEnumerationAccess.hpp>
  39 #include <com/sun/star/sdbc/KeyRule.hpp>
  40 #include <com/sun/star/sdbcx/KeyType.hpp>
  41 #include "TConnection.hxx"
  42 #include "connectivity/sdbcx/VColumn.hxx"
  43 #include <com/sun/star/frame/XModel.hpp>
  44 #include <com/sun/star/container/XChild.hpp>
  45
  46 #include <tools/diagnose_ex.h>
  47 #include <unotools/sharedunocomponent.hxx>
  48
  49
  50 namespace dbtools
  51 {
  52
  53     using namespace ::com::sun::star::uno;
  54     using namespace ::com::sun::star::beans;
  55     using namespace ::com::sun::star::sdbc;
  56     using namespace ::com::sun::star::sdbcx;
  57     using namespace ::com::sun::star::lang;
  58     using namespace ::com::sun::star::container;
  59     using namespace ::com::sun::star::frame;
  60     using namespace connectivity;
  61     using namespace comphelper;
  62
  63 OUString createStandardTypePart(const Reference< XPropertySet >& xColProp,const Reference< XConnection>& _xConnection,const OUString& _sCreatePattern)
  64 {
  65
  66     Reference<XDatabaseMetaData> xMetaData = _xConnection->getMetaData();
  67
  68     ::dbtools::OPropertyMap& rPropMap = OMetaConnection::getPropMap();
  69
  70     OUString sTypeName;
  71     sal_Int32       nDataType   = 0;
  72     sal_Int32       nPrecision  = 0;
  73     sal_Int32       nScale      = 0;
  74
  75     nDataType = nPrecision = nScale = 0;
  76
  77     xColProp->getPropertyValue(rPropMap.getNameByIndex(PROPERTY_ID_TYPENAME))           >>= sTypeName;
  78     xColProp->getPropertyValue(rPropMap.getNameByIndex(PROPERTY_ID_TYPE))               >>= nDataType;
  79     xColProp->getPropertyValue(rPropMap.getNameByIndex(PROPERTY_ID_PRECISION))          >>= nPrecision;
  80     xColProp->getPropertyValue(rPropMap.getNameByIndex(PROPERTY_ID_SCALE))              >>= nScale;
  81
  82     OUStringBuffer aSql;
  83
  84     // check if the user enter a specific string to create autoincrement values
  85     OUString sAutoIncrementValue;
  86     Reference<XPropertySetInfo> xPropInfo = xColProp->getPropertySetInfo();
  87     if ( xPropInfo.is() && xPropInfo->hasPropertyByName(rPropMap.getNameByIndex(PROPERTY_ID_AUTOINCREMENTCREATION)) )
  88         xColProp->getPropertyValue(rPropMap.getNameByIndex(PROPERTY_ID_AUTOINCREMENTCREATION)) >>= sAutoIncrementValue;
  89     // look if we have to use precisions
  90     bool bUseLiteral = false;
  91     OUString sPrefix,sPostfix,sCreateParams;
  92     {
  93         Reference<XResultSet> xRes = xMetaData->getTypeInfo();
  94         if(xRes.is())
  95         {
  96             Reference<XRow> xRow(xRes,UNO_QUERY);
  97             while(xRes->next())
  98             {
  99                 OUString sTypeName2Cmp = xRow->getString(1);
 100                 sal_Int32 nType = xRow->getShort(2);
 101                 sPrefix = xRow->getString (4);
 102                 sPostfix = xRow->getString (5);
 103                 sCreateParams = xRow->getString(6);
 104                 // first identical type will be used if typename is empty
 105                 if ( sTypeName.isEmpty() && nType == nDataType )
 106                     sTypeName = sTypeName2Cmp;
 107
 108                 if( sTypeName.equalsIgnoreAsciiCase(sTypeName2Cmp) && nType == nDataType && !sCreateParams.isEmpty() && !xRow->wasNull())
 109                 {
 110                     bUseLiteral = true;
 111                     break;
 112                 }
 113             }
 114         }
 115     }
 116
 117     sal_Int32 nIndex = 0;
 118     if ( !sAutoIncrementValue.isEmpty() && (nIndex = sTypeName.indexOf(sAutoIncrementValue)) != -1 )
 119     {
 120         sTypeName = sTypeName.replaceAt(nIndex,sTypeName.getLength() - nIndex,OUString());
 121     }
 122
 123     if ( (nPrecision > 0 || nScale > 0) && bUseLiteral )
 124     {
 125         sal_Int32 nParenPos = sTypeName.indexOf('(');
 126         if ( nParenPos == -1 )
 127         {
 128             aSql.append(sTypeName);
 129             aSql.appendAscii("(");
 130         }
 131         else
 132         {
 133             aSql.append(sTypeName.copy(0,++nParenPos));
 134         }
 135
 136         if ( nPrecision > 0 && nDataType != DataType::TIMESTAMP )
 137         {
 138             aSql.append(nPrecision);
 139             if ( (nScale > 0) || (!_sCreatePattern.isEmpty() && sCreateParams.indexOf(_sCreatePattern) != -1) )
 140                 aSql.appendAscii(",");
 141         }
 142         if ( (nScale > 0) || ( !_sCreatePattern.isEmpty() && sCreateParams.indexOf(_sCreatePattern) != -1 ) || nDataType == DataType::TIMESTAMP )
 143             aSql.append(nScale);
 144
 145         if ( nParenPos == -1 )
 146             aSql.appendAscii(")");
 147         else
 148         {
 149             nParenPos = sTypeName.indexOf(')',nParenPos);
 150             aSql.append(sTypeName.copy(nParenPos));
 151         }
 152     }
 153     else
 154         aSql.append(sTypeName); // simply add the type name
 155
 156     OUString aDefault = ::comphelper::getString(xColProp->getPropertyValue(rPropMap.getNameByIndex(PROPERTY_ID_DEFAULTVALUE)));
 157     if ( !aDefault.isEmpty() )
 158     {
 159         aSql.append(" DEFAULT ");
 160         aSql.append(sPrefix);
 161         aSql.append(aDefault);
 162         aSql.append(sPostfix);
 163     } // if ( aDefault.getLength() )
 164
 165     return aSql.makeStringAndClear();
 166 }
 167
 168 OUString createStandardColumnPart(const Reference< XPropertySet >& xColProp,const Reference< XConnection>& _xConnection,ISQLStatementHelper* _pHelper,const OUString& _sCreatePattern)
 169 {
 170     Reference<XDatabaseMetaData> xMetaData = _xConnection->getMetaData();
 171
 172     ::dbtools::OPropertyMap& rPropMap = OMetaConnection::getPropMap();
 173
 174     bool bIsAutoIncrement = false;
 175     xColProp->getPropertyValue(rPropMap.getNameByIndex(PROPERTY_ID_ISAUTOINCREMENT))    >>= bIsAutoIncrement;
 176
 177     const OUString sQuoteString = xMetaData->getIdentifierQuoteString();
 178     OUStringBuffer aSql = ::dbtools::quoteName(sQuoteString,::comphelper::getString(xColProp->getPropertyValue(rPropMap.getNameByIndex(PROPERTY_ID_NAME))));
 179
 180     // check if the user enter a specific string to create autoincrement values
 181     OUString sAutoIncrementValue;
 182     Reference<XPropertySetInfo> xPropInfo = xColProp->getPropertySetInfo();
 183     if ( xPropInfo.is() && xPropInfo->hasPropertyByName(rPropMap.getNameByIndex(PROPERTY_ID_AUTOINCREMENTCREATION)) )
 184         xColProp->getPropertyValue(rPropMap.getNameByIndex(PROPERTY_ID_AUTOINCREMENTCREATION)) >>= sAutoIncrementValue;
 185
 186     aSql.appendAscii(" ");
 187
 188     aSql.append(createStandardTypePart(xColProp, _xConnection, _sCreatePattern));
 189
 190     if(::comphelper::getINT32(xColProp->getPropertyValue(rPropMap.getNameByIndex(PROPERTY_ID_ISNULLABLE))) == ColumnValue::NO_NULLS)
 191         aSql.append(" NOT NULL");
 192
 193     if ( bIsAutoIncrement && !sAutoIncrementValue.isEmpty())
 194     {
 195         aSql.appendAscii(" ");
 196         aSql.append(sAutoIncrementValue);
 197     }
 198
 199     if ( _pHelper )
 200         _pHelper->addComment(xColProp,aSql);
 201
 202     return aSql.makeStringAndClear();
 203 }
 204
 205
 206
 207 OUString createStandardCreateStatement(const Reference< XPropertySet >& descriptor,const Reference< XConnection>& _xConnection,ISQLStatementHelper* _pHelper,const OUString& _sCreatePattern)
 208 {
 209     OUStringBuffer aSql("CREATE TABLE ");
 210     OUString sCatalog,sSchema,sTable,sComposedName;
 211
 212     Reference<XDatabaseMetaData> xMetaData = _xConnection->getMetaData();
 213     ::dbtools::OPropertyMap& rPropMap = OMetaConnection::getPropMap();
 214
 215     descriptor->getPropertyValue(rPropMap.getNameByIndex(PROPERTY_ID_CATALOGNAME))  >>= sCatalog;
 216     descriptor->getPropertyValue(rPropMap.getNameByIndex(PROPERTY_ID_SCHEMANAME))   >>= sSchema;
 217     descriptor->getPropertyValue(rPropMap.getNameByIndex(PROPERTY_ID_NAME))         >>= sTable;
 218
 219     sComposedName = ::dbtools::composeTableName( xMetaData, sCatalog, sSchema, sTable, true, ::dbtools::eInTableDefinitions );
 220     if ( sComposedName.isEmpty() )
 221         ::dbtools::throwFunctionSequenceException(_xConnection);
 222
 223     aSql.append(sComposedName);
 224     aSql.append(" (");
 225
 226     // columns
 227     Reference<XColumnsSupplier> xColumnSup(descriptor,UNO_QUERY);
 228     Reference<XIndexAccess> xColumns(xColumnSup->getColumns(),UNO_QUERY);
 229     // check if there are columns
 230     if(!xColumns.is() || !xColumns->getCount())
 231         ::dbtools::throwFunctionSequenceException(_xConnection);
 232
 233     Reference< XPropertySet > xColProp;
 234
 235     sal_Int32 nCount = xColumns->getCount();
 236     for(sal_Int32 i=0;i<nCount;++i)
 237     {
 238         if ( (xColumns->getByIndex(i) >>= xColProp) && xColProp.is() )
 239         {
 240             aSql.append(createStandardColumnPart(xColProp,_xConnection,_pHelper,_sCreatePattern));
 241             aSql.appendAscii(",");
 242         }
 243     }
 244     return aSql.makeStringAndClear();
 245 }
 246 namespace
 247 {
 248     OUString generateColumnNames(const Reference<XIndexAccess>& _xColumns,const Reference<XDatabaseMetaData>& _xMetaData)
 249     {
 250         ::dbtools::OPropertyMap& rPropMap = OMetaConnection::getPropMap();
 251
 252         const OUString sQuote(_xMetaData->getIdentifierQuoteString());
 253         OUString sSql( " (" );
 254         Reference< XPropertySet > xColProp;
 255
 256         sal_Int32 nColCount  = _xColumns->getCount();
 257         for(sal_Int32 i=0;i<nColCount;++i)
 258         {
 259             if ( (_xColumns->getByIndex(i) >>= xColProp) && xColProp.is() )
 260                 sSql += ::dbtools::quoteName(sQuote,::comphelper::getString(xColProp->getPropertyValue(rPropMap.getNameByIndex(PROPERTY_ID_NAME))))
 261                         + ",";
 262         }
 263
 264         if ( nColCount )
 265             sSql = sSql.replaceAt(sSql.getLength()-1, 1, ")");
 266         return sSql;
 267     }
 268 }
 269
 270 OUString createStandardKeyStatement(const Reference< XPropertySet >& descriptor,const Reference< XConnection>& _xConnection)
 271 {
 272     Reference<XDatabaseMetaData> xMetaData = _xConnection->getMetaData();
 273     ::dbtools::OPropertyMap& rPropMap = OMetaConnection::getPropMap();
 274
 275     OUStringBuffer aSql;
 276     // keys
 277     Reference<XKeysSupplier> xKeySup(descriptor,UNO_QUERY);
 278     Reference<XIndexAccess> xKeys = xKeySup->getKeys();
 279     if ( xKeys.is() )
 280     {
 281         Reference< XPropertySet > xColProp;
 282         Reference<XIndexAccess> xColumns;
 283         Reference<XColumnsSupplier> xColumnSup;
 284         OUString sCatalog,sSchema,sTable,sComposedName;
 285         bool bPKey = false;
 286         for(sal_Int32 i=0;i<xKeys->getCount();++i)
 287         {
 288             if ( (xKeys->getByIndex(i) >>= xColProp) && xColProp.is() )
 289             {
 290
 291                 sal_Int32 nKeyType      = ::comphelper::getINT32(xColProp->getPropertyValue(rPropMap.getNameByIndex(PROPERTY_ID_TYPE)));
 292
 293                 if ( nKeyType == KeyType::PRIMARY )
 294                 {
 295                     if(bPKey)
 296                         ::dbtools::throwFunctionSequenceException(_xConnection);
 297
 298                     bPKey = true;
 299                     xColumnSup = Reference<XColumnsSupplier>(xColProp,UNO_QUERY);
 300                     xColumns = Reference<XIndexAccess>(xColumnSup->getColumns(),UNO_QUERY);
 301                     if(!xColumns.is() || !xColumns->getCount())
 302                         ::dbtools::throwFunctionSequenceException(_xConnection);
 303
 304                     aSql.append(" PRIMARY KEY ");
 305                     aSql.append(generateColumnNames(xColumns,xMetaData));
 306                 }
 307                 else if(nKeyType == KeyType::UNIQUE)
 308                 {
 309                     xColumnSup = Reference<XColumnsSupplier>(xColProp,UNO_QUERY);
 310                     xColumns = Reference<XIndexAccess>(xColumnSup->getColumns(),UNO_QUERY);
 311                     if(!xColumns.is() || !xColumns->getCount())
 312                         ::dbtools::throwFunctionSequenceException(_xConnection);
 313
 314                     aSql.append(" UNIQUE ");
 315                     aSql.append(generateColumnNames(xColumns,xMetaData));
 316                 }
 317                 else if(nKeyType == KeyType::FOREIGN)
 318                 {
 319                     sal_Int32 nDeleteRule   = getINT32(xColProp->getPropertyValue(rPropMap.getNameByIndex(PROPERTY_ID_DELETERULE)));
 320
 321                     xColumnSup = Reference<XColumnsSupplier>(xColProp,UNO_QUERY);
 322                     xColumns = Reference<XIndexAccess>(xColumnSup->getColumns(),UNO_QUERY);
 323                     if(!xColumns.is() || !xColumns->getCount())
 324                         ::dbtools::throwFunctionSequenceException(_xConnection);
 325
 326                     aSql.append(" FOREIGN KEY ");
 327                     OUString sRefTable = getString(xColProp->getPropertyValue(rPropMap.getNameByIndex(PROPERTY_ID_REFERENCEDTABLE)));
 328                     ::dbtools::qualifiedNameComponents(xMetaData,
 329                                                         sRefTable,
 330                                                         sCatalog,
 331                                                         sSchema,
 332                                                         sTable,
 333                                                         ::dbtools::eInDataManipulation);
 334                     sComposedName = ::dbtools::composeTableName( xMetaData, sCatalog, sSchema, sTable, true, ::dbtools::eInTableDefinitions );
 335
 336
 337                     if ( sComposedName.isEmpty() )
 338                         ::dbtools::throwFunctionSequenceException(_xConnection);
 339
 340                     aSql.append(generateColumnNames(xColumns,xMetaData));
 341
 342                     switch(nDeleteRule)
 343                     {
 344                         case KeyRule::CASCADE:
 345                             aSql.append(" ON DELETE CASCADE ");
 346                             break;
 347                         case KeyRule::RESTRICT:
 348                             aSql.append(" ON DELETE RESTRICT ");
 349                             break;
 350                         case KeyRule::SET_NULL:
 351                             aSql.append(" ON DELETE SET NULL ");
 352                             break;
 353                         case KeyRule::SET_DEFAULT:
 354                             aSql.append(" ON DELETE SET DEFAULT ");
 355                             break;
 356                         default:
 357                             ;
 358                     }
 359                 }
 360             }
 361         }
 362     }
 363
 364     if ( !aSql.isEmpty() )
 365     {
 366         if ( aSql[aSql.getLength() - 1] == ',' )
 367             aSql[aSql.getLength() - 1] = ')';
 368         else
 369             aSql.appendAscii(")");
 370     }
 371
 372     return aSql.makeStringAndClear();
 373
 374 }
 375
 376 OUString createSqlCreateTableStatement(  const Reference< XPropertySet >& descriptor,
 377                                                 const Reference< XConnection>& _xConnection,
 378                                                 ISQLStatementHelper* _pHelper,
 379                                                 const OUString& _sCreatePattern)
 380 {
 381     OUString aSql = ::dbtools::createStandardCreateStatement(descriptor,_xConnection,_pHelper,_sCreatePattern);
 382     const OUString sKeyStmt = ::dbtools::createStandardKeyStatement(descriptor,_xConnection);
 383     if ( !sKeyStmt.isEmpty() )
 384         aSql += sKeyStmt;
 385     else
 386     {
 387         if ( aSql.endsWith(",") )
 388             aSql = aSql.replaceAt(aSql.getLength()-1, 1, ")");
 389         else
 390             aSql += ")";
 391     }
 392     return aSql;
 393 }
 394 namespace
 395 {
 396     Reference<XPropertySet> lcl_createSDBCXColumn(const Reference<XNameAccess>& _xPrimaryKeyColumns,
 397                                           const Reference<XConnection>& _xConnection,
 398                                           const Any& _aCatalog,
 399                                           const OUString& _aSchema,
 400                                           const OUString& _aTable,
 401                                           const OUString& _rQueryName,
 402                                           const OUString& _rName,
 403                                           bool _bCase,
 404                                           bool _bQueryForInfo,
 405                                           bool _bIsAutoIncrement,
 406                                           bool _bIsCurrency,
 407                                           sal_Int32 _nDataType)
 408     {
 409         Reference<XPropertySet> xProp;
 410         Reference<XDatabaseMetaData> xMetaData = _xConnection->getMetaData();
 411         Reference< XResultSet > xResult = xMetaData->getColumns(_aCatalog, _aSchema, _aTable, _rQueryName);
 412         OUString sCatalog;
 413         _aCatalog >>= sCatalog;
 414
 415         if ( xResult.is() )
 416         {
 417             UStringMixEqual aMixCompare(_bCase);
 418             Reference< XRow > xRow(xResult,UNO_QUERY);
 419             while( xResult->next() )
 420             {
 421                 if ( aMixCompare(xRow->getString(4),_rName) )
 422                 {
 423                     sal_Int32       nField5 = xRow->getInt(5);
 424                     OUString aField6 = xRow->getString(6);
 425                     sal_Int32       nField7 = xRow->getInt(7)
 426                                 ,   nField9 = xRow->getInt(9)
 427                                 ,   nField11= xRow->getInt(11);
 428                     OUString sField12 = xRow->getString(12),
 429                                     sField13 = xRow->getString(13);
 430                     ::comphelper::disposeComponent(xRow);
 431
 432                     bool bAutoIncrement = _bIsAutoIncrement
 433                             ,bIsCurrency    = _bIsCurrency;
 434                     if ( _bQueryForInfo )
 435                     {
 436                         const OUString sQuote = xMetaData->getIdentifierQuoteString();
 437                         OUString sQuotedName  = ::dbtools::quoteName(sQuote,_rName);
 438                         OUString sComposedName;
 439                         sComposedName = composeTableNameForSelect(_xConnection, getString( _aCatalog ), _aSchema, _aTable );
 440
 441                         ColumnInformationMap aInfo(_bCase);
 442                         collectColumnInformation(_xConnection,sComposedName,sQuotedName,aInfo);
 443                         ColumnInformationMap::iterator aIter = aInfo.begin();
 444                         if ( aIter != aInfo.end() )
 445                         {
 446                             bAutoIncrement  = aIter->second.first.first;
 447                             bIsCurrency     = aIter->second.first.second;
 448                             if ( DataType::OTHER == nField5 )
 449                                 nField5     = aIter->second.second;
 450                         }
 451                     }
 452                     else if ( DataType::OTHER == nField5 )
 453                         nField5 = _nDataType;
 454
 455                     if ( nField11 != ColumnValue::NO_NULLS )
 456                     {
 457                         try
 458                         {
 459                             if ( _xPrimaryKeyColumns.is() )
 460                             {
 461                                 if ( _xPrimaryKeyColumns->hasByName(_rName) )
 462                                     nField11 = ColumnValue::NO_NULLS;
 463
 464                             }
 465                             else
 466                             {
 467                                 Reference< XResultSet > xPKeys = xMetaData->getPrimaryKeys( _aCatalog, _aSchema, _aTable );
 468                                 Reference< XRow > xPKeyRow( xPKeys, UNO_QUERY_THROW );
 469                                 while( xPKeys->next() ) // there can be only one primary key
 470                                 {
 471                                     OUString sKeyColumn = xPKeyRow->getString(4);
 472                                     if ( aMixCompare(_rName,sKeyColumn) )
 473                                     {
 474                                         nField11 = ColumnValue::NO_NULLS;
 475                                         break;
 476                                     }
 477                                 }
 478                             }
 479                         }
 480                         catch(SQLException&)
 481                         {
 482                             OSL_FAIL( "lcl_createSDBCXColumn: caught an exception!" );
 483                         }
 484                     }
 485
 486                     connectivity::sdbcx::OColumn* pRet = new connectivity::sdbcx::OColumn(_rName,
 487                                                 aField6,
 488                                                 sField13,
 489                                                 sField12,
 490                                                 nField11,
 491                                                 nField7,
 492                                                 nField9,
 493                                                 nField5,
 494                                                 bAutoIncrement,
 495                                                 false,
 496                                                 bIsCurrency,
 497                                                 _bCase,
 498                                                 sCatalog,
 499                                                 _aSchema,
 500                                                 _aTable);
 501
 502                     xProp = pRet;
 503                     break;
 504                 }
 505             }
 506         }
 507
 508         return xProp;
 509     }
 510
 511     Reference< XModel> lcl_getXModel(const Reference< XInterface>& _xIface)
 512     {
 513         Reference< XInterface > xParent = _xIface;
 514         Reference< XModel > xModel(xParent,UNO_QUERY);;
 515         while( xParent.is() && !xModel.is() )
 516         {
 517             Reference<XChild> xChild(xParent,UNO_QUERY);
 518             xParent.set(xChild.is() ? xChild->getParent() : Reference< XInterface >(),UNO_QUERY);
 519             xModel.set(xParent,UNO_QUERY);
 520         }
 521         return xModel;
 522     }
 523 }
 524
 525 Reference<XPropertySet> createSDBCXColumn(const Reference<XPropertySet>& _xTable,
 526                                           const Reference<XConnection>& _xConnection,
 527                                           const OUString& _rName,
 528                                           bool _bCase,
 529                                           bool _bQueryForInfo,
 530                                           bool _bIsAutoIncrement,
 531                                           bool _bIsCurrency,
 532                                           sal_Int32 _nDataType)
 533 {
 534     Reference<XPropertySet> xProp;
 535     OSL_ENSURE(_xTable.is(),"Table is NULL!");
 536     if ( !_xTable.is() )
 537         return xProp;
 538
 539     ::dbtools::OPropertyMap& rPropMap = OMetaConnection::getPropMap();
 540     Reference<XDatabaseMetaData> xMetaData = _xConnection->getMetaData();
 541     Any aCatalog;
 542     aCatalog = _xTable->getPropertyValue(rPropMap.getNameByIndex(PROPERTY_ID_CATALOGNAME));
 543     OUString sCatalog;
 544     aCatalog >>= sCatalog;
 545
 546     OUString aSchema, aTable;
 547     _xTable->getPropertyValue(rPropMap.getNameByIndex(PROPERTY_ID_SCHEMANAME))  >>= aSchema;
 548     _xTable->getPropertyValue(rPropMap.getNameByIndex(PROPERTY_ID_NAME))        >>= aTable;
 549
 550     Reference<XNameAccess> xPrimaryKeyColumns = getPrimaryKeyColumns_throw(_xTable);
 551
 552     xProp = lcl_createSDBCXColumn(xPrimaryKeyColumns,_xConnection,aCatalog, aSchema, aTable, _rName,_rName,_bCase,_bQueryForInfo,_bIsAutoIncrement,_bIsCurrency,_nDataType);
 553     if ( !xProp.is() )
 554     {
 555         xProp = lcl_createSDBCXColumn(xPrimaryKeyColumns,_xConnection,aCatalog, aSchema, aTable, OUString("%"),_rName,_bCase,_bQueryForInfo,_bIsAutoIncrement,_bIsCurrency,_nDataType);
 556         if ( !xProp.is() )
 557             xProp = new connectivity::sdbcx::OColumn(_rName,
 558                                                 OUString(),OUString(),OUString(),
 559                                                 ColumnValue::NULLABLE_UNKNOWN,
 560                                                 0,
 561                                                 0,
 562                                                 DataType::VARCHAR,
 563                                                 _bIsAutoIncrement,
 564                                                 false,
 565                                                 _bIsCurrency,
 566                                                 _bCase,
 567                                                 sCatalog,
 568                                                 aSchema,
 569                                                 aTable);
 570
 571     }
 572
 573     return xProp;
 574 }
 575
 576
 577 bool getBooleanDataSourceSetting( const Reference< XConnection >& _rxConnection, const sal_Char* _pAsciiSettingName )
 578 {
 579     bool bValue( false );
 580     try
 581     {
 582         Reference< XPropertySet> xDataSourceProperties( findDataSource( _rxConnection ), UNO_QUERY );
 583         OSL_ENSURE( xDataSourceProperties.is(), "::dbtools::getBooleanDataSourceSetting: somebody is using this with a non-SDB-level connection!" );
 584         if ( xDataSourceProperties.is() )
 585         {
 586             Reference< XPropertySet > xSettings(
 587                 xDataSourceProperties->getPropertyValue("Settings"),
 588                 UNO_QUERY_THROW
 589             );
 590             OSL_VERIFY( xSettings->getPropertyValue( OUString::createFromAscii( _pAsciiSettingName ) ) >>= bValue );
 591         }
 592     }
 593     catch( const Exception& )
 594     {
 595         DBG_UNHANDLED_EXCEPTION();
 596     }
 597     return bValue;
 598 }
 599
 600 bool getDataSourceSetting( const Reference< XInterface >& _xChild, const OUString& _sAsciiSettingsName,
 601     Any& /* [out] */ _rSettingsValue )
 602 {
 603     bool bIsPresent = false;
 604     try
 605     {
 606         const Reference< XPropertySet> xDataSourceProperties( findDataSource( _xChild ), UNO_QUERY );
 607         if ( !xDataSourceProperties.is() )
 608             return false;
 609
 610         const Reference< XPropertySet > xSettings(
 611                 xDataSourceProperties->getPropertyValue("Settings"),
 612                 UNO_QUERY_THROW
 613             );
 614
 615         _rSettingsValue = xSettings->getPropertyValue( _sAsciiSettingsName );
 616         bIsPresent = true;
 617     }
 618     catch( const Exception& )
 619     {
 620         bIsPresent = false;
 621     }
 622     return bIsPresent;
 623 }
 624
 625 bool getDataSourceSetting( const Reference< XInterface >& _rxDataSource, const sal_Char* _pAsciiSettingsName,
 626     Any& /* [out] */ _rSettingsValue )
 627 {
 628     OUString sAsciiSettingsName = OUString::createFromAscii(_pAsciiSettingsName);
 629     return getDataSourceSetting( _rxDataSource, sAsciiSettingsName,_rSettingsValue );
 630 }
 631
 632 bool isDataSourcePropertyEnabled(const Reference<XInterface>& _xProp, const OUString& _sProperty, bool _bDefault)
 633 {
 634     bool bEnabled = _bDefault;
 635     try
 636     {
 637         Reference< XPropertySet> xProp(findDataSource(_xProp),UNO_QUERY);
 638         if ( xProp.is() )
 639         {
 640             Sequence< PropertyValue > aInfo;
 641             xProp->getPropertyValue("Info") >>= aInfo;
 642             const PropertyValue* pValue =::std::find_if(aInfo.getConstArray(),
 643                                                 aInfo.getConstArray() + aInfo.getLength(),
 644                                                 ::std::bind2nd(TPropertyValueEqualFunctor(),_sProperty));
 645             if ( pValue && pValue != (aInfo.getConstArray() + aInfo.getLength()) )
 646                 pValue->Value >>= bEnabled;
 647         }
 648     }
 649     catch(SQLException&)
 650     {
 651         DBG_UNHANDLED_EXCEPTION();
 652     }
 653     return bEnabled;
 654 }
 655
 656 Reference< XTablesSupplier> getDataDefinitionByURLAndConnection(
 657             const OUString& _rsUrl,
 658             const Reference< XConnection>& _xConnection,
 659             const Reference< XComponentContext >& _rxContext)
 660 {
 661     Reference< XTablesSupplier> xTablesSup;
 662     try
 663     {
 664         Reference< XDriverManager2 > xManager = DriverManager::create( _rxContext );
 665         Reference< XDataDefinitionSupplier > xSupp( xManager->getDriverByURL( _rsUrl ), UNO_QUERY );
 666
 667         if ( xSupp.is() )
 668         {
 669             xTablesSup = xSupp->getDataDefinitionByConnection( _xConnection );
 670             OSL_ENSURE(xTablesSup.is(),"No table supplier!");
 671         }
 672     }
 673     catch( const Exception& )
 674     {
 675         DBG_UNHANDLED_EXCEPTION();
 676     }
 677     return xTablesSup;
 678 }
 679
 680
 681 sal_Int32 getTablePrivileges(const Reference< XDatabaseMetaData>& _xMetaData,
 682                              const OUString& _sCatalog,
 683                              const OUString& _sSchema,
 684                              const OUString& _sTable)
 685 {
 686     OSL_ENSURE(_xMetaData.is(),"Invalid metadata!");
 687     sal_Int32 nPrivileges = 0;
 688     try
 689     {
 690         Any aVal;
 691         if(!_sCatalog.isEmpty())
 692             aVal <<= _sCatalog;
 693         Reference< XResultSet > xPrivileges = _xMetaData->getTablePrivileges(aVal, _sSchema, _sTable);
 694         Reference< XRow > xCurrentRow(xPrivileges, UNO_QUERY);
 695
 696         const OUString sUserWorkingFor = _xMetaData->getUserName();
 697         static const OUString sSELECT( "SELECT" );
 698         static const OUString sINSERT( "INSERT" );
 699         static const OUString sUPDATE( "UPDATE" );
 700         static const OUString sDELETE( "DELETE" );
 701         static const OUString sREAD( "READ" );
 702         static const OUString sCREATE( "CREATE" );
 703         static const OUString sALTER( "ALTER" );
 704         static const OUString sREFERENCE( "REFERENCE" );
 705         static const OUString sDROP( "DROP" );
 706
 707         if ( xCurrentRow.is() )
 708         {
 709             // after creation the set is positioned before the first record, per definition
 710             OUString sPrivilege, sGrantee;
 711             while ( xPrivileges->next() )
 712             {
 713 #ifdef DBG_UTIL
 714                 OUString sCat, sSchema, sName, sGrantor, sGrantable;
 715                 sCat        = xCurrentRow->getString(1);
 716                 sSchema     = xCurrentRow->getString(2);
 717                 sName       = xCurrentRow->getString(3);
 718                 sGrantor    = xCurrentRow->getString(4);
 719 #endif
 720                 sGrantee    = xCurrentRow->getString(5);
 721                 sPrivilege  = xCurrentRow->getString(6);
 722 #ifdef DBG_UTIL
 723                 sGrantable  = xCurrentRow->getString(7);
 724 #endif
 725
 726                 if (!sUserWorkingFor.equalsIgnoreAsciiCase(sGrantee))
 727                     continue;
 728
 729                 if (sPrivilege.equalsIgnoreAsciiCase(sSELECT))
 730                     nPrivileges |= Privilege::SELECT;
 731                 else if (sPrivilege.equalsIgnoreAsciiCase(sINSERT))
 732                     nPrivileges |= Privilege::INSERT;
 733                 else if (sPrivilege.equalsIgnoreAsciiCase(sUPDATE))
 734                     nPrivileges |= Privilege::UPDATE;
 735                 else if (sPrivilege.equalsIgnoreAsciiCase(sDELETE))
 736                     nPrivileges |= Privilege::DELETE;
 737                 else if (sPrivilege.equalsIgnoreAsciiCase(sREAD))
 738                     nPrivileges |= Privilege::READ;
 739                 else if (sPrivilege.equalsIgnoreAsciiCase(sCREATE))
 740                     nPrivileges |= Privilege::CREATE;
 741                 else if (sPrivilege.equalsIgnoreAsciiCase(sALTER))
 742                     nPrivileges |= Privilege::ALTER;
 743                 else if (sPrivilege.equalsIgnoreAsciiCase(sREFERENCE))
 744                     nPrivileges |= Privilege::REFERENCE;
 745                 else if (sPrivilege.equalsIgnoreAsciiCase(sDROP))
 746                     nPrivileges |= Privilege::DROP;
 747             }
 748         }
 749         disposeComponent(xPrivileges);
 750
 751         // Some drivers put a table privilege as soon as any column has the privilege,
 752         // some drivers only if all columns have the privilege.
 753         // To unifiy the situation, collect column privileges here, too.
 754         Reference< XResultSet > xColumnPrivileges = _xMetaData->getColumnPrivileges(aVal, _sSchema, _sTable, OUString("%"));
 755         Reference< XRow > xColumnCurrentRow(xColumnPrivileges, UNO_QUERY);
 756         if ( xColumnCurrentRow.is() )
 757         {
 758             // after creation the set is positioned before the first record, per definition
 759             OUString sPrivilege, sGrantee;
 760             while ( xColumnPrivileges->next() )
 761             {
 762 #ifdef DBG_UTIL
 763                 OUString sCat, sSchema, sTableName, sColumnName, sGrantor, sGrantable;
 764                 sCat        = xColumnCurrentRow->getString(1);
 765                 sSchema     = xColumnCurrentRow->getString(2);
 766                 sTableName  = xColumnCurrentRow->getString(3);
 767                 sColumnName = xColumnCurrentRow->getString(4);
 768                 sGrantor    = xColumnCurrentRow->getString(5);
 769 #endif
 770                 sGrantee    = xColumnCurrentRow->getString(6);
 771                 sPrivilege  = xColumnCurrentRow->getString(7);
 772 #ifdef DBG_UTIL
 773                 sGrantable  = xColumnCurrentRow->getString(8);
 774 #endif
 775
 776                 if (!sUserWorkingFor.equalsIgnoreAsciiCase(sGrantee))
 777                     continue;
 778
 779                 if (sPrivilege.equalsIgnoreAsciiCase(sSELECT))
 780                     nPrivileges |= Privilege::SELECT;
 781                 else if (sPrivilege.equalsIgnoreAsciiCase(sINSERT))
 782                     nPrivileges |= Privilege::INSERT;
 783                 else if (sPrivilege.equalsIgnoreAsciiCase(sUPDATE))
 784                     nPrivileges |= Privilege::UPDATE;
 785                 else if (sPrivilege.equalsIgnoreAsciiCase(sDELETE))
 786                     nPrivileges |= Privilege::DELETE;
 787                 else if (sPrivilege.equalsIgnoreAsciiCase(sREAD))
 788                     nPrivileges |= Privilege::READ;
 789                 else if (sPrivilege.equalsIgnoreAsciiCase(sCREATE))
 790                     nPrivileges |= Privilege::CREATE;
 791                 else if (sPrivilege.equalsIgnoreAsciiCase(sALTER))
 792                     nPrivileges |= Privilege::ALTER;
 793                 else if (sPrivilege.equalsIgnoreAsciiCase(sREFERENCE))
 794                     nPrivileges |= Privilege::REFERENCE;
 795                 else if (sPrivilege.equalsIgnoreAsciiCase(sDROP))
 796                     nPrivileges |= Privilege::DROP;
 797             }
 798         }
 799         disposeComponent(xColumnPrivileges);
 800     }
 801     catch(const SQLException& e)
 802     {
 803         static OUString sNotSupportedState( "IM001" );
 804         // some drivers don't support any privileges so we assume that we are allowed to do all we want :-)
 805         if(e.SQLState == sNotSupportedState)
 806             nPrivileges |=  Privilege::DROP         |
 807                             Privilege::REFERENCE    |
 808                             Privilege::ALTER        |
 809                             Privilege::CREATE       |
 810                             Privilege::READ         |
 811                             Privilege::DELETE       |
 812                             Privilege::UPDATE       |
 813                             Privilege::INSERT       |
 814                             Privilege::SELECT;
 815         else
 816             OSL_FAIL("Could not collect the privileges !");
 817     }
 818     return nPrivileges;
 819 }
 820
 821 // we need some more information about the column
 822 void collectColumnInformation(const Reference< XConnection>& _xConnection,
 823                               const OUString& _sComposedName,
 824                               const OUString& _rName,
 825                               ColumnInformationMap& _rInfo)
 826 {
 827     OUString sSelect = "SELECT " + _rName +
 828         " FROM " + _sComposedName +
 829         " WHERE 0 = 1";
 830
 831     try
 832     {
 833         ::utl::SharedUNOComponent< XStatement > xStmt( _xConnection->createStatement() );
 834         Reference< XPropertySet > xStatementProps( xStmt, UNO_QUERY_THROW );
 835         xStatementProps->setPropertyValue( OMetaConnection::getPropMap().getNameByIndex( PROPERTY_ID_ESCAPEPROCESSING ), makeAny( false ) );
 836         Reference< XResultSet > xResult( xStmt->executeQuery( sSelect ), UNO_QUERY_THROW );
 837         Reference< XResultSetMetaDataSupplier > xSuppMeta( xResult, UNO_QUERY_THROW );
 838         Reference< XResultSetMetaData > xMeta( xSuppMeta->getMetaData(), UNO_QUERY_THROW );
 839
 840         sal_Int32 nCount = xMeta->getColumnCount();
 841         OSL_ENSURE( nCount != 0, "::dbtools::collectColumnInformation: result set has empty (column-less) meta data!" );
 842         for (sal_Int32 i=1; i <= nCount ; ++i)
 843         {
 844             _rInfo.insert(ColumnInformationMap::value_type(xMeta->getColumnName(i),
 845                 ColumnInformation(TBoolPair(xMeta->isAutoIncrement(i),xMeta->isCurrency(i)),xMeta->getColumnType(i))));
 846         }
 847     }
 848     catch( const Exception& )
 849     {
 850         DBG_UNHANDLED_EXCEPTION();
 851     }
 852 }
 853
 854
 855 bool isEmbeddedInDatabase( const Reference< XInterface >& _rxComponent, Reference< XConnection >& _rxActualConnection )
 856 {
 857     bool bIsEmbedded = false;
 858     try
 859     {
 860         Reference< XModel > xModel = lcl_getXModel( _rxComponent );
 861
 862         if ( xModel.is() )
 863         {
 864             Sequence< PropertyValue > aArgs = xModel->getArgs();
 865             const PropertyValue* pIter = aArgs.getConstArray();
 866             const PropertyValue* pEnd  = pIter + aArgs.getLength();
 867             for(;pIter != pEnd;++pIter)
 868             {
 869                 if ( pIter->Name == "ComponentData" )
 870                 {
 871                     Sequence<PropertyValue> aDocumentContext;
 872                     pIter->Value >>= aDocumentContext;
 873                     const PropertyValue* pContextIter = aDocumentContext.getConstArray();
 874                     const PropertyValue* pContextEnd  = pContextIter + aDocumentContext.getLength();
 875                     for(;pContextIter != pContextEnd;++pContextIter)
 876                     {
 877                         if (   pContextIter->Name == "ActiveConnection"
 878                             && ( pContextIter->Value >>= _rxActualConnection )
 879                            )
 880                         {
 881                             bIsEmbedded = true;
 882                             break;
 883                         }
 884                     }
 885                     break;
 886                 }
 887             }
 888         }
 889     }
 890     catch(Exception&)
 891     {
 892         // not interested in
 893     }
 894     return bIsEmbedded;
 895 }
 896
 897 namespace
 898 {
 899     OUString lcl_getEncodingName( rtl_TextEncoding _eEncoding )
 900     {
 901         OUString sEncodingName;
 902
 903         OCharsetMap aCharsets;
 904         OCharsetMap::CharsetIterator aEncodingPos = aCharsets.find( _eEncoding );
 905         OSL_ENSURE( aEncodingPos != aCharsets.end(), "lcl_getEncodingName: *which* encoding?" );
 906         if ( aEncodingPos != aCharsets.end() )
 907             sEncodingName = (*aEncodingPos).getIanaName();
 908
 909         return sEncodingName;
 910     }
 911 }
 912
 913
 914 sal_Int32 DBTypeConversion::convertUnicodeString( const OUString& _rSource, OString& _rDest, rtl_TextEncoding _eEncoding ) SAL_THROW((com::sun::star::sdbc::SQLException))
 915 {
 916     if ( !rtl_convertUStringToString( &_rDest.pData, _rSource.getStr(), _rSource.getLength(),
 917             _eEncoding,
 918             RTL_UNICODETOTEXT_FLAGS_UNDEFINED_ERROR |
 919             RTL_UNICODETOTEXT_FLAGS_UNDEFINED_REPLACE |
 920             RTL_UNICODETOTEXT_FLAGS_PRIVATE_MAPTO0 )
 921         )
 922     {
 923         SharedResources aResources;
 924         OUString sMessage = aResources.getResourceStringWithSubstitution( STR_CANNOT_CONVERT_STRING,
 925             "$string$", _rSource,
 926             "$charset$",  lcl_getEncodingName( _eEncoding )
 927         );
 928
 929         throw SQLException(
 930             sMessage,
 931             NULL,
 932             OUString( "22018" ),
 933             22018,
 934             Any()
 935         );
 936     }
 937
 938     return _rDest.getLength();
 939 }
 940
 941
 942 sal_Int32 DBTypeConversion::convertUnicodeStringToLength( const OUString& _rSource, OString&  _rDest,
 943    sal_Int32 _nMaxLen, rtl_TextEncoding _eEncoding ) SAL_THROW((SQLException))
 944 {
 945     sal_Int32 nLen = convertUnicodeString( _rSource, _rDest, _eEncoding );
 946     if ( nLen > _nMaxLen )
 947     {
 948         SharedResources aResources;
 949         OUString sMessage = aResources.getResourceStringWithSubstitution( STR_STRING_LENGTH_EXCEEDED,
 950             "$string$", _rSource,
 951             "$maxlen$", OUString::number( _nMaxLen ),
 952             "$charset$", lcl_getEncodingName( _eEncoding )
 953         );
 954
 955         throw SQLException(
 956             sMessage,
 957             NULL,
 958             OUString( "22001" ),
 959             22001,
 960             Any()
 961         );
 962     }
 963
 964    return nLen;
 965 }
 966 OUString lcl_getReportEngines()
 967 {
 968     static OUString s_sNodeName("org.openoffice.Office.DataAccess/ReportEngines");
 969     return s_sNodeName;
 970 }
 971
 972 OUString lcl_getDefaultReportEngine()
 973 {
 974     static OUString s_sNodeName("DefaultReportEngine");
 975     return s_sNodeName;
 976 }
 977
 978 OUString lcl_getReportEngineNames()
 979 {
 980     static OUString s_sNodeName("ReportEngineNames");
 981     return s_sNodeName;
 982 }
 983
 984 OUString getDefaultReportEngineServiceName(const Reference< XComponentContext >& _rxORB)
 985 {
 986     ::utl::OConfigurationTreeRoot aReportEngines = ::utl::OConfigurationTreeRoot::createWithComponentContext(
 987         _rxORB, lcl_getReportEngines(), -1, ::utl::OConfigurationTreeRoot::CM_READONLY);
 988
 989     if ( aReportEngines.isValid() )
 990     {
 991         OUString sDefaultReportEngineName;
 992         aReportEngines.getNodeValue(lcl_getDefaultReportEngine()) >>= sDefaultReportEngineName;
 993         if ( !sDefaultReportEngineName.isEmpty() )
 994         {
 995             ::utl::OConfigurationNode aReportEngineNames = aReportEngines.openNode(lcl_getReportEngineNames());
 996             if ( aReportEngineNames.isValid() )
 997             {
 998                 ::utl::OConfigurationNode aReportEngine = aReportEngineNames.openNode(sDefaultReportEngineName);
 999                 if ( aReportEngine.isValid() )
1000                 {
1001                     OUString sRet;
1002                     aReportEngine.getNodeValue("ServiceName") >>= sRet;
1003                     return sRet;
1004                 }
1005             }
1006         }
1007         else
1008             return OUString("org.libreoffice.report.pentaho.SOReportJobFactory");
1009     }
1010     else
1011         return OUString("org.libreoffice.report.pentaho.SOReportJobFactory");
1012     return OUString();
1013 }
1014
1015
1016 }   // namespace dbtools
1017
1018
1019 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */