Ver Mensaje Individual
  #2 (permalink)  
Antiguo 14/11/2004, 10:26
Avatar de splinter
splinter
 
Fecha de Ingreso: junio-2004
Ubicación: Misantla,Ver.Mexico
Mensajes: 181
Antigüedad: 19 años, 10 meses
Puntos: 0
hola caguentoo

Si estas usando Visual studio, pues el codigo lo pone el codebehind

Te envio un ejemplo de como ejecutar un proc.almacenado en SQLserver usando un datareader,
te puede dar una idea


Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'------- Seccion del carga del formulario -------
Dim Oconn As New System.Data.SqlClient.SqlConnection(strOconn.ToStr ing) '*strOconn = cadena de conexion
Dim oComando As New System.Data.SqlClient.SqlCommand '*obj.comando
oComando.Connection = Oconn
Dim MyDR As System.Data.SqlClient.SqlDataReader
THE_MONITOR = 0
Try '*control de excepcion
Oconn.Open() '*abrir conexion
oComando.CommandType = CommandType.StoredProcedure '*definir typo store procedure
oComando.CommandText = "Proc_TrackingMetric_Monitor" '*proc.almacenado en sql server
oComando.Parameters.Add("@opc", SqlDbType.Int) : oComando.Parameters.Item("@opc").Value = opc '*parametros del SP
oComando.Parameters.Add("@param1", SqlDbType.Char, 12) : oComando.Parameters.Item("@param1").Value = Param1.ToString '*parametros del SP
MyDR = oComando.ExecuteReader '*ejecutar el comando y enviar el resulset a un obj.datareader
ElGrid.DataSource = MyDR '*el resulset se asigna en un grid
ElGrid.DataBind() '*Cargar el grid
Catch ex As Exception '*excepcion
THE_MONITOR = 0
Finally
If (Not Oconn Is Nothing) Then '*cerrar conexion
Oconn.Close()
End If
If (Not MyDR Is Nothing) Then '*cerrar datareader
MyDR.Close()
End If
Oconn.Dispose() '*liberar obj.conexion
oComando.Dispose() '*liberar obj.comando
End Try

End Sub


Saludos