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
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... |