Kbase P113324: How to load the result of a sql-send-statement into a Dynamic Temp-Table?
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
16/10/2008 |
|
Status: Unverified
GOAL:
How to load the result of a sql-send-statement into a Dynamic Temp-Table?
GOAL:
How to send a SQL statement to Oracle and load the results into a Dynamic Temp-Table?
FACT(s) (Environment):
Progress 9.1E
OpenEdge 10.0B
OpenEdge 10.1x
DataServers
FIX:
DEFINE VARIABLE tt1 AS HANDLE.
DEFINE VARIABLE q AS HANDLE.
DEFINE VARIABLE bh AS HANDLE.
DEFINE VARIABLE hBrowse AS HANDLE NO-UNDO.
DEFINE FRAME BrowseFrame WITH SIZE 80 BY 10.
CREATE TEMP-TABLE tt1.
RUN STORED-PROC send-sql-statement LOAD-RESULT-INTO tt1 ("SELECT * from CUSTOMER").
bh = tt1:DEFAULT-BUFFER-HANDLE.
CREATE QUERY q.
q:SET-BUFFERS (bh).
DISPLAY tt1:name.
q:QUERY-PREPARE("for each " + tt1:name).
q:QUERY-OPEN.
CREATE BROWSE hBrowse
ASSIGN ROW = 1 COL = 1
WIDTH = 79 DOWN = 10
FRAME = FRAME BrowseFrame:HANDLE
QUERY = q
SENSITIVE = YES
SEPARATORS = YES
ROW-MARKERS = NO
VISIBLE = YES.
hBrowse:ADD-COLUMNS-FROM(bh).
ENABLE ALL WITH FRAME BrowseFrame.
WAIT-FOR CLOSE OF CURRENT-WINDOW.