1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
//***************************************************************************
/*
* TOra - An Oracle Toolkit for DBA's and developers
* Copyright (C) 2000-2001,2001 Underscore AB
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; only version 2 of
* the License is valid for this program.
*
* 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 General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*
* As a special exception, you have permission to link this program
* with the Oracle Client libraries and distribute executables, as long
* as you follow the requirements of the GNU GPL in regard to all of the
* software in the executable aside from Oracle client libraries.
*
* Specifically you are not permitted to link this program with the
* Qt/UNIX, Qt/Windows or Qt Non Commercial products of TrollTech.
* And you are not permitted to distribute binaries compiled against
* these libraries without written consent from Underscore AB. Observe
* that this does not disallow linking to the Qt Free Edition.
*
* All trademarks belong to their respective owners.
*
****************************************************************************/
#include "utils.h"
#include "toconf.h"
#include "toconnection.h"
#include "toextract.h"
#include "tohighlightedtext.h"
#include "toresultextract.h"
#include "tosql.h"
#include "totool.h"
#include "toresultextract.moc"
toResultExtract::toResultExtract(bool prompt,QWidget *parent,const char *name)
: toWorksheet(parent,name,toCurrentConnection(parent))
{
Prompt=prompt;
}
static toSQL SQLObjectType("toResultExtract:ObjectType",
"SELECT Object_Type FROM sys.All_Objects\n"
" WHERE Owner = :f1<char[101]> AND Object_Name = :f2<char[101]>",
"Get type of an object by name");
void toResultExtract::query(const QString &sql,const toQList ¶m)
{
if (!setSQLParams(sql,param))
return;
toQList::iterator i=params().begin();
QString owner;
QString name;
if (i!=params().end()) {
owner=*i;
i++;
}
toConnection &conn=toToolWidget::connection();
if (i==params().end()) {
name=owner;
if (toIsOracle(conn))
owner=conn.user().upper();
else
owner=conn.user();
} else {
name=*i;
i++;
}
try {
QString type;
if (i==params().end()) {
toQuery query(conn,SQLObjectType,owner,name);
if(query.eof())
throw QString("Object not found");
type=query.readValue();
} else
type=*i;
std::list<QString> objects;
if (toIsOracle(conn)) {
if (type=="TABLE"||type=="TABLE PARTITION") {
objects.insert(objects.end(),"TABLE FAMILY:"+owner+"."+name);
objects.insert(objects.end(),"TABLE REFERENCES:"+owner+"."+name);
} else if (type.startsWith("PACKAGE")&&Prompt) {
objects.insert(objects.end(),"PACKAGE:"+owner+"."+name);
objects.insert(objects.end(),"PACKAGE BODY:"+owner+"."+name);
} else
objects.insert(objects.end(),type+":"+owner+"."+name);
} else
objects.insert(objects.end(),type+":"+owner+"."+name);
toExtract extract(conn,NULL);
extract.setCode(true);
extract.setHeading(false);
extract.setPrompt(Prompt);
editor()->setText(extract.create(objects));
} TOCATCH
}
bool toResultExtract::canHandle(toConnection &conn)
{
try {
return toExtract::canHandle(conn)&&!toSQL::string(SQLObjectType,conn).isEmpty();
} catch(...) {
return false;
}
}
|
