/
SQLListTablePrivileges.prg
91 lines (61 loc) · 1.79 KB
/
SQLListTablePrivileges.prg
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
/// <include file="SQL.xml" path="doc/SQLListTablePrivileges/*" />
CLASS SQLListTablePrivileges INHERIT SQLCatalogQuery
EXPORT Qualifier AS STRING
EXPORT Owner AS STRING
EXPORT TableName AS STRING
/// <include file="SQL.xml" path="doc/SQLListTablePrivileges.Execute/*" />
METHOD Execute()
LOCAL nRet AS INT
LOCAL psz1, psz2, psz3 AS PSZ
#IFDEF __DEBUG__
__SQLOutputDebug( "** SQLListTablePrivileges:Execute()" )
#ENDIF
IF oStmt:StatementHandle = SQL_NULL_HSTMT
SELF:__AllocStmt()
ENDIF
IF SELF:Qualifier != NULL_STRING
psz1 := String2Psz(Qualifier)
ENDIF
IF SELF:Owner != NULL_STRING
psz2 := String2Psz(Owner)
ENDIF
IF SELF:TableName != NULL_STRING
psz3 := String2Psz(TableName)
ENDIF
nRet := SQLTablePrivileges( oStmt:StatementHandle, ;
psz1, _SLen( Qualifier ) ,;
psz2, _SLen( Owner ), ;
psz3, _SLen( TableName ) )
IF nRet != SQL_SUCCESS
oStmt:ErrInfo := SQLErrorInfo{ SELF, ;
#Execute, ;
oStmt:__Connection:EnvHandle, ;
oStmt:__Connection:ConnHandle, ;
oStmt:StatementHandle }
RETURN FALSE
ENDIF
RETURN SUPER:Execute()
/// <include file="SQL.xml" path="doc/SQLListTablePrivileges.ctor/*" />
CONSTRUCTOR( cQualifier, cOwner, cTableName, oSQLConnection )
SUPER( oSQLConnection )
#IFDEF __DEBUG__
__SQLOutputDebug( "** SQLListTablePrivileges:Init()" )
#ENDIF
IF IsString( cQualifier )
SELF:Qualifier := cQualifier
ELSE
SELF:Qualifier := NULL_STRING
ENDIF
IF IsString( cOwner )
SELF:Owner := cOwner
ELSE
SELF:Owner := NULL_STRING
ENDIF
IF IsString( cTableName )
SELF:TableName := cTableName
ELSE
SELF:TableName := NULL_STRING
ENDIF
SELF:Execute()
RETURN
END CLASS