Error al buscar por Año!!!

[junior1920]

Hola nuevamente amigos aqui yo pidiendo nuevamente un poco de su ayuda para resolver este error estoy usando Sharpdevelop y sqlserver2005
La aplicación la estoy realizando en Capas y uso procedimientos almacenados:

Aqui la tabla:

Código SQL:

CREATE TABLE lugar_libreta_topograf(
codlugar INT IDENTITY PRIMARY KEY,
nombre VARCHAR(80),
descrilugar text
);
GO
CREATE TABLE libreta_topograf(
codigo INT IDENTITY PRIMARY KEY,
codigochar VARCHAR(10),
descripcion text,
tipo_obra VARCHAR(180),
sector VARCHAR(100) NOT NULL,
anno datetime NOT NULL,
codlugar INT 
CONSTRAINT fk_codlugar FOREIGN KEY(codlugar)
REFERENCES lugar_libreta_topograf(codlugar)
);
GO
 

Aqui el procedimiento buscar por año

Código SQL:

CREATE PROCEDURE likeanno_dat_lib_topograf
    @nanno INT,
    @msg AS VARCHAR(100) OUTPUT
AS
BEGIN
    SET NOCOUNT ON;
    BEGIN Tran likeanno
    BEGIN Try
        SELECT lt.codigo,lt.codigochar,
        lt.descripcion,lt.tipo_obra,lt.sector,lu.nombre,lt.anno
        FROM libreta_topograf lt INNER JOIN lugar_libreta_topograf lu
        ON lu.codlugar=lt.codlugar
        WHERE datepart(YEAR,lt.anno)= @nanno
        IF @@ROWCOUNT > 0
            BEGIN
                SET @msg = 'Si existen registros.'
            END
        ELSE
            BEGIN
                SET @msg = 'No existe registro.'
            END
        COMMIT TRAN likeanno
    END try
    BEGIN Catch
        SET @msg = 'Ocurrio un Error: ' + ERROR_MESSAGE() + ' en la línea ' + CONVERT(NVARCHAR(255), ERROR_LINE() ) + '.'
        ROLLBACK TRAN likeanno
    END Catch
END
GO
 

APLICACION
CAPA EntidadNegocio

--> Class LibretaTopografEN.vb

Código vb:

Public Class LibretaTopografEN 
    inherits LugarLibretaTopografEN
    Private gcodigo As Integer
    Private gcodigochar As String
    Private gdescripcion As String
    Private gtipo_obra As String
    Private gsector As String
    Private gcodlugar As Integer
    'private gnombre as String
    Private ganno As Date
    
    
    '----------------------------------
    Public Property codigo() As Integer
        Get
            return gcodigo
        End Get
        Set(ByVal value As Integer)
            gcodigo=value
        End Set
    End Property
    '----------------------------------
    '----------------------------------
    Public Property codigochar() As String
        Get
            return gcodigochar
        End Get
        Set(ByVal value As String)
            gcodigochar=value
        End Set
    End Property
    '----------------------------------
    '----------------------------------
    Public Property descripcion() As String
        Get
            return gdescripcion
        End Get
        Set(ByVal value As String)
            gdescripcion=value
        End Set
    End Property
    '----------------------------------
    '----------------------------------
    Public Property tipo_obra() As String
        Get
            return gtipo_obra
        End Get
        Set(ByVal value As String)
            gtipo_obra=value
        End Set
    End Property
    '----------------------------------
    '----------------------------------
    Public Property sector() As String
        Get
            return gsector
        End Get
        Set(ByVal value As String)
            gsector=value
        End Set
    End Property
    '----------------------------------
    '----------------------------------
    Public Property codlugar() As Integer
        Get
            return gcodlugar
        End Get
        Set(ByVal value As Integer)
            gcodlugar=value
        End Set
    End Property
    '----------------------------------
    '----------------------------------
    Public Property anno() As Date
        Get
            return ganno
        End Get
        Set(ByVal value As Date)
            ganno=value
        End Set
    End Property
    '----------------------------------
End Class
 

--> Class LugarLibretaTopografEN.vb

Código vb:

