Procedures e VB

[Guest --Victor --]

Bom dia pessoal, estou com dúvidas sobre stored procedures Oracle e como chamá-las no VB.

Tenho a seguinte procedure no Oracle, ex:

PROCEDURE SP_INSERT_USER_TEST (pintID           IN teste_01.tst_id%TYPE,
                               pstrFirstName   IN teste_01.tst_firstname%TYPE,
                               pstrLastName    IN teste_01.tst_lastname%TYPE,
                               pstrPhoneNumber IN teste_01.tst_phonenumber%TYPE) IS

    intID               teste_01.tst_id%TYPE;

    blnCondition        BOOLEAN;

BEGIN

    BEGIN

        blnCondition := TRUE;

        SELECT TST_ID INTO intID
          FROM TESTE_01
         WHERE TST_ID = pintID;

    EXCEPTION

        WHEN no_data_found THEN
            blnCondition := FALSE;

    END;

    IF blnCondition = FALSE THEN

        -- Inserir
        INSERT INTO TESTE_01
             VALUES (pintID,
                     pstrFirstName,
                     pstrLastName,
                     pstrPhoneNumber,
                     SYSDATE);

    END IF;

END;

-----

Como posso executa-la no VB???

Obrigado desde já!

Editado Março 1, 2008 por kuroi
Adicionar tag CODE

[kuroi]

nunca usei Oracle, mas pelo menos as procedures do SQL sempre chamei só escrevendo o nome dela e passando os parametros. exemplo:

cn.Execute "SP_INSERT_USER_TEST param1, param2, param3, param4"

mas tb pode ser pelo objeto Command (caso você esteja usando ADO).

você declara o objeto command, e na propriedade CommandType, você seta adCmdStoredProc.

ai você pode acessar os parametros pela propriedade Parameters.

pode fazer uma busca por ai q devem ter exemplos.

qualquer problema, poste.

[Guest lilian]

Tentei fazer o que você recomendou ao colega porém ainda não obtive sucesso, será que você poderia me dar uma ajuda??

Esse é o meu código:

Sub Button2_Click()
'
' Button1_Click Macro
' Macro recorded 25/3/2008 by lilian
'
    Dim cn As New ADODB.Connection 'conexão
    Dim rs As New ADODB.Recordset  'comando de consultas sql.
    Dim pc As New ADODB.Command    'comando de execuçao de procedures.
    
    
    
    cn.CursorLocation = adUseClient
    cn.Open "Driver={Microsoft ODBC for Oracle};Server= 139.82.24.105;uid=sbbhml;pwd=sbbhml;"
    'rs.Open "select cena_nr_numero_cenario, cena_dt_periodo_inicio, cena_dt_periodo_fim from cenario", cn
    pc.Execute "GET_SCENA_FORECAST start_date, end_date, present_date"

Sheet4.Select
Range("a1").Value = "cena_nr_numero_cenario"
Range("b1").Value = "cena_dt_periodo_inicio"
Range("c1").Value = "cena_dt_periodo_fim"

i = 2
If Not rs.EOF Then
     Do While Not rs.EOF
        Range("a" & i).Value = rs(0)
        Range("b" & i).Value = rs(1)
        Range("c" & i).Value = rs(2)
        rs.MoveNext
        i = i + 1
    Loop
End If
  
    rs.Close
    cn.Close
'
End Sub

Editado Abril 10, 2008 por kuroi
Adicionar tag CODE

[kuroi]

lilian, mas ta dando alguma mensagem de erro?? qual a mensagem??

e o q são start_date, end_date e present_date?? são algumas funcoes ou constantes do oracle??

nos parametros acho q você devia passar valores não??