Postada em 25/03/2008 16:29 hs
Pessoal tenho a seguinte procedure no oracle:
CREATE OR REPLACE PROCEDURE sp_atualiza_carteira (
snumtiu VARCHAR2,
icodemppan NUMBER,
scoddpd VARCHAR2,
iviacarteira NUMBER,
iplano NUMBER,
iempplano NUMBER
)
IS
v_erro EXCEPTION;
BEGIN
UPDATE e09_hist_carteira
SET dt_impressao = TO_DATE (SYSDATE, 'DD/MM/YYYY'),
hr_impressao = TO_CHAR (SYSDATE, 'hh24miss'),
matresultatl = 'PROCED'
WHERE numtiu = snumtiu
AND codemppan = icodemppan
AND coddpd = scoddpd
AND codemppln = iempplano
AND codpln = iplano
AND nu_via_carteira = iviacarteira;
COMMIT;
EXCEPTION
WHEN v_erro
THEN
raise_application_error (-20007, 'ATENÇÃO: ALTERAÇÃO NÃO EFETIVADA!');
END;
Estou usando a seguinte forma de passar os parametros:
Dim Sql As String
Dim cnS As String
Dim rs As New ADODB.Recordset
Set cnB = New ADODB.Connection
Set cnB = CreateObject("ADODB.Connection")
On Error Resume Next
cnS = "Provider=msdaora;Data Source=" & txServer.Text & ";User Id=" & txUser.Text & ";Password=" & txSenha.Text & ";"
'cnS = "Provider=SQLOLEDB.1;Persist Security Info=False;Password=" & txSenha & ";Persist Security Info=True;User ID=" & txUser & ";Data Source=" & txServer & ";Initial Catalog=linkacesso"
Set cnB = CreateObject("ADODB.Connection")
cnB.ConnectionString = cnS
cnB.CursorLocation = adUseClient
cnB.Open
Sql = "execute sp_Atualiza_Carteira '" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "'," & Text4.Text & "," & Text5.Text & "," & Text6.Text & ""
Set rs = cnB.Execute(Sql)
soh que nao dah resultado - ele simplesmente nao atualiza nada na base.
O que poderia esta errado.
Ja faz uma semana que eu estou tentando e nada.
Ja tentei passar parametros assim tambem e nada:
Dim SqlC As New ADODB.Command
Set SqlC = New ADODB.Command
SqlC.ActiveConnection = cnB
SqlC.CommandType = adCmdStoredProc
SqlC.CommandText = txQuery.Text
With SqlC
.Parameters.Append .CreateParameter("snumtiu", adVarChar, adParamInput, 20, Text1.Text)
.Parameters.Append .CreateParameter("icodemppan", adVarChar, adParamInput, 20, Text2.Text)
.Parameters.Append .CreateParameter("scoddpd", adVarChar, adParamInput, 2, Text3.Text)
.Parameters.Append .CreateParameter("iviacarteira", adInteger, adParamInput, Text4.Text)
.Parameters.Append .CreateParameter("iplano", adInteger, adParamInput, Text5.Text)
.Parameters.Append .CreateParameter("iempplano", adInteger, adParamInput, Text6.Text)
End With
SqlC.Execute
Quem puder me ajudar......
|
