> Buen dia, necesito de su ayuda.
> Estoy en etapa experimental para migrar desde Microsoft Sql Server a Postgre.
> Construí una Grilla y Levante una tabla. Le hice filtro y funciono, pero necesito utilizar procedimientos almacenados.
> Hasta el momento no he logrado hacerlos funcionar. Le adjunto algo de codigo que he escrito, ojala me puedan
> ayudar a salir adelante en este experimiento.
>
> Estoy desarrollando con Visaula Basic V6.0, debo ocupar la misma aplicación y migrar el Motor de Base de datos.
>
> 'Crea la Cadena de Consulta
> Sql = "Select '*' From 'CartolaAfiliado' Where 'AfiliadoRut'=?"
> 'Ajusta sentencia de acuerdo a sintaxis PostGre
> Sql = Replace(Sql, Chr(39), Chr(34))
> 'Pasa Parametro de Filtro
> Sql = Sql & "'01944947-5'"
> 'Crea Conexión
>
> Set Cnt = New ADODB.Connection
> Cnt.Open "DSN=PostgreSQL30W"
> 'Crea Recordset donde recibir los datos
> Set Rst = New ADODB.Recordset
> Rst.Open Sql, Cnt, adOpenStatic, adLockOptimistic, adCmdText
> 'Asocia recordset a Grilla
> Set DataGrid1.DataSource = Rst
>
> El Resultado OK y se muestra en la Grilla
>
> Necesito Ejecutar Procedimiento Almacenado que devuelva Set de Registros, Ejemplo...
>
> 'Crea Conexión
> Cnt.Open "DSN=PostgreSQL30W"
> Set Cmd = New ADODB.Command
> Cmd.ActiveConnection = Cnt
> Cmd.CommandType = adCmdText
> Cmd.CommandText = "{Call sp_RecuperaRegistros(?)}"
> Cmd.Parameters.Append Cmd.CreateParameter("Rut", adVarChar, adParamInput, 10,"08760213-3")
> 'Crea Recordset donde recibir los datos
> Set Rst = New ADODB.Recordset
> Rst.Open Cmd
> Rst.Open Sql, Cnt, adOpenStatic, adLockOptimistic, adCmdText
> 'Asocia recordset a Grilla
> Set DataGrid1.DataSource = Rst
>
> Esto funciona con Microsoft Sql Server, como lo ejecuto con PostGreSQl
>
> sp_RecuperaRegistros es el Procedimiento almacenado y (?) es el parametro de filtro
>
> Vi que en PostGreSQl hay Funcion y Funcion Disparadores. ¿ Estos se refienen a Procedimiento Almacenado y Triggers?
>
> Esta funcion es la que estoy tratando de ejecutar desde VBasic, el acceso a datos es con ADO
>
> CREATE OR REPLACE FUNCTION "Sp_RecuperaRegistros"()
> RETURNS SETOF "Afiliado" AS
> 'Select * From "Afiliado"'
> LANGUAGE 'sql' STABLE;
> GRANT EXECUTE ON FUNCTION "Sp_RecuperaRegistros"() TO public;
> GRANT EXECUTE ON FUNCTION "Sp_RecuperaRegistros"() TO carmijo;
>
> Este procedimiento o funcion le he creado y no lo puedo ejecutar, ni en el panel de PgAdmin y tampoco por codigo de programa.
>
> Muchas gracias por su atención,
>
>
>
> Carlos Armijo Severino
> Fono : 56 - 32 - 281.93.96
> Celular: 09 416 12 79
> UTIC - Sernapesca
>
>