You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
koffice/kexi/kexidb/dbproperties.cpp

149 lines
4.7 KiB

/* This file is part of the KDE project
Copyright (C) 2005-2006 Jaroslaw Staniek <js@iidea.pl>
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This program 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
Library General Public License for more details.
You should have received a copy of the GNU Library General Public License
along with this program; see the file COPYING. If not, write to
the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02110-1301, USA.
*/
#include "dbproperties.h"
#include <klocale.h>
using namespace KexiDB;
DatabaseProperties::DatabaseProperties(Connection *conn)
: KexiDB::Object()
, m_conn(conn)
{
}
DatabaseProperties::~DatabaseProperties()
{
}
bool DatabaseProperties::setValue( const TQString& _name, const TQVariant& value )
{
TQString name(_name.stripWhiteSpace());
bool ok;
//we need to know whether update or insert
bool exists = m_conn->resultExists(
TQString::fromLatin1("SELECT 1 FROM kexi__db WHERE db_property=%1")
.arg(m_conn->driver()->escapeString(name)), ok);
if (!ok) {
setError(m_conn, i18n("Could not set value of database property \"%1\".").arg(name));
return false;
}
if (exists) {
if (!m_conn->executeSQL(
TQString::fromLatin1("UPDATE kexi__db SET db_value=%1 WHERE db_property=%2")
.arg(m_conn->driver()->escapeString(value.toString()))
.arg(m_conn->driver()->escapeString(name))))
{
setError(m_conn, i18n("Could not set value of database property \"%1\".").arg(name));
return false;
}
return true;
}
if (!m_conn->executeSQL(
TQString::fromLatin1("INSERT INTO kexi__db (db_property, db_value) VALUES (%1, %2)")
.arg(m_conn->driver()->escapeString(name))
.arg(m_conn->driver()->escapeString(value.toString()))))
{
setError(m_conn, i18n("Could not set value of database property \"%1\".").arg(name));
return false;
}
return true;
}
bool DatabaseProperties::setCaption( const TQString& _name, const TQString& caption )
{
TQString name(_name.stripWhiteSpace());
//captions have ' ' prefix
name.prepend(" ");
bool ok;
//we need to know whether update or insert
bool exists = m_conn->resultExists(
TQString::fromLatin1("SELECT 1 FROM kexi__db WHERE db_property=%1")
.arg(m_conn->driver()->escapeString(name)), ok);
if (!ok) {
setError(m_conn, i18n("Could not set caption for database property \"%1\".").arg(name));
return false;
}
if (exists) {
if (!m_conn->executeSQL(
TQString::fromLatin1("UPDATE kexi__db SET db_value=%1 WHERE db_property=%2")
.arg(m_conn->driver()->escapeString(caption))
.arg(m_conn->driver()->escapeString(name))))
{
setError(m_conn, i18n("Could not set caption for database property \"%1\".").arg(name));
return false;
}
return true;
}
if (!m_conn->executeSQL(
TQString::fromLatin1("INSERT INTO kexi__db (db_property, db_value) VALUES (%1, %2)")
.arg(m_conn->driver()->escapeString(name))
.arg(m_conn->driver()->escapeString(caption))))
{
setError(m_conn, i18n("Could not set caption for database property \"%1\".").arg(name));
return false;
}
return true;
}
TQVariant DatabaseProperties::value( const TQString& _name )
{
TQString result;
TQString name(_name.stripWhiteSpace());
if (true!=m_conn->querySingleString(
TQString::fromLatin1("SELECT db_value FROM kexi__db WHERE db_property=")
+ m_conn->driver()->escapeString(name), result)) {
m_conn->setError(ERR_NO_DB_PROPERTY, i18n("Could not read database property \"%1\".").arg(name));
return TQVariant();
}
return result;
}
TQString DatabaseProperties::caption( const TQString& _name )
{
TQString result;
TQString name(_name.stripWhiteSpace());
//captions have ' ' prefix
name.prepend(" ");
if (true!=m_conn->querySingleString(
TQString::fromLatin1("SELECT db_value FROM kexi__db WHERE db_property=")
+ m_conn->driver()->escapeString(name), result)) {
setError(m_conn, i18n("Could not read database property \"%1\".").arg(name));
return TQString();
}
return result;
}
TQStringList DatabaseProperties::names()
{
TQStringList result;
if (true!=m_conn->queryStringList(
TQString::fromLatin1("SELECT db_value FROM kexi__db WHERE db_property NOT LIKE ")
+ m_conn->driver()->escapeString(TQString::fromLatin1(" %%")), result, 0 /*0-th*/)) {
// ^^ exclude captions
setError(m_conn, i18n("Could not read database properties."));
return TQStringList();
}
return result;
}