buenas tardes amigos,

tengo el siguiente procedimiento almacenado en sql server 2005:

create procedure Seleccionar_Area
@AreaAfectada nvarchar(25)
as
begin
select IDNC,Estado,AreaAfectada,Origen,TipoNC,Fecha,Nombr e,Descripcion from NoConformidad
Where AreaAfectada=@AreaAfectada and Estado = 'Abierto'
end
go
exec Seleccionar_Area 'Depto. Legal'
go

selecciono todo los campos de la tabla noconformidad cuando el estado este abierto y el area afectada sea igual a la ingresada.

en visual tengo un formulario con un combobox, el cual me permite seleccionar el area seleccionada y un datagriedview el cual se carga al ser seleccionado mi combobox.

el problema esta en el codigo de mi clase conexion, esta me permite conectar mi programa con la BD.

Public Function Seleccionar_Area() As List(Of CDatosNC)
Try
Dim Comando As New SqlCommand

With Comando
.CommandText = "Seleccionar_Area"
.CommandType = CommandType.StoredProcedure
.Connection = _conexion
End With
Dim Lista As New List(Of CDatosNC)
Dim Reader As SqlDataReader
_conexion.Open()
Reader = Comando.ExecuteReader
While Reader.Read()
Dim datos As New CDatosNC
Datos.IDNC = Reader.GetInt32(0)
Datos.Estado = Reader.GetSqlString(1)
Datos.AreaAfectada = Reader.GetSqlString(2)
Datos.Origen = Reader.GetSqlString(3)
Datos.TipoNoConformidad = Reader.GetSqlString(4)
Datos.Fecha = Reader.GetSqlString(5)
Datos.Nombre = Reader.GetSqlString(6)
datos.Descripcion = Reader.GetSqlString(7)
Lista.Add(Datos)
End While
Return Lista
Catch ex As Exception
Return New List(Of CDatosNC)()
Finally
If _conexion.State = ConnectionState.Open Then
_conexion.Close()
End If
End Try
End Function

este codigo corresponde a lo que estoy tratando de hacer, pero al depurarlo me tira un error de sqlexception pidiendome el parametro area afectada.

espero puedan ayudarme e indicarme donde esta el error para solucionarlo.

de antemano, muchisimas gracias!

Saludos:

Debes revisar cada parametro que el store procedure requere y que estos, en tiempo de ejecucion, NO SEAN "Nothing" o "NULL" o "Empty".

Usa el depurador para ver cual de los parametros que pasas esta vacio.

Espero ayude.


JOSE LUIS

El compañero Jose Luis ha señalado acertadamente que en efecto no estás pasando un parametro al procedimiento almacenado. En la definicion de procedemiento puedo ver que tiene un parámetro requerido llamado @AreaAfectada, por tanto al invocarlo desde el programa debes pasarle un valora a este parametro.
Acá presento una alternativa a tu código.

Código:

Public Function Seleccionar_Area(byval miAreaAfectada as String) As List(Of CDatosNC)
Try
Dim Comando As New SqlCommand

With Comando
	.CommandText = "Seleccionar_Area"
	.CommandType = CommandType.StoredProcedure
	.Connection = _conexion
'Definición del parametro
         .Parameters.Add("@AreaAfectada", SqlDbType.NVarChar, 25)
         .Parameters("@AreaAfectada").Direction = ParameterDirection.Input
'Asignacion de valor al parametro
         If String.IsNullOrEmpty(miAreaAfectada.Trim) Then
              .Parameters("@AreaAfectada").Value = DBNull.Value
          Else
              .Parameters("@AreaAfectada").Value = miAreaAfectada.Trim
          End If
End With
'Aca va el resto de tu código
End Function

Public Function Get_Problemas() As List(Of CDatosNC)
Try
Dim Datos As New CDatosNC()
Dim Comando As New SqlCommand
Dim Id_Depto As New SqlParameter("@Id_Depto", Datos.IDDepto)
With Comando
.CommandText = "Get_Problemas"
.CommandType = CommandType.StoredProcedure
.Connection = _conexion
.Parameters.Add(Id_Depto)
End With
Dim Lista As New List(Of CDatosNC)
Dim Reader As SqlDataReader
_conexion.Open()
Reader = Comando.ExecuteReader
While Reader.Read()
Datos.Depto = Reader.GetString(0)
Datos.EstadoNC = Reader.GetString(1)
Datos.OrigenNC = Reader.GetSqlString(2)
Datos.TipoNC = Reader.GetString(3)
Datos.Nombre = Reader.GetString(4)
Datos.FechaIngreso = Reader.GetString(5)
Datos.DescripcionNC = Reader.GetString(6)
Lista.Add(Datos)
End While
Return Lista
Catch ex As Exception
Return New List(Of CDatosNC)()
Finally
If _conexion.State = ConnectionState.Open Then
_conexion.Close()
End If
End Try
End Function

-------------------------------------------------------------

create procedure Get_Problemas
@Id_Depto int
as
begin
select Nombre_Depto as Departamento,Estado,Origen,TipoNoConformidad,
Nom_Persona as Nombre,Fecha,Descripcion from tbl_prm_NoConformidad
inner join tbl_prm_EstadoSolicitud on tbl_prm_NoConformidad.Id_Estado=tbl_prm_EstadoSoli citud.Id_Estado
inner join tbl_prm_Departamentos on tbl_prm_NoConformidad.Id_Depto=tbl_prm_Departament os.Id_Depto
inner join tbl_prm_Origen on tbl_prm_NoConformidad.Id_Origen=tbl_prm_Origen.Id_ Origen
inner join tbl_prm_TipoNC on tbl_prm_NoConformidad.Id_TipoNC=tbl_prm_TipoNC.Id_ TipoNC
where tbl_prm_NoConformidad.Id_Depto=@Id_Depto
end

--------------------------------------------------------------------------------------------------------

mi consulta es la siguiente, en la funcion en visual .net al entrar al while se queda alli infinitamente (loop)
y no se como solucionarlo. espero puedan ayudarme

PD: agrege el SP por si hay algun error.

cualquier ayuda sera agradecida de antemano!

Cuantos registros t devuelve la consulta del store.??

todos los que estén asociados al departamentos