Public Class LugarLibretaTopografEN
    Private gcodlugar As Integer
    Private gnombre As String
    Private gdescrilugar As String
    
    
    '----------------------------------
    Public Property codlugar() As Integer
        Get
            return gcodlugar
        End Get
        Set(ByVal value As Integer)
            gcodlugar=value
        End Set
    End Property
    '----------------------------------
    '----------------------------------
    Public Property nombre() As String
        Get
            return gnombre
        End Get
        Set(ByVal value As String)
            gnombre=value
        End Set
    End Property
    '----------------------------------
    '----------------------------------
    Public Property descrilugar() As String
        Get
            return gdescrilugar
        End Get
        Set(ByVal value As String)
            gdescrilugar=value
        End Set
    End Property
    '----------------------------------
End Class
 

CAPA AccesoDatos

-->LibretaTopografAD.vb

Código vb:

Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports EntidadNegocio
Public Class LibretaTopografAD
    Private conn As New SqlConnection
    Private comando As New SqlCommand
    #Region "Cadena de conexion"
    Public Sub New()
        Dim Objconexion As New ConexionAD
        conn = Objconexion.abrir
        comando.Connection=conn
    End Sub
    #End Region
    #Region "Función convertir datos"
    Private Shared Function Convertirdatos(ByVal reader As IDataReader) As LibretaTopografEN
        Dim libreta As New LibretaTopografEN
 
        libreta.codigo = LTrim(RTrim(Convert.ToString(reader(0))))
        libreta.codigochar=LTrim(RTrim(Convert.ToString(reader(1))))
        libreta.descripcion = LTrim(RTrim(Convert.ToString(reader(2))))
        libreta.tipo_obra = LTrim(RTrim(Convert.ToString(reader(3))))
        libreta.sector = LTrim(RTrim(Convert.ToString(reader(4))))
        libreta.nombre = LTrim(RTrim(Convert.ToString(reader(5))))
        libreta.anno = LTrim(RTrim(convert.ToDateTime(reader(6))))
        Return libreta
    End Function
    #End Region
 #Region "Función Buscar por Año"
    Public Function buscarporanno(ByVal ObjLibretaTopografEN As LibretaTopografEN)As List(Of LibretaTopografEN)
        Dim list As New List(Of LibretaTopografEN)
        Dim reader As SqlDataReader
    Try
            Comando.CommandType=CommandType.StoredProcedure
            comando.CommandText="likeanno_dat_lib_topograf"
            Dim _anno As New SqlParameter("@nanno",SqlDbType.Int)
            _anno.Value=ObjLibretaTopografEN.anno
            _anno.Direction=ParameterDirection.Input
            comando.Parameters.Add(_anno)
            
            Dim _msg As New SqlParameter("@msg",SqlDbType.VarChar,100)
            _msg.Direction=ParameterDirection.Output
            comando.Parameters.Add(_msg)
            
            reader=comando.ExecuteReader()
'           Dim mensaje As String
'           mensaje=Convert.ToString(_msg.Value)
'           MsgBox(mensaje)
            While reader.Read
                Dim l As LibretaTopografEN=New LibretaTopografEN
                list.Add(Convertirdatos(reader))
            End While
            Return list
        
    Catch ex As Exception
        MsgBox(ex.Message, MsgBoxStyle.Critical,ex.Source)
    Finally
        conn.Close()
        conn.ClearAllPools()
        conn=Nothing
    End Try
    End Function
    #End Region
End Class
 

CAPA LOGICA DEL NEGOCIO

-->Clase LibretaTopografLN.vb

Código vb:

Imports AccesoDatos
imports EntidadNegocio
Public Class LibretaTopografLN
    private ObjLibretaTopografAD as LibretaTopografAD
    Public Sub New()
        ObjLibretaTopografAD= New LibretaTopografAD
    End Sub
#Region "Establecer conexion con la función Buscar por Año"
    Public Function buscarporanno(ByVal ObjLibretaTopografEN As LibretaTopografEN) As List(Of LibretaTopografEN)
        return ObjLibretaTopografAD.buscarporanno(ObjLibretaTopografEN)     
    End Function
    #End Region
 

CAPA PRESENTACIÓN

-->ListarLibretaTopografica.vb

