Solo 10 Conexiones

Hola, tengo problemas al hacer conexiones con el
sqlclient, resulta que cuando hago consultas a store
procedures solo puedo realizar 10 consultas y luego ya no
funciona el programa, me salgo del programa y puedo
volver a hacer otras 10 consultas, alguien sabe si es el
programa o la seguridad de SQL, de cualquier forma pongo
el codigo de conexion gracias



Private strConexion As String
Dim conn As SqlClient.SqlConnection

Public Sub New()
strConexion = "data source=PLARRE01;User ID=sa;
password=; persist security info=False;initial
catalog½_PLARRE"
conn = New SqlClient.SqlConnection(strConexion)
conn.Open()
End Sub



Dim dsProdFR As New DataSet
Dim da As New SqlClient.SqlDataAdapter
da.SelectCommand = New SqlClient.SqlCommand
da.SelectCommand.Connection = conn
da.SelectCommand.CommandType > CommandType.StoredProcedure
da.SelectCommand.CommandText
= "FacFacRemProductosTodos"
da.Fill(dsProdFR, "PRODUCTOSFR")
CProdFR.DataSource = dsProdFR.Tables
("PRODUCTOSFR")

Veo un problema en tu código, y es que abres la conexión

con lo cual vas consumiendo las conexiones disponibles.

Dado que usas el Fill del dataadapter para leer datos,

el "conn.Open()". Cuando el Fill se encuentra la

la usa, y la vuelve a cerrar. A ver si con eso se te

"Rodia" wrote in

news:053a01c539fb$d80c0c90$

Hola, tengo problemas al hacer conexiones con el
sqlclient, resulta que cuando hago consultas a store
procedures solo puedo realizar 10 consultas y luego ya

funciona el programa, me salgo del programa y puedo
volver a hacer otras 10 consultas, alguien sabe si es

programa o la seguridad de SQL, de cualquier forma

el codigo de conexion gracias



Private strConexion As String
Dim conn As SqlClient.SqlConnection

Public Sub New()
strConexion = "data source=PLARRE01;User ID=sa;
password=; persist security info=False;initial
catalog½_PLARRE"
conn = New SqlClient.SqlConnection(strConexion)
conn.Open()
End Sub



Dim dsProdFR As New DataSet
Dim da As New SqlClient.SqlDataAdapter
da.SelectCommand = New SqlClient.SqlCommand
da.SelectCommand.Connection = conn
da.SelectCommand.CommandType >> CommandType.StoredProcedure
da.SelectCommand.CommandText
= "FacFacRemProductosTodos"
da.Fill(dsProdFR, "PRODUCTOSFR")
CProdFR.DataSource = dsProdFR.Tables
("PRODUCTOSFR")

.