CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: dubiweb en Viernes 24 de Octubre de 2008, 22:53
Título: Consulta con consulta en SQL con visual BASIC
Publicado por: dubiweb en Viernes 24 de Octubre de 2008, 22:53
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()
Título: Re: Consulta con consulta en SQL con visual BASIC
Publicado por: F_Tanori en Domingo 26 de Octubre de 2008, 01:54
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
Título: Re: Consulta con consulta en SQL con visual BASIC
Publicado por: dubiweb en Lunes 27 de Octubre de 2008, 15:43
el tipo de dato de la fecha es datetime y que es cast? y gracias por tu ayuda
Título: Re: Consulta con consulta en SQL con visual BASIC
Publicado por: F_Tanori en Miércoles 29 de Octubre de 2008, 13:38
Cita de: "dubiweb"
el tipo de dato de la fecha es datetime y que es cast? y gracias por tu ayuda
"Convertir de un tipo de dato a otro" http://technet.microsoft.com/es-es/libr ... 87928.aspx (http://technet.microsoft.com/es-es/library/ms187928.aspx" onclick="window.open(this.href);return false;)
Puedes hacer la consulta perfectamente desde VB con el formato correcto viewtopic.php?f=53&t=37219#p135554 (http://foros.solocodigo.com/viewtopic.php?f=53&t=37219#p135554" onclick="window.open(this.href);return false;)