Código vb:

Imports EntidadNegocio
Imports LogicaNegocio
Public Partial Class ListarLibretaTopografica
    Public Sub New()
        ' The Me.InitializeComponent call is required for Windows Forms designer support.
        Me.InitializeComponent()
        
        '
        ' TODO : Add constructor code after InitializeComponents
        '
    End Sub
    Private ObjLibretaTopografEN As LibretaTopografEN
    Private ObjLibretaTopografLN As LibretaTopografLN
 
    [B]'AQUI ESTA EL BOTON BUSCAR[/B]
 
    Sub BtnbuscarClick(sender As Object, e As EventArgs)
        If(txtbuscar.Text<>"")Then
            If(rbsector.Checked)Then
                Try
                    'rbAnno.Checked=False
                    ObjLibretaTopografEN=New LibretaTopografEN
                    ObjLibretaTopografLN=New LibretaTopografLN
                    ObjLibretaTopografEN.sector=LTrim(RTrim(txtbuscar.Text))
                    dgvlistlibretatopo.AutoGenerateColumns=False
                    formato()
                    dgvlistlibretatopo.DataSource= ObjLibretaTopografLN.buscarporsector(ObjLibretaTopografEN)
                Catch ex As Exception
                    MsgBox(ex.Message, MsgBoxStyle.Critical,ex.Source)
                End Try
            End If
            If(rbAnno.Checked)Then
                Try
                    rbsector.Checked=False
                    ObjLibretaTopografEN=New LibretaTopografEN
                    ObjLibretaTopografLN=New LibretaTopografLN
                    Dim a As Integer
                    a=txtbuscar.Text
                    ObjLibretaTopografEN.anno=LTrim(RTrim(a))
                    dgvlistlibretatopo.AutoGenerateColumns=False
                    formato()
                    dgvlistlibretatopo.DataSource= ObjLibretaTopografLN.buscarporanno(ObjLibretaTopografEN)
                Catch ex As Exception
                    MsgBox(ex.Message, MsgBoxStyle.Critical,ex.Source)
                End Try
            End If
        End If
    End Sub
    
End Class
 

Y EL ERROR QUE ME SALTA ES
La conversion de la cadena "2013" en el tipo date no es valida

[werab13]

Si tu procedimiento recibe como parámetro un entero deberías poner tu variable de ese tipo,
Private ganno As Date el valor "2013" no es de tipo date.

[drako_darpan]

Hola que tal, revisa que cuandoe estas leyendo el reader de la fecha, sea correcta la posicion 6.

Por que puedes estar leyendo la fecha 06/03/2013. Para mi, seria mejor leer por un Right(4)

[giovani_loera]

Saludos a todos

junior1920 la opcion que da drako_darpan es una una, pero pienso que la mejor manera seria convertiendo el dato en DateTime.

Y despues la propiedad de "Year". Seria algo asi, donde lees la info del resultado

Código vb:

libreta.anno = (Convert.ToDateTime(reader(6)).Year
 

Espero que te sirva.

[junior1920]

Iniciado por giovani_loera

Saludos a todos

junior1920 la opcion que da drako_darpan es una una, pero pienso que la mejor manera seria convertiendo el dato en DateTime.

Y despues la propiedad de "Year". Seria algo asi, donde lees la info del resultado

Código vb:

libreta.anno = (Convert.ToDateTime(reader(6)).Year
 

Espero que te sirva.

Estimada:
Te refires que deje ganno en tipo date y que desde la conversion haga :

Código vb:

libreta.anno = (Convert.ToDateTime(reader(6)).Year
 

me salta este error:

Código vb:

Un valor de tipo 'Integer' no se puede convertir en 'Date'. (BC30311)
 

umm pues no me funca una pista de como hacerlo...

[drako_darpan]

Hola que tal, el campo: libreta.anno ... Que tipo es?

[junior1920]

Iniciado por drako_darpan

Hola que tal, el campo: libreta.anno ... Que tipo es?

Es de tipo date

Código vb:

'----------------------------------
    Public Property anno() As Date
        Get
            return ganno
        End Get
        Set(ByVal value As Date)
            ganno=value
        End Set
    End Property
    '----------------------------------