CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Consulta con consulta en SQL con visual BASIC

(1/1)

dubiweb:
Consulta  con consulta en SQL con visual BASIC  :wacko:  :wacko:  :wacko:  :blink:

Hola amigos ya llegue al punto de locura estoy trabajando con una consulta de rango de fechas y nada de nada que sale es para mi trabajo de la U y es para mañana en la tarde y ya no se que hacer por favor ayúdenme me urge.

Tengo una tabla que se llama “SanMiguelConsulta” es eta se almacenan datos temporales de consulta de dos tablas  una es SanMiguelCarga y la otra es SanMiguelMayorizado tengo que sacar recibos de ambas tablas que estén en un rango de fechas les coloco en código para que me den un mano gracias

Me.ObjDeConxCon = New SqlConnection(Me.cadConex)
        Me.ObjDeConxCon.Open()

        Dim ssql99 As String
        ssql99 = "Insert Into SanMiguelConsulta(NumeroRemesa, Procuraduria, Fecha, Valor, FechaDeRecibos, NReci1, ValorReci1, NReci2, ValorReci2, NReci3, ValorReci3, NReci4, ValorReci4, NReci5, ValorReci5, NotaAjuste, FechaAjuste, ValorAjuste, SumaComprueba, NomCliente, Comentarios) Select NumeroRemesa, Procuraduria, Fecha, Valor, FechaDeRecibos, NReci1, ValorReci1, NReci2, ValorReci2, NReci3, ValorReci3, NReci4, ValorReci4, NReci5, ValorReci5, NotaAjuste, FechaAjuste, ValorAjuste, SumaComprueba, NomCliente, Comentarios From SanMiguelCarga where convert(datetime, convert(CHAR(8), Fecha, 112)+'00:00:00') >= '" & CType(Me.DateTimePicker1.Text, DateTime) & "' And convert(datetime, convert(CHAR(8), Fecha, 112)+'23:59:59') <= '" & CType(Me.DateTimePicker2.Text, DateTime) & "' "
        Dim comnd99 As New SqlCommand(ssql99, Me.ObjDeConxCon)
        Dim result99 As Integer
        result99 = comnd99.ExecuteNonQuery

        Me.ObjDeConxCon.Close()



        Me.ObjDeConxCon = New SqlConnection(Me.cadConex)
        Me.ObjDeConxCon.Open()

        Dim sssql109 As String
        sssql109 = "Insert Into SanMiguelConsulta(NumeroRemesa, Procuraduria, Fecha, Valor, FechaDeRecibos, NReci1, ValorReci1, NReci2, ValorReci2, NReci3, ValorReci3, NReci4, ValorReci4, NReci5, ValorReci5, NotaAjuste, FechaAjuste, ValorAjuste, SumaComprueba, NomCliente, Comentarios) Select NumeroRemesa, Procuraduria, Fecha, Valor, FechaDeRecibos, NReci1, ValorReci1, NReci2, ValorReci2, NReci3, ValorReci3, NReci4, ValorReci4, NReci5, ValorReci5, NotaAjuste, FechaAjuste, ValorAjuste, SumaComprueba, NomCliente, Comentarios From SanMiguelMayorizado where convert(datetime, convert(CHAR(8), Fecha, 112)+'00:00:00') >= '" & CType(Me.DateTimePicker1.Text, DateTime) & "' And convert(datetime, convert(CHAR(8), Fecha, 112)+'23:59:59') <= '" & CType(Me.DateTimePicker2.Text, DateTime) & "' And convert(varchar, FechaDeRecibos, 130) < '" & CType(Me.DateTimePicker4.Text, DateTime) & "' "
        Dim comndx109 As New SqlCommand(sssql109, Me.ObjDeConxCon)
        Dim resultx109 As Integer
        resultx109 = comndx109.ExecuteNonQuery

        Me.ObjDeConxCon.Close()

F_Tanori:
Que tipo de dato es FECHA, que tienes que hacer un cast para corregir la hora?, puedes mostrar un poco de la estructura de tus tablas (tipos de datos) y datos , ademas de utilizar la opcion [code ] para colocar el codigo y sea mas legible
 
Para seleccionar una fecha basta con darle la fecha en el formato correcto (YYYY-MM-DD), formatea la variable desde el lenguaje y luego la colocas en la cadena SQL a ejecutar
 

--- Código: Text ---... WHERE  Fecha >= '2008-10-20' 

Saludos

dubiweb:
el tipo de dato de la fecha es datetime y que es cast? y gracias por tu ayuda

F_Tanori:

--- Cita de: "dubiweb" ---el tipo de dato de la fecha es datetime y que es cast? y gracias por tu ayuda
--- Fin de la cita ---

"Convertir de un tipo de dato a otro"
http://technet.microsoft.com/es-es/libr ... 87928.aspx

Para que lo haces?


--- Código: SQL ---CONVERT(datetime, CONVERT(CHAR(8), Fecha, 112)+'00:00:00') 
Puedes hacer la consulta perfectamente desde VB con el formato correcto
viewtopic.php?f=53&t=37219#p135554


Saludos

Navegación

[0] Índice de Mensajes