Defende
|
JARINÚ
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 27/02/2008 17:47 hs
Tenho o seguinte codigo:
Set cnB = CreateObject("ADODB.Connection")
cnB.ConnectionString = Provider=MSDAORA;Password=sgb;User ID=sgb_user_sigben;Data Source=teste
cnB.CursorLocation = adUseClient
Dim Sql as String
Sql = "execute sp_selecionar_carteiras '" & txMatB.Text & "'," & txPat.Text & ",'" & txCodB.Text & "'"
rsR.CursorType = adOpenForwardOnly
Set rsR = cnB.Execute(Sql)
Ele nao me retorna nada.
fiz um trace no oracle e me retorna isso aqui:
Log Oracle:
TKPROF: Release 9.2.0.1.0 - Production on Qua Fev 27 17:32:04 2008
Copyright (c) 1982, 2002, Oracle Corporation. All rights reserved.
Trace file: teste_ora_3636.trc
Sort options: default
********************************************************************************
count = number of times OCI procedure was executed
cpu = cpu time in seconds executing
elapsed = elapsed time in seconds executing
disk = number of physical reads of buffers from disk
query = number of buffers gotten for consistent read
current = number of buffers gotten in current mode (usually for update)
rows = number of rows processed by the fetch or execute call
--------------------------------------------------------------------------------
*** SESSION ID:(13.19949) 2008-02-27 17:29:28.859
********************************************************************************
The following statements encountered a error during parse:
execute sp_seleciona ...
=====================
Error encountered: ORA-00900
--------------------------------------------------------------------------------
select * from execute
Error encountered: ORA-00942
--------------------------------------------------------------------------------
select * from
Error encountered: ORA-00903
--------------------------------------------------------------------------------
select * from execute sp_selecionar_carteiras '371',2,'00'
Error encountered: ORA-00933
********************************************************************************
Trace file: teste_ora_3636.trc
Trace file compatibility: 9.00.01
Sort options: default
1 session in tracefile.
0 user SQL statements in trace file.
0 internal SQL statements in trace file.
0 SQL statements in trace file.
0 unique SQL statements in trace file.
79 lines in trace file.
Alguem poderia me dizer onde estou errando ou se tem outra maneira de fazer isso???
Grato
|
|
|
|
|
|
Watson
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/02/2008 12:08 hs
Defende, Tem muito tempo que não mexo com ORACLE mas se eu não me engano vc tem que criar um pacote (package) com saida na procedure só não lembro direito com fazer. |
|
|
|
Defende
|
JARINÚ
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/02/2008 15:16 hs
Valeu Watson mas nao eh isso. Eu estou mudando a forma de chamar a procedure.
Ao inves de usar EXEC eu vou usar {Call nomedaprocedure} e vamos ver no que dah.
Depois eu coloco o resultado aqui.
|
|
|
|
wncruz
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 28/02/2008 15:53 hs
Pq vc não tenta assim???? Dim ObjCmd As ADODB.Command
Set ObjCmd = New ADODB.Command
ObjCmd.ActiveConnection = BancoDados
With ObjCmd
.CommandText = "nome_da_procedure"
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter("Var", adVarChar, adParamInput, 50, txtNome.Text)
.Parameters.Append .CreateParameter("Registro", adInteger, adParamInput, , IIf(txtNumRegistro.Text = "", 0, txtNumRegistro.Text))
.Parameters.Append .CreateParameter("Obs", adLongVarChar, adParamInput, 2250, txtObservacao.Text)
.Parameters.Append .CreateParameter("Erro", adInteger, adParamOutput)
End With
ObjCmd.Execute sds |
|
|
|
|
