Luiz, aparentemente seu " SET ROLE ALL " não está sendo passado para 
o " ORACLE  " por isso não funciona

Tente dessa forma .:


<[EMAIL PROTECTED]"VBSCRIPT"%>
<%
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase
("cdrx.world","CALLCENTERAPP/livecdr", Cint(0)) 

%>

<%
   DIM ORATEXTO, RETORNO
   ORATEXTO = "BEGIN SET ROLE ALL END;"
   SET ORADYNASET  = ORADATABASE.CREATESQL(ORATEXTO, 0) 
   
   ' Se ocorrer algum erro mostra no browse
   RETORNO  = ORADATABASE.LastServerErrText
   
   IF (TRIM(RETORNO2) <> EMPTY) THEN %>
      <Script Language="JavaScript">
          alert('ERRO:A - Ocorreram erros durante a Execução do 
comando.');
          alert('<%=Replace(RETORNO,CHR(10),Space(1))%>');
          history.go(-1);
      </Script>
<%   RESPONSE.END
   END IF
   
'execute SQL
Set OraDynaset = OraDatabase.DbCreateDynaset("select * from MHANDSET 
where rownum < 10", cint(0))
%>

<HTML>
<HEAD>
<title>conexaoOracle</title>
</HEAD>
<BODY>
<p><br>
</p>
<table border='1' cellpadding='1' cellspacing='0' width="210">
<th bgcolor="#DDE2E3" width="38"> IMEI</TD><TH bgcolor="#DDE2E3" 
width="49">
PREIMA_CHAMADA</th><TH bgcolor="#DDE2E3" 
width="60">ULTIMA_CHAMADA</th>
<TH bgcolor="#DDE2E3" width="45">MARCA</th><TH bgcolor="#DDE2E3" 
width="45">
MODELO</th>

<% 
Do While(OraDynaset.EOF = FALSE) 
%> 
<tr>
<td width="38"><% = (OraDynaset.Fields("TAC").value)%>&nbsp;</td>
<td width="49"><% = (OraDynaset.Fields("MAKE").value)%>&nbsp;</td>
<td width="60"><% = (OraDynaset.Fields("MODEL").value)%>&nbsp;</td>
<td width="45"><% = (OraDynaset.Fields("CODE").value)%>&nbsp;</td>
</tr>
<%
OraDynaset.MoveNext
Loop
'remove OraSession
%>
</table>
<p>&nbsp;</p>
</body>
</html>
<% Set OraSession = Nothing %>

'Obs.: Nunca utilizei comandos de configuração dessa forma, mas 
comando DML e DDL duncionam perfeitamente

Boa sorte,

Cassio Frigo 




Este Grupo recebe o apoio da SQL Magazine - www.devmedia.com.br/sqlmagazine 
--------------------------------------------------------------------------------------------------------------------------
Atenção! As mensagens do grupo ORACLE_BR são de acesso público e de inteira 
responsabilidade de seus remetentes.
Acesse: http://www.mail-archive.com/oracle_br@yahoogrupos.com.br/ 
--------------------------------------------------------------------------------------------------------------------------
O GRUPO ORACLE_BR TEM SEU PROPRIO ESPAÇO! VISITE: http://www.oraclebr.com.br/  
------------------------------------------------------------------------------------------------------------------------
  
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/oracle_br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

 

Responder a