1 /*************************************************************************
3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
5 * Copyright 2008 by Sun Microsystems, Inc.
7 * OpenOffice.org - a multi-platform office productivity suite
9 * $RCSfile: AKeyColumns.cxx,v $
12 * This file is part of OpenOffice.org.
14 * OpenOffice.org is free software: you can redistribute it and/or modify
15 * it under the terms of the GNU Lesser General Public License version 3
16 * only, as published by the Free Software Foundation.
18 * OpenOffice.org is distributed in the hope that it will be useful,
19 * but WITHOUT ANY WARRANTY; without even the implied warranty of
20 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 * GNU Lesser General Public License version 3 for more details
22 * (a copy is included in the LICENSE file that accompanied this code).
24 * You should have received a copy of the GNU Lesser General Public License
25 * version 3 along with OpenOffice.org. If not, see
26 * <http://www.openoffice.org/license.html>
27 * for a copy of the LGPLv3 License.
29 ************************************************************************/
31 // MARKER(update_precomp.py): autogen include statement, do not remove
32 #include "precompiled_connectivity.hxx"
33 #include "adabas/BKeyColumns.hxx"
34 #ifndef _CONNECTIVITY_ADABAS_KEYCOLUMN_HXX_
35 #include "adabas/BKeyColumn.hxx"
37 #include <com/sun/star/sdbc/XRow.hpp>
38 #include <com/sun/star/sdbc/XResultSet.hpp>
39 #include <com/sun/star/sdbc/DataType.hpp>
40 #include <com/sun/star/sdbc/ColumnValue.hpp>
41 #include "adabas/BTable.hxx"
43 using namespace connectivity::adabas
;
44 // -------------------------------------------------------------------------
45 sdbcx::ObjectType
OKeyColumns::createObject(const ::rtl::OUString
& _rName
)
48 Reference
< starsdbc::XResultSet
>
49 xResult
= m_pTable
->getConnection()->getMetaData()->getImportedKeys(Any(),
50 m_pTable
->getSchema(),m_pTable
->getName());
52 ::rtl::OUString aRefColumnName
;
55 Reference
< starsdbc::XRow
> xRow(xResult
,UNO_QUERY
);
56 while(xResult
->next())
58 if(xRow
->getString(8) == _rName
)
60 aRefColumnName
= xRow
->getString(4);
66 xResult
= m_pTable
->getConnection()->getMetaData()->getColumns(Any(),
67 m_pTable
->getSchema(),m_pTable
->getName(),_rName
);
69 sdbcx::ObjectType xRet
= NULL
;
72 Reference
< starsdbc::XRow
> xRow(xResult
,UNO_QUERY
);
75 if(xRow
->getString(4) == _rName
)
77 OKeyColumn
* pRet
= new OKeyColumn(aRefColumnName
,
93 // -------------------------------------------------------------------------
94 Reference
< XPropertySet
> OKeyColumns::createDescriptor()
96 OKeyColumn
* pNew
= new OKeyColumn();
99 // -------------------------------------------------------------------------