elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Visual.NET y ORACLE9i // SOLUCIONADO!!!!!!
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Visual.NET y ORACLE9i // SOLUCIONADO!!!!!!  (Leído 1,914 veces)
vegetoth

Desconectado Desconectado

Mensajes: 1


Ver Perfil
Visual.NET y ORACLE9i // SOLUCIONADO!!!!!!
« en: 14 Marzo 2008, 19:59 pm »

Hola

Necesito el codigo en VS.NET para ejecutar un procedimiento almacenado hecho en ORACLE 9i, ademas debo rescatar la informacion de una variable del procedimiento y mostrarlo en un textbox o lo que sea.

Aca les dejo el procedimiento almacenado:


Código:
create or replace procedure Verifica (varRut in varchar2) is
Resp varchar2(15);
cont number;
begin
select count(*) into cont from Administrador where Rut = varRut;
       if (cont > 0) then
          Resp:='Existe';
       else
           Resp:='No existe';
       end if;
     
       dbms_output.put_line(Resp);
end Verifica;

La variable "Resp" la debo mostrar en un textbox o un label de VS.NET

aca tengo un codigo en Visual, pero no me funciona:

Código:
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim conn As New OracleConnection(conexion)
        conn.Open()
        Dim comando As New OracleCommand()
       
        comando.Connection = conn
        comando.CommandText = "VERIFICA"
        comando.CommandType = CommandType.StoredProcedure
        comando.Parameters.Add(New OracleParameter("varRut", OracleDbType.Varchar2)).Value = TextBox1.Text
        comando.Parameters.Add(New OracleParameter("Resp", OracleDbType.Varchar2, ParameterDirection.ReturnValue))
        Dim rdr As OracleDataReader
        rdr = comando.ExecuteReader()
        rdr.Read()
        TextBox5.Text = comando.Parameters("Resp").ToString()
        rdr.Close()
        conn.Close()
    End Sub

Con este codigo se supone que deberia ejecutar el procedimiento y rescatar el valor de la variable "Resp", pero no me funciona.

Espero que me ayuden gracias.


« Última modificación: 15 Marzo 2008, 21:31 pm por vegetoth » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines