Procedimientos almacenados para .NET

From: francyX <francyx(at)gmail(dot)com>
To: pgsql-es-ayuda(at)postgresql(dot)org
Subject: Procedimientos almacenados para .NET
Date: 2005-03-03 21:03:00
Message-ID: 14204cda05030313035dd3ba17@mail.gmail.com
Views: Raw Message | Whole Thread | Download mbox | Resend email
Thread:
Lists: pgsql-es-ayuda

hola a todos porfas si alguien utiliza .NET con postgreSQL me puede
ayudar con la invocacion de un procedimiento almacenado de postgresql
en .NET
miren hize una clase para invocar procedimientos almacenados de
SQLserver y todo ok pero al momento de cambiarlo para ke jale uno de
postgresql me sale un error de sintaxis aqui les dejo mi clase ke jala
el procedimiento almacenado con sus parametros:

Imports System.Data.Odbc
Public Class get_sp
Public Cn As New
OdbcConnection("DSN=PostgreSQL;DATABASE=Ventas;SERVER=localhost;PORT=5432;UID=postgres;Socket=4096")
Shared mColComandos As New System.Collections.Hashtable
Protected Function Comando( _
ByVal ProcedimientoAlmacenado As String) As System.Data.IDbCommand
Dim mComando As System.Data.Odbc.OdbcCommand

If mColComandos.Contains(ProcedimientoAlmacenado) Then
mComando = CType(mColComandos.Item(ProcedimientoAlmacenado), _
System.Data.Odbc.OdbcCommand)
Else
Cn.Open()
mComando = New
System.Data.Odbc.OdbcCommand(ProcedimientoAlmacenado, Cn)
Dim mContructor As New System.Data.odbc.OdbcCommandBuilder
mComando.Connection = Cn
mComando.CommandType = CommandType.StoredProcedure
mContructor.DeriveParameters(mComando)
Cn.Close()
mColComandos.Add(ProcedimientoAlmacenado, mComando)
End If
Return mComando
End Function
Public Function Ejecutar( _
ByVal ProcedimientoAlmacenado As String, _
ByVal ParamArray Argumentos() As System.Object) _
As Integer
Dim mCom As System.Data.ODBC.OdbcCommand = _
Comando(ProcedimientoAlmacenado)
Dim Resp As Integer
Cn.Open()
mCom.Connection = Cn
mCom.CommandType = CommandType.StoredProcedure
CargarParametros(mCom, Argumentos)
Try
Resp = mCom.ExecuteNonQuery
Catch Ex As Exception
MessageBox.Show(Ex.Message)
End Try
Cn.Close()
Return Resp
End Function
Protected Sub CargarParametros( _
ByVal Comando As System.Data.IDbCommand, _
ByVal Args() As Object)
Dim i As Integer
With Comando
For i = 0 To Args.GetUpperBound(0)
Try
CType(.Parameters(i + 1),
System.Data.odbc.OdbcParameter).Value = Args(i)
Catch Qex As Exception
Throw (Qex)
End Try
Next
End With
End Sub
End Class

gracias de antemano

Responses

Browse pgsql-es-ayuda by date

  From Date Subject
Next Message Manuel Sugawara 2005-03-03 22:50:43 Re: Problema con Concatenacion de Campos
Previous Message Andrés García G. 2005-03-03 18:03:20 conectarse a BD de diferente de instalacion...