Oracle - Obtener datos

   
Vista:

Obtener datos

Publicado por Jonathan (4 intervenciones) el 27/09/2007 14:49:05
Bueno lo que quisiera saber es como hago para obtenr datos de una funcion desde Vb6.0 es decir poder llamar un procedimiento que hace una busqueda a una tabla y en vb6.0 visualizar y manjar dicha informacion
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Obtener datos

Publicado por Rodolfo Reyes (445 intervenciones) el 27/09/2007 17:08:55
En VBSCRIPT (el lenguaje es muy parecido a Visual Basic) se hace de la siguiente manera.

Primero desde SQL Plus ingresa con el usuario dueño del procedimiento y dale un DESC Nombre_procedimiento para que puedas ver los parametros:

Ejemplo:

SQL> desc CALCULO;
PROCEDURE CALCULO
Argument Name Type In/Out Default?
------------------------------ ----------------------- ------ --------
I_ID_EMPLEADO NUMBER IN
O_ING_AFECTOS NUMBER IN/OUT
O_ING_NO_AFECTOS NUMBER IN/OUT
O_DEDUCCIONES NUMBER IN/OUT

El procedimiento calculo tiene cuatro parametros

'Aqui declaramos las cuatro variables que utilizaremos para los parametros
Dim ID_EMPLEADO
Dim ING_AFECTOS
Dim ING_NO_AFECTOS
Dim DEDUCCIONES

'Se le ponen datos a la variables que se envian como parametros en el procedimeinto
ID_EMPLEADO = '1111111'
ING_AFECTOS = 0
ING_NO_AFECTOS = 0
DEDUCCIONES = 0


'Se crea la conexion
Set oCmd = Server.CreateObject("ADODB.Command")
oCmd.ActiveConnection = "Provider=OraOLEDB.Oracle;User ID=usuario;Password=contraseña;Data Source=ALIAS_CONEXION;"
oCmd.CommandText = "CALCULO"
oCmd.CommandType = 4

'Aqui se ponen los cuatro parametros que se le envian al procedimiento

Set pI_CODEMPLEADO = oCmd.CreateParameter("I_ID_EMPLEADO",3,1,6,ID_EMPLEADO)
oCmd.Parameters.Append pI_CODEMPLEADO

Set pO_ING_AFECTOS = oCmd.CreateParameter("O_ING_AFECTOS",5,3,15,ING_AFECTOS)
oCmd.Parameters.Append pO_ING_AFECTOS

Set pO_ING_NO_AFECTOS = oCmd.CreateParameter("O_ING_NO_AFECTOS",5,3,15,ING_NO_AFECTOS)
oCmd.Parameters.Append pO_ING_NO_AFECTOS

Set pO_DEDUCCIONES = oCmd.CreateParameter("O_DEDUCCIONES",5,3,15,DEDUCCIONES)
oCmd.Parameters.Append pO_DEDUCCIONES

'Aqui se ejecuta el procedimiento
oCmd.Execute

'En OCMD queda la colección con los tres parametros que son de salida
'oCmd("O_ING_AFECTOS")
'oCmd("O_ING_NO_AFECTOS")
'oCmd("O_DEDUCCIONES")

--En esta pagina puedes ver lo que significan los NUMEROS que observas en CreateParameter
http://www.w3schools.com/ado/met_comm_createparameter.asp
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar