[puntonet] Error al ejecutar metodo contra Sybase.

[Javier Osvaldo Chércoles]

Gracias por la respuesta y el chiste. Pero la conexión es una sola en la manejo 
en una variable de session.

¿Puede haber otra posibilidad?

Saludos y gracias nuevamente.

Javier.
  ----- Original Message ----- 
  From: [EMAIL PROTECTED] 
  To: puntonet@mug.org.ar 
  Sent: Friday, November 07, 2008 9:38 AM
  Subject: [puntonet] Error al ejecutar metodo contra Sybase.


  Javier,

       En primer lugar, te sugerirìa que no ejecutes mètodos "en contra" de 
nadie esperando luego una respuesta favorable.

       En segundo lugar, cerrà las conexiones a la base de datos.



  C.S.





  ----- Original Message -----
  From: "Javier Osvaldo =?iso-8859-1?Q?Chércoles?= (MUG)" <[EMAIL PROTECTED]>
  To: puntonet@mug.org.ar <puntonet@mug.org.ar>; 
  Subject: RE: [puntonet] Error al ejecutar metodo contra Sybase.
  Sent: Fri, 07 Nov 2008 09:26:52 -0300



  Gente al&nbsp;cargar una grilla se ejecuta por cada paginado un metodo 
  contra Sybase 10. Se ejecuta una, dos, tres, cuatro y a la quinta vez, por 
  ejemplo, tira el error Resource governor for 'prepared 
  statements' exceeded .
  Les paso el metodo como para aclarar un poco ms:
  &nbsp;
  Public 
  Sub 
  GetCategorias()

  Try


  Dim adpt 
  As 
  OleDbDataAdapter

  Dim
   comm As New OleDbCommand
  TablaCategorias = New dsSiMaPa.CategoriasDataTable
  If
   connSiMaPa.State = ConnectionState.Closed Then

  connSiMaPa.Open()
  End
   If
  comm.Connection = connSiMaPa
  comm.CommandType = CommandType.Text
  comm.CommandText = "SELECT * FROM Categorias ORDER BY 
  caDescripcion"
  adpt = 
  New OleDbDataAdapter(comm)
  adpt.Fill(Categorias)
  adpt = 
  Nothing
  comm = 
  Nothing

  Catch ex1 As OleDbException
  Console.Write(ex1.Message)

  Catch ex2 As Exception
  Console.Write(ex2.Message)
  End
   Try
  End
   Sub
  &nbsp;
  o en su defecto en este.
  &nbsp;

  Public Function GetCategoria(
  ByVal
   icaId As Integer) As
   String


  Dim
   sNombre As String

  Dim
   comm As New OleDbCommand
  Dim
   drCategoria As OleDbDataReader
  If
   connSiMaPa.State = ConnectionState.Closed Then


  connSiMaPa.Open()
  End
   If
  comm.Connection = connSiMaPa
  comm.CommandType = CommandType.Text
  comm.CommandText = "SELECT caDescripcion FROM Categorias WHERE caId = " 
  &amp; icaId.ToString
  comm.Prepare()
  drCategoria = comm.ExecuteReader
  drCategoria.Read()
  sNombre = Trim(drCategoria.GetValue(0))
  drCategoria.Close()
  drCategoria = Nothing
  comm = 
  Nothing

  Return sNombre
  End
   Function
  &nbsp;