169 lines
5.6 KiB
C++
169 lines
5.6 KiB
C++
/* -*- 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 <comphelper/diagnose_ex.hxx>
|
|
|
|
#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>
|
|
|
|
#include <dapidata.hxx>
|
|
#include <dpsdbtab.hxx>
|
|
|
|
using namespace com::sun::star;
|
|
|
|
// 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, u"modules/scalc/ui/selectdatasource.ui"_ustr, u"SelectDataSourceDialog"_ustr)
|
|
, m_xLbDatabase(m_xBuilder->weld_combo_box(u"database"_ustr))
|
|
, m_xCbObject(m_xBuilder->weld_combo_box(u"datasource"_ustr))
|
|
, m_xLbType(m_xBuilder->weld_combo_box(u"type"_ustr))
|
|
{
|
|
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: */
|