Employees in Department # " & testDeptNo & "

" & vbCrLf)

Response.Write ("" & vbCrLf)
Response.Write (" " & vbCrLf)
Response.Write (" " & vbCrLf)
Response.Write (" " & vbCrLf)
Response.Write (" " & vbCrLf)

While (Not rs.EOF)
Response.Write (" " & vbCrLf)
Response.Write (" " & vbCrLf)
Response.Write (" " & vbCrLf)
Response.Write (" " & vbCrLf)

rs.MoveNext
Wend

Response.Write ("

Emp #	Name
" & rs (0) & "	" & rs (1) & "

" & vbCrLf)

rs.Close

objConn.Close

Set rs = nothing

Set param1 = nothing

Set cmdStoredProc = nothing

Set objConn = nothing

--
END ASP CODE
--



And the following is thanks to Brett Rosen :


I noticed that you didn't have an OCI entry
on http://osi.oracle.com/~tkyte/ResultSets/index.html .

Here is OCI code to do this (Oracle 81) if you want to include it on
that page.
Some error checking and cleanup has been removed, but the below should
work. (once dbname has been replaced appropriately)

Brett

int main(int argc, char* argv[])
{
OCIError* pOciError;
char* pConnectChar = "dbname";
char* pUsernameChar = "scott";
char* pPasswordChar = "tiger";
int answer;
OCIStmt* pOciStatement;
char* sqlCharArray = "BEGIN :success := sp_ListEmp; END;";
int id;
char ename[40];
OCIEnv* g_pOciEnvironment = NULL;
OCIServer* g_pOciServer = NULL;
OCISession* g_pOciSession = NULL;
OCISvcCtx* g_pOciServiceContext = NULL;
sb2* pIndicator=0;
sb2* pIndicator2=0;
sb2* pIndicator3=0;
OCIDefine* pOciDefine;
OCIDefine* pOciDefine2;
OCIBind* pBind;
OCIStmt* cursor;


answer = OCIInitialize(OCI_THREADED, NULL, NULL, NULL, NULL);
answer = OCIEnvInit(&g_pOciEnvironment, OCI_DEFAULT, 0, NULL);
answer = OCIHandleAlloc(g_pOciEnvironment, (void **)&pOciError, OCI_HTYPE_ERROR, 0, NULL);
answer = OCIHandleAlloc(g_pOciEnvironment, (void **)&g_pOciSession, OCI_HTYPE_SESSION, 0, NULL);
answer = OCIHandleAlloc(g_pOciEnvironment, (void **)&g_pOciServer, OCI_HTYPE_SERVER, 0, NULL);
answer = OCIHandleAlloc(g_pOciEnvironment, (void **)&g_pOciServiceContext, OCI_HTYPE_SVCCTX, 0, NULL);
answer = OCIServerAttach(g_pOciServer, pOciError, (unsigned char *)pConnectChar, strlen(pConnectChar),
OCI_DEFAULT);
answer = OCIAttrSet(g_pOciSession, OCI_HTYPE_SESSION, (unsigned char *)pUsernameChar, strlen(pUsernameChar),
OCI_ATTR_USERNAME, pOciError);
answer = OCIAttrSet(g_pOciSession, OCI_HTYPE_SESSION, (unsigned char *)pPasswordChar, strlen(pPasswordChar),
OCI_ATTR_PASSWORD, pOciError);
answer = OCIAttrSet(g_pOciServiceContext, OCI_HTYPE_SVCCTX, g_pOciServer, 0, OCI_ATTR_SERVER, pOciError);
answer = OCIAttrSet(g_pOciServiceContext, OCI_HTYPE_SVCCTX, g_pOciSession, 0, OCI_ATTR_SESSION, pOciError);
answer = OCISessionBegin(g_pOciServiceContext, pOciError, g_pOciSession, OCI_CRED_RDBMS, OCI_DEFAULT);
answer = OCIHandleAlloc(g_pOciEnvironment, (void **)(&pOciStatement), OCI_HTYPE_STMT, 0, NULL);
answer = OCIStmtPrepare(pOciStatement, pOciError, (unsigned char *)sqlCharArray, strlen(sqlCharArray),
OCI_NTV_SYNTAX, OCI_DEFAULT);
answer = OCIHandleAlloc(g_pOciEnvironment, (void **)(&cursor), OCI_HTYPE_STMT, 0, NULL);
answer = OCIBindByPos(pOciStatement,&pBind, pOciError, 1, &cursor, 0,SQLT_RSET,
pIndicator2, 0,NULL, 0,0,OCI_DEFAULT);

answer = OCIStmtExecute(g_pOciServiceContext, pOciStatement, pOciError, 1, 0, NULL, NULL,
OCI_COMMIT_ON_SUCCESS);
answer = OCIDefineByPos(cursor,&pOciDefine, pOciError,2,&id,sizeof(int),
SQLT_INT,pIndicator, 0, 0,OCI_DEFAULT);
answer = OCIDefineByPos(cursor,&pOciDefine2, pOciError,1,ename,40,
SQLT_STR,pIndicator3, 0, 0,OCI_DEFAULT);

if (answer == 0)
while ((answer = OCIStmtFetch(cursor,pOciError, 1,OCI_FETCH_NEXT,OCI_DEFAULT)) == 0)
{
printf("fetched id %d and name %s\n",id,ename);
}
answer = OCIHandleFree(pOciError, OCI_HTYPE_ERROR);
return 0;
}


And the following DBI perl example is thanks to q_richard_chen@yahoo.com (Richard Chen):

Hello Tom,
I was looking for such compilation of tips on the topic. I did not find the section about doing
it using the popular perl DBI. After some fiddling I get it working there too. Here is a complete working example following your model using perl DBI. I think it is a good idea that you include this in your howto so that more people will benefit from it.

Thanks

Richard Chen

$ cat demo.pl
#!/usr/local/bin/perl -w
use strict;
use DBI;
use DBD::Oracle qw(:ora_types);
my $dbh = DBI->connect('dbi:Oracle:','scott','tiger') or die $DBI::errstr;
my $sth1 = $dbh->prepare(q{create or replace package types as
type cursorType is ref cursor;
end;});
$sth1->execute;
> >
$sth1 = $dbh->prepare(q{
create or replace function sp_ListEmp return types.cursorType
as l_cursor types.cursorType;
begin
open l_cursor for select ename, empno from emp order by ename;
return l_cursor;
end;});
$sth1->execute;
$sth1 = $dbh->prepare(q{
BEGIN
:cursor := sp_ListEmp;
END;
});
my $sth2;
$sth1->bind_param_inout(":cursor", \$sth2, 0, { ora_type => ORA_RSET } );
$sth1->execute();
while ( my @row = $sth2->fetchrow_array ) { print join("|",@row),"\n"; }

--------------------------------------------------------------------------------

MFC + ODBC VERSION (example checked by Marcin Buchwald) marcin.buchwald@gazeta.pl Oracle server side code is just like in the VB example


CDatabase m_DB;
BOOL ok = m_DB.OpenEx(_T("DSN=orcl;UID=velvet"),CDatabase::useCursorLib);
COraSet set(&m_DB);
set.m_Value = Text1.Text;
set.Open();
while (!set.IsEOF()) {
// set members contain values of single row
// use it here

set.MoveNext();
}
set.Close();

where

COraSet::COraSet(CDatabase* pdb) : CRecordset(pdb) {
m_nParams = 1;
m_nFields = ;
m_nDefaultType = snapshot;
}

CString COraSet::GetDefaultSQL() {
return _T("{call RefTest.GetEmpData(?,?)}");
}
Fonte: http://asktom.oracle.com/tkyte/ResultSets/index.html - Moderador Oracle_br (moderador@oraclebr.com.br) Thu, 12 Jul 2007 00:00:00 -0300 http://www.oraclebr.com.br/codigo/codigo.php?seq=35 http://www.oraclebr.com.br/codigo/codigo.php?seq=34 -- Versão do RDBMS testada: 9.2.0.4
create or replace package nk4xgrid
timestamp '1998-07-07:10:10:10'
authid current_user
is
------------------------------------------------------------------
-- (c) Copyright 1998-2004 Nulaya Knowledge
------------------------------------------------------------------
-- NK4XGRID: Dynamic HTML/CSV Grid Generator
------------------------------------------------------------------

------------------------------------------------------------------
-- Collections, Records, Variables, Constants, Exceptions, Cursors
------------------------------------------------------------------
-- Oracle types constants
varchar2_type constant integer := 1;
number_type constant integer := 2;
long_type constant integer := 8;
varchar_type constant integer := 9;
date_type constant integer := 12;
rowid_type constant integer := 69;
char_type constant integer := 96;
clob_type constant integer := 112;
blob_type constant integer := 113;
bfile_type constant integer := 114;
cfile_type constant integer := 115;
urowid_type constant integer := 208;

-- Format Constants
csv_format constant varchar2(10) := 'CSV';
html_format constant varchar2(10) := 'HTML';

-- HTML Constants
justify_left constant varchar2(10) := 'LEFT';
justify_right constant varchar2(10) := 'RIGHT';

-- GRID Structure
type grid_columns is table of varchar2(4000) index by binary_integer;
type grid_array is table of grid_columns index by binary_integer;

-- Buffers
type buffer_array is table of varchar2(32767) index by binary_integer;
gt_public_buffer buffer_array;

------------------------------------------------------------------
-- GRID
------------------------------------------------------------------
procedure grid(ft_buffer out buffer_array,
fv_stmt in varchar2,
fv_format in varchar2);

------------------------------------------------------------------
-- HTML_DEFAULT
------------------------------------------------------------------
procedure html_default(ft_buffer out buffer_array,
ft_grid in out nocopy grid_array,
ft_template in grid_columns);

------------------------------------------------------------------
-- CSV_DEFAULT
------------------------------------------------------------------
procedure csv_default(ft_buffer out buffer_array,
ft_grid in out nocopy grid_array);

end nk4xgrid;
/
show errors





create or replace package body nk4xgrid
timestamp '1998-07-07:10:10:10'
is
------------------------------------------------------------------
-- (c) Copyright 1998-2004 Nulaya Knowledge
------------------------------------------------------------------
-- NK4XGRID: Dynamic HTML/CSV Grid Generator
------------------------------------------------------------------

------------------------------------------------------------------
-- Collections, Records, Variables, Constants, Exceptions, Cursors
------------------------------------------------------------------
gv_package_name constant varchar2(30) := 'NK4XGRID';

-- Subtypes
subtype dbms_sql_array is dbms_sql.varchar2a;

-- Current cursor
gv_cursor integer;

-- Allowed column title chars
gv_allowedchars constant varchar2(256) := 'abcdefghijklmnopqrstuvwxyz' ||
'ABCDEFGHIJKLMNOPQRSTUVWXYZ' ||
'~!@#$%^&*()_+-=/|\?,[.]{;}<:>0123456789' ||
'ÀÁÂÃÄàáâãäÈÉÊËèéêëÌÍÎÏìíîïÒÓÔÕÖòóôõöÙÚÛÜùúûü' ||
'ÇçÑñªº®£ƒ¥" ';

gv_grid_stmt_1 constant varchar2(512) := '
declare
lv__ constant varchar2(100) := ''NK4XGRID.GV_GRID_STMT'';
lv_cursor constant integer := :lv_cursor;
lv_format constant varchar2(255) := :lv_format;
lt_grid nk4xgrid.grid_array;
lt_template nk4xgrid.grid_columns;';
--LT_DECLARE
gv_grid_stmt_2 varchar2(512) := '
lv_rows integer;
i binary_integer := 2;
begin';
--LT_TEMPLATE
--LT_TITLE
--LT_DEFINE
gv_grid_stmt_3 constant varchar2(512) := '
lv_rows := dbms_sql.execute(lv_cursor);
while (dbms_sql.fetch_rows(lv_cursor) > 0) loop';
--LT_COLVAL
--LT_GRIDDING
gv_grid_stmt_4 constant varchar2(1024) := '
i := i + 1;
end loop;
if (lv_format = nk4xgrid.csv_format) then
nk4xgrid.csv_default(ft_buffer => nk4xgrid.gt_public_buffer,
ft_grid => lt_grid);
else
nk4xgrid.html_default(ft_buffer => nk4xgrid.gt_public_buffer,
ft_grid => lt_grid,
ft_template => lt_template);
end if;
lt_grid.delete;
lt_template.delete;
exception when others then
raise_application_error(-20904, lv__ || chr(10) || sqlerrm);
end;';

-- HTML Data
gv_html_begin constant varchar2(4096) :=
'



' || chr(10);
gv_tr_open constant varchar2(25) := '' || chr(10);
gv_thl constant varchar2(25) := '' || chr(10);
gv_tr_close constant varchar2(25) := '' || chr(10);
gv_html_end constant varchar2(25) := '' || chr(10);

-- Internals
gv_format varchar(10);
gv_columns integer;
gt_buffer buffer_array;
gt_template grid_columns;

------------------------------------------------------------------
----------------------- Private Session --------------------------
------------------------------------------------------------------

------------------------------------------------------------------
-- FILTER_PVT - Remove any characters that wasn't allowed
------------------------------------------------------------------
procedure filter_pvt(fv_text in out nocopy varchar2,
fv_allowedchars in varchar2 := gv_allowedchars)
is
lv__ constant varchar2(100) := gv_package_name || '.FILTER_PVT: ';
lv_allowedchar constant varchar2(1) := substrb(fv_allowedchars, 1, 1);
lv_notallowedchars constant varchar2(32767) := replace(translate(fv_text, fv_allowedchars, lv_allowedchar), lv_allowedchar, null);
lv_nacslength constant integer := nvl(lengthb(lv_notallowedchars),0);
lv_notallowedchar constant varchar2(1) := substrb(lv_notallowedchars, 1, 1);
begin
if (lv_nacslength > 0) then
fv_text := replace(translate(fv_text, lv_notallowedchars,
rpad(lv_notallowedchar, lv_nacslength, lv_notallowedchar)), lv_notallowedchar, null);
end if;
exception when others then
raise_application_error(-20904, lv__ || chr(10) || sqlerrm);
end filter_pvt;

------------------------------------------------------------------
-- CLEANOUT_PVT
------------------------------------------------------------------
procedure cleanout_pvt
is
lv__ constant varchar2(100) := gv_package_name || '.CLEANOUT_PVT: ';
begin
gv_format := null;
gv_columns := null;
gt_buffer.delete;
gt_template.delete;
exception when others then
raise_application_error(-20904, lv__ || chr(10) || sqlerrm);
end cleanout_pvt;

------------------------------------------------------------------
-- ESCAPE_TAGS_PVT
------------------------------------------------------------------
procedure escape_tags_pvt(fv_text in out nocopy varchar2,
fv_format in varchar2)
is
lv__ constant varchar2(100) := gv_package_name || '.ESCAPE_TAGS_PVT: ';
begin
if (fv_format = html_format) then
fv_text := replace(replace(replace(replace(fv_text, '<', '&' || 'lt;'), '>', '&' || 'gt;'), chr(9), ' '), chr(10), '
');
fv_text := nvl(fv_text, '&' || 'nbsp;');
elsif (fv_format = csv_format) then
fv_text := replace(fv_text, '"', '""');
end if;
exception when others then
raise_application_error(-20904, lv__ || chr(10) || sqlerrm);
end escape_tags_pvt;

------------------------------------------------------------------
-- GRID_SANITY_PVT
------------------------------------------------------------------
procedure grid_sanity_pvt(ft_grid in grid_array)
is
lv__ constant varchar2(100) := gv_package_name || '.GRID_SANITY_PVT: ';
i binary_integer;
j binary_integer;
haetsl boolean := TRUE; -- has all elements the same length
begin
i := ft_grid.first;
while (i is not null) loop
if (i = ft_grid.first) then
j := ft_grid(i).count;
elsif (j <> ft_grid(i).count) then
haetsl := FALSE;
exit;
end if;
i := ft_grid.next(i);
end loop;
if (not haetsl) then
raise_application_error(-20904, '*** Grid data has distinct sizes ***');
end if;
if (gv_format = html_format) then
if (j <> gt_template.count) then
raise_application_error(-20904, '*** Invalid template size ***');
end if;
end if;
exception when others then
raise_application_error(-20904, lv__ || chr(10) || sqlerrm);
end grid_sanity_pvt;

------------------------------------------------------------------
-- CSV_DEFAULT_PVT
------------------------------------------------------------------
procedure csv_default_pvt(ft_grid in out nocopy grid_array)
is
lv__ constant varchar2(100) := gv_package_name || '.CSV_DEFAULT_PVT: ';
lv_column varchar2(4000);
lv_row varchar2(32767);
i binary_integer;
j binary_integer;
k binary_integer;
begin
grid_sanity_pvt(ft_grid => ft_grid);
i := ft_grid.first;
while (i is not null) loop
j := ft_grid(i).first;
while (j is not null) loop
lv_column := ft_grid(i)(j);
escape_tags_pvt(fv_text => lv_column,
fv_format => csv_format);
if (j <> ft_grid(i).last) then
lv_row := lv_row || '"' || lv_column || '";';
else
lv_row := lv_row || '"' || lv_column || '"';
end if;
j := ft_grid(i).next(j);
end loop;
gt_buffer(nvl(gt_buffer.last,0) + 1) := lv_row;
lv_row := null;
k := i;
i := ft_grid.next(i);
ft_grid(k).delete;
end loop;
ft_grid.delete;
exception when others then
raise_application_error(-20904, lv__ || chr(10) || sqlerrm);
end csv_default_pvt;

------------------------------------------------------------------
-- HTML_DEFAULT_PVT
------------------------------------------------------------------
procedure html_default_pvt(ft_grid in out nocopy grid_array)
is
lv__ constant varchar2(100) := gv_package_name || '.HTML_DEFAULT_PVT: ';
lv_text varchar2(32767);
shift boolean := TRUE;
i binary_integer;
j binary_integer;
k binary_integer;
begin
gt_buffer(nvl(gt_buffer.last,0) + 1) := gv_html_begin;
i := ft_grid.first;
while (i is not null) loop
gt_buffer(nvl(gt_buffer.last,0) + 1) := gv_tr_open;
j := ft_grid(i).first;
while (j is not null) loop
lv_text := ft_grid(i)(j);
escape_tags_pvt(fv_text => lv_text,
fv_format => html_format);
if (i = ft_grid.first) then -- Header
if (gt_template(j) = justify_right) then
lv_text := gv_thr || lv_text || gv_td_close;
else
lv_text := gv_thl || lv_text || gv_td_close;
end if;
else -- Rows
if (shift) then -- Odd row
if (gt_template(j) = justify_right) then
lv_text := gv_tdor || lv_text || gv_td_close;
else
lv_text := gv_tdol || lv_text || gv_td_close;
end if;
else -- Even row
if (gt_template(j) = justify_right) then
lv_text := gv_tder || lv_text || gv_td_close;
else
lv_text := gv_tdel || lv_text || gv_td_close;
end if;
end if;
end if;
gt_buffer(nvl(gt_buffer.last,0) + 1) := lv_text;
j := ft_grid(i).next(j);
end loop;
gt_buffer(nvl(gt_buffer.last,0) + 1) := gv_tr_close;
if (shift) then
shift := FALSE;
else
shift := TRUE;
end if;
k := i;
i := ft_grid.next(i);
ft_grid(k).delete;
end loop;
ft_grid.delete;
exception when others then
raise_application_error(-20904, lv__ || chr(10) || sqlerrm);
end html_default_pvt;

------------------------------------------------------------------
-- POP_GRID_PVT
------------------------------------------------------------------
procedure pop_grid_pvt(fv_format in varchar2)
is
lv__ constant varchar2(100) := gv_package_name || '.POP_GRID_PVT: ';
lt_stmt dbms_sql_array;
lt_columns dbms_sql.desc_tab2;
lv_columns integer;
lv_title varchar2(255);
lt_declare buffer_array;
lt_template buffer_array;
lt_title buffer_array;
lt_define buffer_array;
lt_colval buffer_array;
lt_gridding buffer_array;
job2do boolean := TRUE;
lv_cursor integer;
lv_rows integer;
i binary_integer;
j binary_integer := 1;
begin
dbms_sql.describe_columns2(gv_cursor, lv_columns, lt_columns);
i := lt_columns.first;
while (i is not null) loop
if (lt_columns(i).col_type = varchar2_type) then
lt_declare(lt_declare.count+1) := ' lv_col' || to_char(i) || ' varchar2(' || to_char(lt_columns(i).col_max_len) || ');' || chr(10);
lt_template(lt_template.count+1) := ' lt_template(' || to_char(j) ||') := nk4xgrid.justify_left;' || chr(10);
lt_define(lt_define.count+1) := ' dbms_sql.define_column(lv_cursor, ' || to_char(i) || ', lv_col' || to_char(i) ||
', ' || to_char(lt_columns(i).col_max_len) || ');' || chr(10);
lt_gridding(lt_gridding.count+1) := ' lt_grid(i)(' || to_char(j) ||') := lv_col' || to_char(i) || ';' || chr(10);
elsif (lt_columns(i).col_type = number_type) then
lt_declare(lt_declare.count+1) := ' lv_col' || to_char(i) || ' number;' || chr(10);
lt_template(lt_template.count+1) := ' lt_template(' || to_char(j) ||') := nk4xgrid.justify_right;' || chr(10);
lt_define(lt_define.count+1) := ' dbms_sql.define_column(lv_cursor, ' || to_char(i) || ', lv_col' || to_char(i) || ');' || chr(10);
lt_gridding(lt_gridding.count+1) := ' lt_grid(i)(' || to_char(j) || ') := to_char(lv_col' || to_char(i) || ');' || chr(10);
elsif (lt_columns(i).col_type = date_type) then
lt_declare(lt_declare.count+1) := ' lv_col' || to_char(i) || ' date;' || chr(10);
lt_template(lt_template.count+1) := ' lt_template(' || to_char(j) ||') := nk4xgrid.justify_left;' || chr(10);
lt_define(lt_define.count+1) := ' dbms_sql.define_column(lv_cursor, ' || to_char(i) || ', lv_col' || to_char(i) ||
');' || chr(10);
lt_gridding(lt_gridding.count+1) := ' lt_grid(i)(' || to_char(j) ||') := to_char(lv_col' || to_char(i) || ', ' ||
'''DD/MM/YYYY HH24:MI:SS'');' || chr(10);
elsif (lt_columns(i).col_type = char_type) then
lt_declare(lt_declare.count+1) := ' lv_col' || to_char(i) || ' varchar2(' || to_char(lt_columns(i).col_max_len) || ');' || chr(10);
lt_template(lt_template.count+1) := ' lt_template(' || to_char(j) ||') := nk4xgrid.justify_left;' || chr(10);
lt_define(lt_define.count+1) := ' dbms_sql.define_column(lv_cursor, ' || to_char(i) || ', lv_col' || to_char(i) ||
', ' || to_char(lt_columns(i).col_max_len) || ');' || chr(10);
lt_gridding(lt_gridding.count+1) := ' lt_grid(i)(' || to_char(j) ||') := lv_col' || to_char(i) || ';' || chr(10);
else
job2do := FALSE;
end if;
if (job2do) then
lt_colval(lt_colval.count+1) := ' dbms_sql.column_value(lv_cursor, ' || to_char(i) || ', lv_col' || to_char(i) || ');' || chr(10);
lv_title := substrb(lt_columns(i).col_name, 1, 255);
filter_pvt(fv_text => lv_title,
fv_allowedchars => gv_allowedchars);
lt_title(lt_title.count+1) := ' lt_grid(1)(' || to_char(j) ||') := ''' || lv_title || ''';' || chr(10);
j := j + 1;
end if;
job2do := TRUE;
i := lt_columns.next(i);
end loop;
lt_stmt(lt_stmt.count+1) := gv_grid_stmt_1;
for n in 1 .. lt_declare.count loop
lt_stmt(lt_stmt.count+1) := lt_declare(n);
end loop;
lt_declare.delete;
lt_stmt(lt_stmt.count+1) := gv_grid_stmt_2;
for n in 1 .. lt_template.count loop
lt_stmt(lt_stmt.count+1) := lt_template(n);
end loop;
lt_template.delete;
for n in 1 .. lt_title.count loop
lt_stmt(lt_stmt.count+1) := lt_title(n);
end loop;
lt_title.delete;
for n in 1 .. lt_define.count loop
lt_stmt(lt_stmt.count+1) := lt_define(n);
end loop;
lt_define.delete;
lt_stmt(lt_stmt.count+1) := gv_grid_stmt_3;
for n in 1 .. lt_colval.count loop
lt_stmt(lt_stmt.count+1) := lt_colval(n);
end loop;
lt_colval.delete;
for n in 1 .. lt_gridding.count loop
lt_stmt(lt_stmt.count+1) := lt_gridding(n);
end loop;
lt_gridding.delete;
lt_stmt(lt_stmt.count+1) := gv_grid_stmt_4;
lv_cursor := dbms_sql.open_cursor;
dbms_sql.parse(lv_cursor, lt_stmt, lt_stmt.first, lt_stmt.last, false, dbms_sql.native);
dbms_sql.bind_variable(lv_cursor, 'lv_cursor', gv_cursor);
dbms_sql.bind_variable(lv_cursor, 'lv_format', nk4xgrid.html_format);
lv_rows := dbms_sql.execute(lv_cursor);
dbms_sql.close_cursor(lv_cursor);
exception when others then
if (dbms_sql.is_open(lv_cursor)) then
dbms_sql.close_cursor(lv_cursor);
end if;
raise_application_error(-20904, lv__ || chr(10) || sqlerrm);
end pop_grid_pvt;

------------------------------------------------------------------
------------------------ Public Session --------------------------
------------------------------------------------------------------

------------------------------------------------------------------
-- GRID
------------------------------------------------------------------
procedure grid(ft_buffer out buffer_array,
fv_stmt in varchar2,
fv_format in varchar2)
is
lv__ constant varchar2(100) := gv_package_name || '.GRID: ';
begin
if (fv_stmt is not null) then
gv_cursor := dbms_sql.open_cursor;
dbms_sql.parse(gv_cursor, fv_stmt, dbms_sql.native);
pop_grid_pvt(fv_format => fv_format);
dbms_sql.close_cursor(gv_cursor);
end if;
ft_buffer := gt_public_buffer;
exception when others then
if (dbms_sql.is_open(gv_cursor)) then
dbms_sql.close_cursor(gv_cursor);
end if;
raise_application_error(-20904, lv__ || chr(10) || sqlerrm);
end grid;

------------------------------------------------------------------
-- HTML_DEFAULT
------------------------------------------------------------------
procedure html_default(ft_buffer out buffer_array,
ft_grid in out nocopy grid_array,
ft_template in grid_columns)
is
lv__ constant varchar2(100) := gv_package_name || '.HTML_DEFAULT: ';
begin
cleanout_pvt;
gt_template := ft_template;
html_default_pvt(ft_grid => ft_grid);
ft_buffer := gt_buffer;
cleanout_pvt;
exception when others then
raise_application_error(-20904, lv__ || chr(10) || sqlerrm);
end html_default;

------------------------------------------------------------------
-- CSV_DEFAULT
------------------------------------------------------------------
procedure csv_default(ft_buffer out buffer_array,
ft_grid in out nocopy grid_array)
is
lv__ constant varchar2(100) := gv_package_name || '.CSV_DEFAULT: ';
begin
cleanout_pvt;
gv_format := csv_format;
csv_default_pvt(ft_grid => ft_grid);
ft_buffer := gt_buffer;
cleanout_pvt;
exception when others then
raise_application_error(-20904, lv__ || chr(10) || sqlerrm);
end csv_default;

end nk4xgrid;
/
show errors

- Geraldo Viana De Paula Junior (nulaya@yahoo.com)Fri, 24 Nov 2006 00:00:00 -0200http://www.oraclebr.com.br/codigo/codigo.php?seq=34 http://www.oraclebr.com.br/codigo/codigo.php?seq=33
Qualquer empresa na área de TI que busca um crescimento sustentado
deverá investir na educação. Atualmente na linha de sistemas
integrados ERP (Enterprise Resource Planning - Atividades e
aplicativos que auxiliam a empresa a gerenciar com mais eficiência
os aspectos fundamentais de seu negócio), a SAP (empresa Alemã que
distribui ERP SAP), monopoliza o conhecimento com custos altíssimos.
Por outro lado, com a mudança do mercado para o SMB (ERP de baixo
custo utilizado por empresas de médio e pequeno porte), a SAP já
esta tendo problemas com a falta de consultores no mercado (Motivo -
custo elevado da consultoria). Por ser novidade, antigamente, vender
ERP para grandes empresas ficava fácil, pois o custo do projeto
absorvia os altos valores da consultoria. Exemplo: Petrobras, CVRD,
etc. Atualmente a briga mudou de área, pois a SMB tem licença que
gira em torno de 50% da normal. Logo, seguindo este pensamento, o
custo da consultoria deveria também reduzir. Errado, cada vez mais a
consultoria aumenta! A demanda X necessidade, está ditando os preços
deste mercado. Logo, os custos de consultoria estão inviabilizando
os projetos de SMB. Preocupado com esse problema, a SAP apresentou
um projeto de 1000 consultores em 500 dias (cobrando de 50% do custo
do curso para seus parceiros), terceirizou a sua área de educação,
mais mesmo assim não teve o êxito esperado. Enfim, continua uma
educação "Sapiana" cara e nada democrática. A Oracle, o seu
principal concorrente, esta seguindo por outro caminho. Caminho que
a pioneira Microsoft sempre procurou andar (treinamentos
democráticos de baixo custo). Para que uma empresa consiga aumentar
a sua venda de licenças, será necessário um investimento educacional
constante em técnicos e consultores na sua base. Oferecer para o
mercado cursos de baixo custo, com qualidade, será um importante
nicho de mercado. A Oracle, com o apoio das Universidades, esta
procurando democratizar o conhecimento no Brasil, seguindo os passos
da pioneira Microsoft. Nesta linha, como coordenador e professor
Oracle da Universidade Veiga de Almeida UVA RJ apresento os inéditos
cursos Oficiais de Pós-graduação e Graduação de Aplicativos ERP
Oracle. . Com a parceria oficial
Oracle assinada, a Universidade UVA democratizou o conhecimento para
seus alunos, oferecendo, com baixo custo, o acesso educacional ao
ERP Oracle . O objetivo da Universidade UVA em 2007 será oferecer
treinamentos, com laboratórios "on line" Oracle (MBA e Graduação ERP
e DBA ) com preços acessíveis para os graduados e alunos iniciantes.
Nos cursos de graduação Oracle, o aluno na área de TI (tecnologia da
informação) receberá um treinamento profissionalizante de boa
qualidade para o mercado. O futuro graduado, além do diploma
Universitário, poderá atuar rapidamente como um ATG ou DBA em 03
anos. Com essa iniciativa, a Universidade Veiga de Almeida oferecerá
rapidamente mão obra especializada, revolucionando o mercado. O
Professor Joaquim Farias é Coordenador Oracle da Universidade Veiga
de Almeida – UVA. - Moderador Oracle_br (moderador@oraclebr.com.br) Tue, 21 Nov 2006 00:00:00 -0200 http://www.oraclebr.com.br/codigo/codigo.php?seq=33 http://www.oraclebr.com.br/codigo/codigo.php?seq=32 Fundação de Educação Oracle inaugura projeto educacional Think no Brasil

Publicada em 09 de novembro de 2006 às 13h28

São Paulo - Baseado em Web 2.0, Think.com estréia em português com 12 colégios que formularão projetos colaborativos entre alunos e professores.

A Fundação de Educação Oracle, organização sem fins lucrativos financiada pela Oracle, lançou nesta quinta-feira (09/11) a versão em português do projeto educacional Think.com.

Definido como uma "comunidade online de aprendizado", o Think.com oferece ferramentas de interação para que professores do ensino básico desenvolvam projetos educacionais pela internet com seus alunos.

O projeto piloto do Think.com no Brasil já conta com a participação de 12 colégios dentro do estado de São Paulo, segundo Cyro Diehl, vice-presidente de vendas indiretas para a América Latina da companhia.

Baseado em dados relativos ao projeto no Chile, Diehl projeta que o Think.com deverá atingir cerca de 200 mil estudantes em 400 escolas primárias espalhadas pelo Brasil dentro de três anos.

O Think.com também propõe acordos dos colégios de ensino básico com instituições de ensino como forma de aproximar professores e formular novas iniciativas.

Neste âmbito, o projeto brasileiro já conta com a participação de Prodesp, Escola do Futuro, ligada à Universidade de São Paulo, e Fundação Bradesco.

A aproximação, segundo James Ballard, vice-presidente global da Fundação de Educação Oracle, amenizará mais rápido o principal problema com a comunidade em seu início: a falta de projetos colaborativos em português.

Ballard também vê a Web 2.0 como ferramenta imprescindível para o futuro da educação. "O movimento (de Web 2.0) inspira estudantes a criar, compartilhar e comparar conteúdo alheio, além de impulsionar a inclusão digital de uma maneira global".

Projetos capitaneados por grandes companhias, como o Think.com, que consome parte dos 18 milhões de dólares investidos anualmente pela Oracle na Fundação de Educação Oracle, é uma maneira de "diminuir o abismo digital" em pouco tempo, segundo o executivo.

Ballard, no entanto, crê que a inclusão digital passe pela combinação entre ferramentas de educação e doações de equipamentos para colégios. "Um não se faz sem o outro. O software precisa do hardware e vice-versa".


Fonte: http://idgnow.uol.com.br/internet/2006/11/09/idgnoticia.2006-11-09.9826809593/IDGNoticia_view - Moderador Oracle_br (moderador@oraclebr.com.br) Fri, 10 Nov 2006 00:00:00 -0200 http://www.oraclebr.com.br/codigo/codigo.php?seq=32 http://www.oraclebr.com.br/codigo/codigo.php?seq=31 Oracle comemora mês das crianças com programação especial para seus colaboradores

Funcionários trarão seus filhos para vivenciar um clima de circo com mágicos, malabarismos e guloseimas; tarde será livre para continuar com as crianças

SÃO PAULO, Brasil 17-OCT-2006 A Oracle comemora o mês das crianças globalmente, num evento batizado de Oracle Kids. No Brasil, no dia 20 de outubro, próxima sexta-feira, os filhos dos funcionários terão uma manhã especial. Na ocasião, grupos circences irão comandar um show de mágicas e malabarismos nos escritórios da empresa em todo o País.

O evento vai contar com uma programação intensa até o início da tarde, incluindo apresentação teatral, cujo tema será apresentar a Oracle para as crianças, de forma lúdica. ?Essa manhã recreativa permite que os filhos dos nossos colaboradores conheçam o ambiente de trabalho dos pais e, além disso, é mais uma oportunidade para que nossos colaboradores e suas famílias se confraternizem, o que consideramos fundamental?, afirma Alberto Brisola, diretor de Recursos Humanos da Oracle do Brasil.

No Brasil, a expectativa é que mais de 100 crianças entre três e 12 anos participem do Oracle Kids. Os menores de três anos também poderão participar de todas as brincadeiras, desde que acompanhados por seus responsáveis.

O Oracle Kids é uma iniciativa promovida no Brasil desde o ano 2000. Atualmente, já é realizada em todas os escritórios da empresa na América Latina. ?O mais interessante é a energia que transforma o ambiente?, completa Brisola.
- Moderador Oracle_br (moderador@oraclebr.com.br) Fri, 20 Oct 2006 00:00:00 -0200 http://www.oraclebr.com.br/codigo/codigo.php?seq=31 http://www.oraclebr.com.br/codigo/codigo.php?seq=30 Saiba como a Oracle avalia seus profissionais
Transparência, consenso e objetividade. Esses valores são a base do novo método para a avaliação do desempenho individual dos profissionais adotado pela área de Consultoria da Oracle do Brasil, que tem boa parte de seus quadros alocada no cliente, em projetos de vários meses.

?Quando avaliamos pessoas com as quais nos relacionamos no ambiente de trabalho há o risco de a subjetividade permear todo o processo?, comenta Michel Setzer, diretor sênior de Consultoria da Oracle do Brasil. ?Por isso, adotamos ferramentas e processos que tornem as avaliações de desempenho objetivas e justas, para que possam se transformar em um componente construtivo para a orientação das carreiras?, resume ele.

Além dos tradicionais relatórios de auto-avaliação dos consultores que são cruzados com os de seus gerentes, a Consultoria da Oracle do Brasil criou há quatro semestres um ?Comitê de Avaliação?. Esse grupo é formado executivos e gestores seniores e recebe as auto-avaliações dos consultores e avaliações dos gerentes para revisá-las. Eles também analisam um dossiê sobre cada um dos funcionários feito pelo gestor do time ao longo do semestre. Nele estão reunidos os e-mails de elogios e de reclamações dos clientes, informações sobre os treinamentos realizados, os detalhes dos projetos nos quais o consultor participou e outros dados importantes que possam ser coletados ao longo do semestre. O processo de discussões caso a caso toma de dois a três dias úteis por semestre.

Consenso nas avaliações
Setzer reforça a importância da participação de outros gerentes ? além do superior direto de cada consultor ? no processo de avaliação. ?É natural que um gerente tenda, até por seu relacionamento afetivo, a avaliar positivamente o seu funcionário. Contudo, quando outros executivos participam, fica mais fácil ser mais objetivo?, defende.

Cada membro do Comitê de Avaliação recebe um guia com as orientações de como reavaliar o material sobre cada consultor, dando especial atenção a fatos concretos, como o cumprimento das metas estabelecidas previamente, a profundidade do conhecimento que detêm sobre tecnologias específicas, qualidade do relacionamento com clientes, colegas e superiores, assim como o seu comportamento no período, segundo quesitos como capacidade de liderança, desenvoltura na comunicação verbal e postura no atendimento ao cliente. As promoções e aumentos de salários, ao final, são definidos em consenso pelo grupo de executivos.

Curva de desempenho
?Cada consultor é avaliado individualmente de acordo com as metas que cumpriu e segundo o seu desempenho, à luz da sua comparação com todo o grupo do seu mesmo nível hierárquico?, informa Setzer. Segundo ele, a Consultoria da Oracle adota, ainda, o conceito de ?ranking forçado? ? uma classificação dos profissionais em quatro categorias: desempenho excepcional, desempenho acima das expectativas, desempenho dentro das expectativas e aquém do desejável. Este método evita que os gestores sejam condescendentes com sua equipe e coloquem todos no grupo dos melhores e garante uma avaliação comparativa. Como sempre há diferenças de performance, deve-se motivar a evolução do time focando naqueles que precisam de maior desenvolvimento.

?Estatisticamente sabemos que é normal nas consultorias que 70% da equipe tenha um desempenho dentro das expectativas; 20% acima das expectativas; 3% apresente um desempenho excepcional e 7% precise de um cuidado especial para atingir um desenvolvimento profissional melhor?, detalha o diretor.

?Tendo em vista esta curva, fica mais fácil definirmos as promoções e aumentos de salário por mérito?, argumenta Setzer. ?Por outro lado, torna-se mais objetivo, também, avaliar o que pode ser feito para apoiar aquela parte do time que precisa de treinamentos específicos, aconselhamento profissional (coaching) ou orientação dirigida para superar seus desafios pessoais?, acrescenta.

Adesão da equipe
Setzer frisa que, nesses últimos quatro semestres, a prática de avaliação de desempenho por esses procedimentos foi fundamental para motivar a equipe. ?Temos de ter em mente que nossos profissionais passam a maior parte do tempo fisicamente longe da empresa, pois estão em projetos alocados no cliente?, ressalta. ?Nesse contexto, ter a oportunidade de ver seus feitos e realizações discutidos seriamente por uma equipe de gerentes e diretores tem trazido um maior envolvimento do time?, avalia Setzer. Para o diretor, os consultores perceberam que a avaliação pode se transformar em uma ferramenta objetiva para a evolução de sua carreira.

?Esse processo vem ganhando um apoio surpreendente entre os profissionais, pois eles já notaram que dele, efetivamente, saem promoções, aumento de salários e o encaminhamento a treinamentos diversos ? desde cursos técnicos até programas de ?soft skills?, como cursos para liderança, apresentações em público, negociação e planejamento?, explica Setzer. ?Hoje temos maior justiça nas promoções e estamos a caminho de uma meritocracia genuína?, comemora o executivo. Com o sucesso desta iniciativa no Brasil, a empresa começa a replicar o mesmo modelo para todas as consultorias Oracle da América Latina.

http://www.cadernodigital.inf.br/interna_noticia.php?idN=1264
- Moderador Oracle_br (moderador@oraclebr.com.br) Wed, 18 Oct 2006 00:00:00 -0200 http://www.oraclebr.com.br/codigo/codigo.php?seq=30 http://www.oraclebr.com.br/codigo/codigo.php?seq=29 Mensagem postada no grupo oracle_br dia 06/10/2006:

A ordenação do Forms nativa é feita PELO BANCO,
portanto vc pode tranquilamente ordenar pela info não-base table DESDE
QUE seja possível ** AO BANCO ** ecuperar a informação, ok ? Exemplo,
Forms 6i C/S com banco 8i :

a) pra efeito de demonstração, crio um Forms bem simples, um só bloco
na tabela EMP do usuário SCOTT (o usuário-padrão de demos no 8i), com
os campos EMPNO, ENAME, DEPTO e SAL

b) manualmente crio um campo não-base table chamado NOME_DEPTO, a
informação dele (que será o nome de departamento) É POSSÌVEL de ser
recuperada no banco só com as colunas da tabela base-table EMP, então
poderei ordenar

c) crio ** NO BANCO ** - não é no Forms !! - a seguinte função :

FUNCTION BUSCA_NOME_DEPTO (P_DEPTO number) RETURN VARCHAR2 IS
v_nome_depto varchar2(80);
BEGIN
select dname into v_nome_depto from dept where deptno=P_DEPTO;
return v_nome_depto;
END;

d) seja depois duma query, seja quando o item base table DEPTNO for
alterado manualmente, quero buscar a descrição, assim crio a nível do
campo DEPTNO uma trigger POST-CHANGE com o seguinte código :

-- trigger POST-CHANGE
:NOME_DEPTO := BUSCA_NOME_DEPTO(:DEPTNO);

e pronto, a info será buscada. Usar a trigger POST-CHANGE (que
funciona em ambos os casos) é ao invés da POST-QUERY (que só funciona
pra queries) é técnica-padrão no Forms, mas não sei por que cargas
dágua quando dava treinamento de Forms quase ** nenhum ** dos meus
alunos a tinha usado antes :/


e) finalmente : como já tinha dito em msg anterior , o que o Forms faz
é montar um SQL com o nome dos campos, e adiconar o que estiver nas
propriedades de WHERE e de ORDER BY - na situação-exemplo até agora, o
SQL que seria montado e enviado seria :

SELECT ROWID,EMPNO,ENAME,SAL,DEPTNO FROM EMP

até aqui, tamos seguros ??? Muito bem, no seu caso provavelmente
ERRADAMENTE vc tascou na propriedade ORDER BY o texto :

:nomedobloco.nomedocamponãobasetable

assim sendo o SQL enviado pro banco foi :

SELECT ROWID,EMPNO,ENAME,SAL,DEPTNO FROM EMP ORDER BY
:nomedobloco.nomedocamponãobasetable

==> eu PERGUNTO, isso é valido pro banco, o banco SABE o que é esse
tal :nomedobloco.nomedocamponãobasetable pra odrenar por ele ?? Eu
mesmo respondo, È CLARO QUE NÃO, esse
:nomedobloco.nomedocamponãobasetable é algo que reside LÁ no Forms !!!

Pra obter o efeito desejado, na propriedade OPRDER BY vc deve colocar :

BUSCA_NOME_DEPTO(DEPTNO)

vamos ver o SQL que será montado e enviado pro banco com esse cara :

SELECT ROWID,EMPNO,ENAME,SAL,DEPTNO FROM EMP order by
BUSCA_NOME_DEPTO(DEPTNO)

==> eu pergunto, o banco SABE o que é esse BUSCA_NOME_DEPTO ??? SIM
!!! Sabe o que é esse DEPTNO ? SIM, é uma COLUNA da tabela! Portanto
ele PODERÁ ordenar por isso, o Forms IRÁ receber os regs ordenados...

Feita a fofoca, obtido o efeito, capicce ?

[]s

Chiappa


===========================================================
Participe do ENPO - Encontro de Profissionais Oracle 2006 !
Informações e inscrições em www.enpo-br.org
José Laurindo Chiappa, Palestrante ENPO-2006
===========================================================
- Moderador Oracle_br (moderador@oraclebr.com.br) Fri, 06 Oct 2006 00:00:00 -0300 http://www.oraclebr.com.br/codigo/codigo.php?seq=29 http://www.oraclebr.com.br/codigo/codigo.php?seq=28 /*********************************************************************************************
*** 'Mailhost' is the name of the remote host when connection is established. The port ***
*** number on which SMTP server is listening is usually 25. ***
*** ***
*** Open_connection(): Allows open connection to an SMTP server. ***
*** Helo(): Performs initial handshaking with SMTP server after connecting. ***
*** Mail(): Initiates a mail transaction with the server. The destination is a mailbox. ***
*** Rcpt(): Specifies the recipient of an email message. ***
*** Data(): Specifies the body of an email message. ***
*** Quit(): Terminates an SMTP session and disconnects from the server ***
*********************************************************************************************/

CREATE OR REPLACE PROCEDURE send_mail( p_mailhost IN VARCHAR2,
p_sender IN VARCHAR2,
p_recipient IN VARCHAR2,
p_subject IN VARCHAR2,
p_message IN VARCHAR2 ) IS

mail_conn UTL_SMTP.CONNECTION;

crlf VARCHAR2( 2 ) := CHR( 13 ) || CHR( 10 );
mesg VARCHAR2( 1000 );

BEGIN
mail_conn := UTL_SMTP.OPEN_CONNECTION( p_mailhost, 25 );

mesg:= 'Date: ' || TO_CHAR( SYSDATE, 'dd Mon yy hh24:mi:ss' ) || crlf ||
'From: <' || p_sender || '>' || crlf ||
'Subject: ' || p_subject || crlf ||
'To: ' || p_recipient || crlf ||
'' || crlf ||
p_message;

UTL_SMTP.HELO( mail_conn, p_mailhost );
UTL_SMTP.MAIL( mail_conn, p_sender );
UTL_SMTP.RCPT( mail_conn, p_recipient);
UTL_SMTP.DATA( mail_conn, mesg );
UTL_SMTP.QUIT( mail_conn );
END;
/
- Moderador Oracle_br (moderador@oraclebr.com.br) Sat, 02 Sep 2006 00:00:00 -0300 http://www.oraclebr.com.br/codigo/codigo.php?seq=28

'; -- Table Header: left justified gv_thr constant varchar2(25) := '

'; -- Table Header: right justified gv_tdol constant varchar2(25) := '

'; -- Table Data: odd row left justified gv_tdor constant varchar2(25) := '

'; -- Table Data: odd row right justified gv_tdel constant varchar2(25) := '

'; -- Table Data: even row left justified gv_tder constant varchar2(25) := '

'; -- Table Data: even row right justified gv_td_close constant varchar2(25) := '