Foros del web, para los que viven de bits

Tengo el siguiente erro en mi webForm
___
Error: Valor de tiempo de espera caducado. El período de tiempo de espera caducó antes de completar la operación o el servidor no responde
___
Llamo a un procedimiento almacenado de mi base de datos, me supongo que demora demasiado, hay alguna forma para agilizar dicho proceso sin que me meta al códifo de procedimeinto almacenado? o darle mas tiempo a la base de datos..??
gracias :(

using System.Data.SqlClient;

namespace dsConsultaTableAdapters
{

/// <summary>
/// Clase que implementa mas opciones para el table adapater cpa_campo_param.
/// </summary>
///
public partial class CPA_CAMPO_PARAMTableAdapter
{
public void SetCommandTimeOut(int timeOut)
{
foreach (SqlCommand command in this.CommandCollection)
command.CommandTimeout = timeOut;
}
}
}


luego, antes que llames el PA llamas al procedimiento SetCommandTimeOut(Tiempo);

dsConsultaTableAdapters.CPA_CAMPO_PARAMTableAdapte r dtGrilla = new dsConsultaTableAdapters.CPA_CAMPO_PARAMTableAdapte r();
dtGrilla.SetCommandTimeOut(TimeOut);

GrillaPar.DataSource = dtGrilla.GetListaParam();
GrillaPar.DataBind();

asi lo hice yo y me funcionó cualquier cosa me sigues contactando
suerte!

este es mi inicio
____________
Dim cmd As New SqlCommand
Dim ds As DataSet
Dim da As SqlDataAdapter
Dim prm As New SqlParameter
Dim dr As SqlDataReader
Private Sub LLENA_MDEUDAS(ByVal suministro As Decimal)
Dim oComm As New SqlDataAdapter("Com_FacEstDeudas_sp '" & suministro & "'", oConn)
Dim DT As New DataTable
oComm.Fill(DT)
DataGrid1.DataSource = DT
DataGrid1.DataBind()
ajma.FuncCloseConenction(oConn)
End Sub
Private Sub buscar_datgen(ByVal suministro As Decimal)
Try
Dim oConn As SqlConnection = ajma.FuncOpenConnection
cmd.CommandText = "Com_FacEstDeudas_sp "
cmd.CommandType = CommandType.StoredProcedure
cmd.Connection = oConn
prm = cmd.Parameters.Add("@cIdSuministro_TMP", SqlDbType.Decimal)
prm.Direction = ParameterDirection.Input
prm.Value = suministro
prm = cmd.Parameters.Add("@Ind", SqlDbType.Char)
prm.Direction = ParameterDirection.Input
prm.Value = "G"
dr = cmd.ExecuteReader
If dr.Read Then
txtsuministro.Text = suministro
cidTarif.Text = dr.GetString(1)
cidestconexion.Text = dr.GetString(2)
Cliente.Text = dr.GetString(3)
direccion.Text = dr.GetString(4)
servicio.Text = dr.GetString(5)
codcatastral.Text = dr.GetString(6)
' totalcred.text = dr.GetString(7)
cidsuministro.Text = suministro
txtmsn.Text = "Número de Suministro Ubicado..."
End If

Catch ex As Exception
txtmsn.Text = "Error: " & ex.Message
End Try
End Sub
___________
>>
este es el evento de darle click al botòn para empezar a buscar el id en la base de datos.
__________
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'clean
txtmsn.Text = "Buscándo Número de Suministro, porfavor espere..."
cidestconexion.Text = ""
cidsuministro.Text = ""
cidTarif.Text = ""
Cliente.Text = ""
codcatastral.Text = ""
direccion.Text = ""
servicio.Text = ""
'show
cidestconexion.Visible = True
cidsuministro.Visible = True
cidTarif.Visible = True
Cliente.Visible = True
codcatastral.Visible = True
Conexion.Visible = True
DataGrid1.Visible = True
direccion.Visible = True
Label9.Visible = True
lblCliente.Visible = True
lblcodcatastral.Visible = True
lbldireccion.Visible = True
lblservicio.Visible = True
servicio.Visible = True
Tarifa.Visible = True
'actions
LLENA_MDEUDAS(CDec(txtsuministro.Text))
DataGrid1.CurrentPageIndex = 0
buscar_datgen(CDec(txtsuministro.Text))
txtsuministro.Text = ""
End Sub
__________
>>
este es el data grid donde se almacena lo ubicado
__________
Private Sub DataGrid1_PageIndexChanged(ByVal source As System.Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEvent Args)
DataGrid1.CurrentPageIndex = e.NewPageIndex
LLENA_MDEUDAS(CDec(txtsuministro.Text))
End Sub


____________
ENTONCES MI PREGUNTA VA... CÒMO INTRODUSCO TU CODIGO EN ESTE SCRIT???
GRACIAS SHIMITO

ME OLVIDO DE ESTE: LLENA _MDEUDAS
_____________
Private Sub LLENA_MDEUDAS(ByVal suministro As Decimal)
Dim oComm As New SqlDataAdapter("Com_FacEstDeudas_sp '" & suministro & "'", oConn)
Dim DT As New DataTable
oComm.Fill(DT)
DataGrid1.DataSource = DT
DataGrid1.DataBind()
ajma.FuncCloseConenction(oConn)
End Sub
___________

AHH EL INCIO QUE PUSE ES LA SIGUEINTE FUNCIÒN
buscar_datgen(ByVal suministro As Decimal)
_____

http://www.gadgetophile.com/timeout-what-timeout/
http://www.velocityreviews.com/forum...aspnet-20.html