sc/source/ui/dbgui/dapidata.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 #undef SC_DLLIMPLEMENTATION
  21
  22 #include <vcl/waitobj.hxx>
  23 #include <comphelper/processfactory.hxx>
  24
  25 #include <com/sun/star/sheet/DataImportMode.hpp>
  26 #include <com/sun/star/lang/XMultiServiceFactory.hpp>
  27 #include <com/sun/star/sdbcx/XTablesSupplier.hpp>
  28 #include <com/sun/star/sdb/DatabaseContext.hpp>
  29 #include <com/sun/star/sdb/XQueriesSupplier.hpp>
  30 #include <com/sun/star/sdb/XCompletedConnection.hpp>
  31 #include <com/sun/star/task/InteractionHandler.hpp>
  32
  33 using namespace com::sun::star;
  34
  35 #include "dapidata.hxx"
  36 #include "scresid.hxx"
  37 #include "sc.hrc"
  38 #include "miscuno.hxx"
  39 #include "dpsdbtab.hxx"
  40
  41 //  entries in the "type" ListBox
  42 #define DP_TYPELIST_TABLE   0
  43 #define DP_TYPELIST_QUERY   1
  44 #define DP_TYPELIST_SQLNAT  3
  45
  46 ScDataPilotDatabaseDlg::ScDataPilotDatabaseDlg( vcl::Window* pParent ) :
  47     ModalDialog(pParent, "SelectDataSourceDialog",
  48         "modules/scalc/ui/selectdatasource.ui")
  49 {
  50     get(m_pLbDatabase, "database");
  51     get(m_pCbObject, "datasource");
  52     get(m_pLbType, "type");
  53
  54     WaitObject aWait( this );       // initializing the database service the first time takes a while
  55
  56     try
  57     {
  58         //  get database names
  59
  60         uno::Reference<sdb::XDatabaseContext> xContext = sdb::DatabaseContext::create(
  61                 comphelper::getProcessComponentContext() );
  62         uno::Sequence<OUString> aNames = xContext->getElementNames();
  63         long nCount = aNames.getLength();
  64         const OUString* pArray = aNames.getConstArray();
  65         for (long nPos = 0; nPos < nCount; nPos++)
  66         {
  67             OUString aName = pArray[nPos];
  68             m_pLbDatabase->InsertEntry( aName );
  69         }
  70     }
  71     catch(uno::Exception&)
  72     {
  73         OSL_FAIL("exception in database");
  74     }
  75
  76     m_pLbDatabase->SelectEntryPos( 0 );
  77     m_pLbType->SelectEntryPos( 0 );
  78
  79     FillObjects();
  80
  81     m_pLbDatabase->SetSelectHdl( LINK( this, ScDataPilotDatabaseDlg, SelectHdl ) );
  82     m_pLbType->SetSelectHdl( LINK( this, ScDataPilotDatabaseDlg, SelectHdl ) );
  83 }
  84
  85 ScDataPilotDatabaseDlg::~ScDataPilotDatabaseDlg()
  86 {
  87     disposeOnce();
  88 }
  89
  90 void ScDataPilotDatabaseDlg::dispose()
  91 {
  92     m_pLbDatabase.clear();
  93     m_pCbObject.clear();
  94     m_pLbType.clear();
  95     ModalDialog::dispose();
  96 }
  97
  98 void ScDataPilotDatabaseDlg::GetValues( ScImportSourceDesc& rDesc )
  99 {
 100     sal_uInt16 nSelect = m_pLbType->GetSelectEntryPos();
 101
 102     rDesc.aDBName = m_pLbDatabase->GetSelectEntry();
 103     rDesc.aObject = m_pCbObject->GetText();
 104
 105     if (rDesc.aDBName.isEmpty() || rDesc.aObject.isEmpty())
 106         rDesc.nType = sheet::DataImportMode_NONE;
 107     else if ( nSelect == DP_TYPELIST_TABLE )
 108         rDesc.nType = sheet::DataImportMode_TABLE;
 109     else if ( nSelect == DP_TYPELIST_QUERY )
 110         rDesc.nType = sheet::DataImportMode_QUERY;
 111     else
 112         rDesc.nType = sheet::DataImportMode_SQL;
 113
 114     rDesc.bNative = ( nSelect == DP_TYPELIST_SQLNAT );
 115 }
 116
 117 IMPL_LINK_NOARG(ScDataPilotDatabaseDlg, SelectHdl)
 118 {
 119     FillObjects();
 120     return 0;
 121 }
 122
 123 void ScDataPilotDatabaseDlg::FillObjects()
 124 {
 125     m_pCbObject->Clear();
 126
 127     OUString aDatabaseName = m_pLbDatabase->GetSelectEntry();
 128     if (aDatabaseName.isEmpty())
 129         return;
 130
 131     sal_uInt16 nSelect = m_pLbType->GetSelectEntryPos();
 132     if ( nSelect > DP_TYPELIST_QUERY )
 133         return;                                 // only tables and queries
 134
 135     try
 136     {
 137         //  open connection (for tables or queries)
 138
 139         uno::Reference<sdb::XDatabaseContext> xContext = sdb::DatabaseContext::create(
 140                 comphelper::getProcessComponentContext() );
 141
 142         uno::Any aSourceAny = xContext->getByName( aDatabaseName );
 143         uno::Reference<sdb::XCompletedConnection> xSource(
 144                 ScUnoHelpFunctions::AnyToInterface( aSourceAny ), uno::UNO_QUERY );
 145         if ( !xSource.is() ) return;
 146
 147         uno::Reference<task::XInteractionHandler> xHandler(
 148             task::InteractionHandler::createWithParent(comphelper::getProcessComponentContext(), 0),
 149             uno::UNO_QUERY_THROW);
 150
 151         uno::Reference<sdbc::XConnection> xConnection = xSource->connectWithCompletion( xHandler );
 152
 153         uno::Sequence<OUString> aNames;
 154         if ( nSelect == DP_TYPELIST_TABLE )
 155         {
 156             //  get all tables
 157
 158             uno::Reference<sdbcx::XTablesSupplier> xTablesSupp( xConnection, uno::UNO_QUERY );
 159             if ( !xTablesSupp.is() ) return;
 160
 161             uno::Reference<container::XNameAccess> xTables = xTablesSupp->getTables();
 162             if ( !xTables.is() ) return;
 163
 164             aNames = xTables->getElementNames();
 165         }
 166         else
 167         {
 168             //  get all queries
 169
 170             uno::Reference<sdb::XQueriesSupplier> xQueriesSupp( xConnection, uno::UNO_QUERY );
 171             if ( !xQueriesSupp.is() ) return;
 172
 173             uno::Reference<container::XNameAccess> xQueries = xQueriesSupp->getQueries();
 174             if ( !xQueries.is() ) return;
 175
 176             aNames = xQueries->getElementNames();
 177         }
 178
 179         //  fill list
 180
 181         long nCount = aNames.getLength();
 182         const OUString* pArray = aNames.getConstArray();
 183         for( long nPos=0; nPos<nCount; nPos++ )
 184         {
 185             OUString aName = pArray[nPos];
 186             m_pCbObject->InsertEntry( aName );
 187         }
 188     }
 189     catch(uno::Exception&)
 190     {
 191         //  this may happen if an invalid database is selected -> no DBG_ERROR
 192         OSL_FAIL("exception in database");
 193     }
 194 }
 195
 196 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */