Store Procedure..!!
Publicado por Mario (15 intervenciones) el 28/12/2004 20:28:59
Hola como estan..he creado un sencillo precedimiento almacenado que hace los siguiente:..cuenta los regsitro que existe en una tabla..y luego los multiplica por 156..lo que deseo es que el resultado de esta operacion aparezca en un text o label..ha continuacio va mi sencillo condigo:
Try
Dim cnSQL As SqlConnection = New SqlConnection SQL_CONNECTION_STRING)
Dim cmSQL As Data.SqlClient.SqlCommand = New SqlCommand("contenedor_vacio", cnSQL)
cmSQL.CommandType = CommandType.StoredProcedure
Dim monto As SqlParameter = cmSQL.Parameters.Add("@monto", SqlDbType.Int, 10)
monto.Direction = ParameterDirection.Input
monto.Value = 156
cnSQL.Open()
cmSQL.ExecuteNonQuery()
Catch EXP As SqlException
MsgBox("Error Nº " & EXP.Number & Chr(10) & EXP.Message, _ MsgBoxStyle.Information, "Mensaje del Sistema")
Catch EXP As Exception
MsgBox("Error Nº" & EXP.Message, _ MsgBoxStyle.Information, "Mensaje del Sistema")
End Try
esta parece estar bien..por que no salta algun erro..muchas gracias..
Try
Dim cnSQL As SqlConnection = New SqlConnection SQL_CONNECTION_STRING)
Dim cmSQL As Data.SqlClient.SqlCommand = New SqlCommand("contenedor_vacio", cnSQL)
cmSQL.CommandType = CommandType.StoredProcedure
Dim monto As SqlParameter = cmSQL.Parameters.Add("@monto", SqlDbType.Int, 10)
monto.Direction = ParameterDirection.Input
monto.Value = 156
cnSQL.Open()
cmSQL.ExecuteNonQuery()
Catch EXP As SqlException
MsgBox("Error Nº " & EXP.Number & Chr(10) & EXP.Message, _ MsgBoxStyle.Information, "Mensaje del Sistema")
Catch EXP As Exception
MsgBox("Error Nº" & EXP.Message, _ MsgBoxStyle.Information, "Mensaje del Sistema")
End Try
esta parece estar bien..por que no salta algun erro..muchas gracias..
Valora esta pregunta


0