Consulta con consulta en SQL con visual BASIC
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()
