diff options
Diffstat (limited to 'sc/source/ui/dbgui/dapidata.cxx')
| -rw-r--r-- | sc/source/ui/dbgui/dapidata.cxx | 169 |
1 files changed, 169 insertions, 0 deletions
diff --git a/sc/source/ui/dbgui/dapidata.cxx b/sc/source/ui/dbgui/dapidata.cxx new file mode 100644 index 000000000..198d82783 --- /dev/null +++ b/sc/source/ui/dbgui/dapidata.cxx @@ -0,0 +1,169 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/* + * This file is part of the LibreOffice project. + * + * This Source Code Form is subject to the terms of the Mozilla Public + * License, v. 2.0. If a copy of the MPL was not distributed with this + * file, You can obtain one at http://mozilla.org/MPL/2.0/. + * + * This file incorporates work covered by the following license notice: + * + * Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed + * with this work for additional information regarding copyright + * ownership. The ASF licenses this file to you under the Apache + * License, Version 2.0 (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.apache.org/licenses/LICENSE-2.0 . + */ + +#undef SC_DLLIMPLEMENTATION + +#include <comphelper/processfactory.hxx> +#include <tools/diagnose_ex.h> + +#include <com/sun/star/sheet/DataImportMode.hpp> +#include <com/sun/star/sdbcx/XTablesSupplier.hpp> +#include <com/sun/star/sdb/DatabaseContext.hpp> +#include <com/sun/star/sdb/XQueriesSupplier.hpp> +#include <com/sun/star/sdb/XCompletedConnection.hpp> +#include <com/sun/star/task/InteractionHandler.hpp> + +using namespace com::sun::star; + +#include <dapidata.hxx> +#include <dpsdbtab.hxx> + +// entries in the "type" ListBox +#define DP_TYPELIST_TABLE 0 +#define DP_TYPELIST_QUERY 1 +#define DP_TYPELIST_SQLNAT 3 + +ScDataPilotDatabaseDlg::ScDataPilotDatabaseDlg(weld::Window* pParent) + : GenericDialogController(pParent, "modules/scalc/ui/selectdatasource.ui", "SelectDataSourceDialog") + , m_xLbDatabase(m_xBuilder->weld_combo_box("database")) + , m_xCbObject(m_xBuilder->weld_combo_box("datasource")) + , m_xLbType(m_xBuilder->weld_combo_box("type")) +{ + weld::WaitObject aWait(pParent); // initializing the database service the first time takes a while + + try + { + // get database names + + uno::Reference<sdb::XDatabaseContext> xContext = sdb::DatabaseContext::create( + comphelper::getProcessComponentContext() ); + const uno::Sequence<OUString> aNames = xContext->getElementNames(); + for( const OUString& aName : aNames ) + { + m_xLbDatabase->append_text(aName); + } + } + catch(uno::Exception&) + { + TOOLS_WARN_EXCEPTION( "sc", "exception in database"); + } + + m_xLbDatabase->set_active(0); + m_xLbType->set_active(0); + + FillObjects(); + + m_xLbDatabase->connect_changed( LINK( this, ScDataPilotDatabaseDlg, SelectHdl ) ); + m_xLbType->connect_changed( LINK( this, ScDataPilotDatabaseDlg, SelectHdl ) ); +} + +ScDataPilotDatabaseDlg::~ScDataPilotDatabaseDlg() +{ +} + +void ScDataPilotDatabaseDlg::GetValues( ScImportSourceDesc& rDesc ) +{ + const sal_Int32 nSelect = m_xLbType->get_active(); + + rDesc.aDBName = m_xLbDatabase->get_active_text(); + rDesc.aObject = m_xCbObject->get_active_text(); + + if (rDesc.aDBName.isEmpty() || rDesc.aObject.isEmpty()) + rDesc.nType = sheet::DataImportMode_NONE; + else if ( nSelect == DP_TYPELIST_TABLE ) + rDesc.nType = sheet::DataImportMode_TABLE; + else if ( nSelect == DP_TYPELIST_QUERY ) + rDesc.nType = sheet::DataImportMode_QUERY; + else + rDesc.nType = sheet::DataImportMode_SQL; + + rDesc.bNative = ( nSelect == DP_TYPELIST_SQLNAT ); +} + +IMPL_LINK_NOARG(ScDataPilotDatabaseDlg, SelectHdl, weld::ComboBox&, void) +{ + FillObjects(); +} + +void ScDataPilotDatabaseDlg::FillObjects() +{ + m_xCbObject->clear(); + + OUString aDatabaseName = m_xLbDatabase->get_active_text(); + if (aDatabaseName.isEmpty()) + return; + + const int nSelect = m_xLbType->get_active(); + if ( nSelect > DP_TYPELIST_QUERY ) + return; // only tables and queries + + try + { + // open connection (for tables or queries) + + uno::Reference<sdb::XDatabaseContext> xContext = sdb::DatabaseContext::create( + comphelper::getProcessComponentContext() ); + + uno::Any aSourceAny = xContext->getByName( aDatabaseName ); + uno::Reference<sdb::XCompletedConnection> xSource(aSourceAny, uno::UNO_QUERY); + if ( !xSource.is() ) return; + + uno::Reference<task::XInteractionHandler> xHandler( + task::InteractionHandler::createWithParent(comphelper::getProcessComponentContext(), nullptr), + uno::UNO_QUERY_THROW); + + uno::Reference<sdbc::XConnection> xConnection = xSource->connectWithCompletion( xHandler ); + + uno::Reference<container::XNameAccess> xItems; + if ( nSelect == DP_TYPELIST_TABLE ) + { + // get all tables + + uno::Reference<sdbcx::XTablesSupplier> xTablesSupp( xConnection, uno::UNO_QUERY ); + if ( !xTablesSupp.is() ) return; + + xItems = xTablesSupp->getTables(); + } + else + { + // get all queries + + uno::Reference<sdb::XQueriesSupplier> xQueriesSupp( xConnection, uno::UNO_QUERY ); + if ( !xQueriesSupp.is() ) return; + + xItems = xQueriesSupp->getQueries(); + } + + if ( !xItems.is() ) return; + + // fill list + const uno::Sequence<OUString> aNames = xItems->getElementNames(); + for( const OUString& aName : aNames ) + { + m_xCbObject->append_text(aName); + } + } + catch(uno::Exception&) + { + // this may happen if an invalid database is selected -> no DBG_ERROR + TOOLS_WARN_EXCEPTION( "sc", "exception in database"); + } +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ |