Contar datos de una tabla en SQL Server 2008 que cumplan con la condición si son menor a la 'fecha actual'

13:44 Desarrollo 0


Sólo será necesario crear un módulo y mandarlo llamar desde el control en el que queremos que haga la acción
En este módulo hace la conxion a la BD de SQL Server 2008

'Sentencia para llamar a la Base de Datos SQL

Imports System.Data.SqlClient

Sólo al inicio del código añadirle la sentencia que nos indica que se utilizará SQL

En el siguiente ejemplo nos cuenta los registros de NUESTRA_COLUMNA donde se ubica una fecha y cuenta los que cumplen con la condición de que la fecha es MENOR a la fecha actual. 

n es nuestra variable que almacenará el conteo total

El formato de la COLUMNA tiene que ser de tipo Date en SQL Server 2008

Creamos el Módulo:

Sub MODULO ()

        Dim cnn As SqlConnection= Nothing
        Dim cmd As SqlCommand= Nothing

        Try

            DimENTREGÓ As Date= CDate(Equipo_en_uso.timeboxfecha.Value)
            ENTREGÓ = Strings.Left(Equipo_en_uso.timeboxfecha.Value, 10)

            cnn = NewSqlConnection("Data Source=NUESTRO_SERVIDOR_SQL;Initial Catalog=NUESTRA_BASE_DE_DATOS;Integrated Security=True")
            Dim CadenaConsultaContar As String = "SELECT Count(NUESTRA_COLUMNA) As Cantidad FROM NUESTRA_TABLA WHERE  NUESTRA_COLUMNA <'" & DateTime.Now.Date & "' "

            cmd = New SqlCommand(CadenaConsultaContar, cnn)
            cmd.CommandType = CommandType.Text

            cnn.Open()

            Dimn As Integer
            n = CInt(cmd.ExecuteScalar())

            Me.LABEL1.Text = "Número de filas: " & n
            '    LabelStatus.Text = "Número de filas: " & n

        Catch ex As Exception
            LABEL1.Text = "Error: " & ex.Message
        Finally
            Ifcnn IsNot NothingAndAlso cnn.State <> ConnectionState.Closed Then
                cnn.Close()
            EndIf
        End Try


    End Sub


LLAMAMOS NUESTRO MODULO DESDE EL BUTTON1:

Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


MODULO ()

End Sub

0 comentarios:

Suscribirse a: Enviar comentarios (Atom)