
14/11/2004, 10:26
|
 | | | Fecha de Ingreso: junio-2004 Ubicación: Misantla,Ver.Mexico
Mensajes: 181
Antigüedad: 20 años, 8 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 |