[SOLUCIONADO] Duda respecto a consulta por fechas con DateTimePicker VB2008

[jessy_050909]

Bueno mi duda es la siguiente como realizar la consulta de los 2 BETWEEN en VB 2008 desde 4 datetimepicker
lo e intentado pero no me funciona me marca error supongo por el left join,
solo puedo realizar la consulta normal osea de 1 BETWEEN y 2 datetimepicker, mas no cuando deseo unir ambas consultas espero me peudan ayudar muchas gracias.

Código VISUAL:

With cmd
            .CommandType = CommandType.Text
            .CommandText = "Select NumCta,Nombre,SegNeg, SUM (periodo_pasado) AS Periodo_Pasado, SUM (Cargo) AS Cargo, SUM (Abono) AS Abono, Periodo_Pasado+Cargo-Abono AS SaldoFinal  from (Select NumCta,Nombre,SegNeg, SUM (periodo_pasado) AS Periodo_Pasado, SUM (Cargo) AS Cargo, SUM (Abono) AS Abono  from (select t1.Fecha,t1.NumCta,t1.Nombre,t1.SegNeg,t1.Cargo,t1.Abono,t1.Saldo_Inicial,t2.saldo_inicial periodo_pasado from(SELECT *FROM mi_vista WHERE Fecha BETWEEN '20120910' AND '20120930') as t1 left join(select NumCta,SegNeg,SUM(cargo) cargo ,SUM(abono) abono ,SUM(saldo_inicial) saldo_inicial from mi_vista WHERE Fecha BETWEEN '20121001' AND '20121007' group by NumCta,Nombre,SegNeg) as t2 on (t1.NumCta=t2.NumCta and t1.NumCta=t2.NumCta)) as completo group by NumCta,Nombre,SegNeg) as x group by NumCta,Nombre,SegNeg,Periodo_Pasado,Cargo,Abono"
            .Connection = cn
        End With
        da.SelectCommand = cmd
        da.Fill(dt)
        DataGridView1.DataSource = dt
 

[gnzsoloyo]

La verdad, me sorprendería que te funcionara, porque hay una muy mala aplicación del GROUP BY en casi todas las subconsultas. Y por otro lado hay cosas que sólo funcionarían en MySQL, pero no en Oracle ni SQL Server.

Código SQL:

SELECT 
    NumCta, Nombre, SegNeg, 
    SUM (periodo_pasado) Periodo_Pasado, 
    SUM (Cargo) Cargo, 
    SUM (Abono) Abono, 
    (Periodo_Pasado+Cargo-Abono) SaldoFinal  
FROM 
    (SELECT NumCta, Nombre, SegNeg, 
            SUM (periodo_pasado) AS Periodo_Pasado, 
            SUM (Cargo) AS Cargo, 
            SUM (Abono) AS Abono  
    FROM  
        (SELECT 
            t1.Fecha,t1.NumCta,t1.Nombre,t1.SegNeg,t1.Cargo,t1.Abono,
            t1.Saldo_Inicial,t2.saldo_inicial periodo_pasado 
        FROM
            (SELECT *
            FROM mi_vista 
            WHERE Fecha BETWEEN '20120910' AND '20120930') t1 
            LEFT JOIN 
            (SELECT 
                NumCta,
                SegNeg, 
                SUM(cargo) cargo , 
                SUM(abono) abono , 
                SUM(saldo_inicial) saldo_inicial 
            FROM mi_vista 
            WHERE Fecha BETWEEN '20121001' AND '20121007' 
            GROUP BY NumCta,Nombre,SegNeg) t2 
                ON (t1.NumCta=t2.NumCta AND t1.NumCta=t2.NumCta)
        ) completo 
    GROUP BY NumCta,Nombre,SegNeg) x 
GROUP BY NumCta, Nombre, SegNeg, Periodo_Pasado, Cargo, Abono
 

En la consulta mayor no puedes poner Cargo y Abono en el GROUP BY porque están afectadas por funciones agregadas. No se sabe de donde surge "Nombre" en otras, y no puedes invocar en esa clausula columnas que no estén en el SELECT (salvo en MySQL).
Además de eso, me parece una consulta demasiado complicada. Ni siquiera estoy muy seguro de qué es lo que calcula.
¿Qué motor de base de datos estás usando?

[jessy_050909]

mira a si quedaria mi consulta en VISUAL y si me funciona y si me trae lo que deseo el detalle es que deseo filtrar por fechas con un datetimepicker pero tengo 4 entonces no e visto en internet ningun ejemplo ni nada relacionado y si me funciona con 2 claro por que tengo otras consultas pero en esta no tengo idea como hacer funcionar el datetimepicker igual acomodado de esta forma se entiende mas y lo que tu me dices ammm pues igual solo lo cambio pero con tal de que me funcionen los datetimepicker

.CommandText = "Select NumCta,Nombre,SegNeg, SUM (periodo_pasado) AS Periodo_Pasado, SUM (Cargo) AS Cargo, SUM (Abono) AS Abono, Periodo_Pasado+Cargo-Abono AS SaldoFinal from (Select NumCta,Nombre,SegNeg, SUM (periodo_pasado) AS Periodo_Pasado, SUM (Cargo) AS Cargo, SUM (Abono) AS Abono from (select t1.Fecha,t1.NumCta,t1.Nombre,t1.SegNeg,t1.Cargo,t1 .Abono,t1.Saldo_Inicial,t2.saldo_inicial periodo_pasado from(SELECT *FROM mi_vista WHERE Fecha BETWEEN '20120910' AND '20120930') as t1 left join(select NumCta,SegNeg,SUM(cargo) cargo ,SUM(abono) abono ,SUM(saldo_inicial) saldo_inicial from mi_vista WHERE Fecha BETWEEN '20121001' AND '20121007' group by NumCta,Nombre,SegNeg) as t2 on (t1.NumCta=t2.NumCta and t1.NumCta=t2.NumCta)) as completo group by NumCta,Nombre,SegNeg) as x group by NumCta,Nombre,SegNeg,Periodo_Pasado,Cargo,Abono"

[gnzsoloyo]

¿A qué le estás llamando "VISUAL"?
Por otro lado, la pregunta subsiste: ¿Qué base de datos usas?
En cuanto a tu problema de los DateTimePicker, la cosa es parametrizar la consulta, y dejar que sea la librería de conexión la que resuelva el formato de datos. Es algo medio de manual.
Pero para darte un ejemplo concreto, necesitaría que me digas qué estás usando, porque no veo en lo poco que has posteado de código, ninguna indicación de contra cuál DBMS estás trabajando.

Finalmente, mira, la consulta que dices que te funciona contiene esto (si omito el contenido del FROM):

Código SQL:

SELECT 
    NumCta, 
    Nombre, 
    SegNeg, 
    SUM (periodo_pasado) AS Periodo_Pasado, 
    SUM (Cargo) AS Cargo, 
    SUM (Abono) AS Abono, 
    Periodo_Pasado+Cargo-Abono AS SaldoFinal 
FROM 
    (...) AS x 
GROUP BY 
    NumCta, 
    Nombre, 
    SegNeg, 
    Periodo_Pasado, 
    Cargo, 
    Abono
 

Los tres campos finales (Periodo_Pasado, Cargo, Abono), son resultados de funciones agregadas, y ninguno de todos los DBMS que yo conozco permite aplicar el GROUP BY sobre columnas del SELECT donde hay funciones. Ninguno.
Si no me crees, lee los manuales de referencia.
Por eso es que te digo que me sorprendería que funcionara.

Ordenar, si funciona, pero agrupar... agrupar no.

[jessy_050909]

Oki ahorita me pondre a leer pero solo le dejo lo que tenia y lo que hice :D y disculpeme por no tener la calidad correcta :/ aun estoy estudiando y pues hago muchas locuras XD igual mi lojica no es la mejor y se que no trata de que me salio :$

Código vb:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'BDReportesDataSet.mi_vista' table. You can move, or remove it, as needed.
        Me.Mi_vistaTableAdapter.Fill(Me.BDReportesDataSet.mi_vista)
 
 
        Dim da As New SqlDataAdapter
        Dim cmd As New SqlCommand
        Dim Servidor As String = "USUARIO-PC\SQL2008R2"
        Dim BaseDatos As String = "BDReportes"
        Dim cn As New SqlConnection("Data Source=" & Servidor & ";Initial Catalog=" & BaseDatos & ";Integrated Security=SSPI;")
        Dim dt As New DataTable
        With cmd
            .CommandType = CommandType.Text
            .CommandText = "Select NumCta,Nombre,SegNeg, SUM (periodo_pasado) AS Periodo_Pasado, SUM (Cargo) AS Cargo, SUM (Abono) AS Abono, Periodo_Pasado+Cargo-Abono AS SaldoFinal  from (Select NumCta,Nombre,SegNeg, SUM (periodo_pasado) AS Periodo_Pasado, SUM (Cargo) AS Cargo, SUM (Abono) AS Abono  from (select t1.Fecha,t1.NumCta,t1.Nombre,t1.SegNeg,t1.Cargo,t1.Abono,t1.Saldo_Inicial,t2.saldo_inicial periodo_pasado from(SELECT *FROM mi_vista WHERE Fecha BETWEEN '20120910' AND '20120930') as t1 left join(select NumCta,SegNeg,SUM(cargo) cargo ,SUM(abono) abono ,SUM(saldo_inicial) saldo_inicial from mi_vista WHERE Fecha BETWEEN '20121001' AND '20121007' group by NumCta,Nombre,SegNeg) as t2 on (t1.NumCta=t2.NumCta and t1.NumCta=t2.NumCta)) as completo group by NumCta,Nombre,SegNeg) as x group by NumCta,Nombre,SegNeg,Periodo_Pasado,Cargo,Abono"
            .Connection = cn
        End With
        da.SelectCommand = cmd
        da.Fill(dt)
        DataGridView1.DataSource = dt
 
    End Sub
 

LO QUE HICE

Código vb:

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim da As New SqlDataAdapter
        Dim cmd As New SqlCommand
        Dim Servidor As String = "USUARIO-PC\SQL2008R2"
        Dim BaseDatos As String = "BDReportes"
        Dim cn As New SqlConnection("Data Source=" & Servidor & ";Initial Catalog=" & BaseDatos & ";Integrated Security=SSPI;")
        Dim dt As New DataTable
 
        Dim TxtfechaIni As Date
        Dim TxtfechaFin As Date
        Dim TxtfechaIni2 As Date
        Dim TxtfechaFin2 As Date
 
        With cmd
            .CommandType = CommandType.Text
            .CommandText = "Select NumCta,Nombre, SUM (periodo_pasado) AS Periodo_Pasado, SUM (Cargo) AS Cargo, SUM (Abono) AS Abono, Periodo_Pasado+Cargo-Abono AS SaldoFinal  from (Select NumCta,Nombre,SegNeg, SUM (periodo_pasado) AS Periodo_Pasado, SUM (Cargo) AS Cargo, SUM (Abono) AS Abono  from (select t1.Fecha,t1.NumCta,t1.Nombre,t1.SegNeg,t1.Cargo,t1.Abono,t1.Saldo_Inicial,t2.saldo_inicial periodo_pasado from(SELECT *FROM mi_vista  WHERE Fecha " & _
        "BETWEEN #" & Format(CDate(TxtfechaIni), "dd/MM/yyyy") & "#" & _
        "AND #" & Format(CDate(TxtfechaFin), "dd/MM/yyyy") & "#" & _
        ")as t1 left join" & _
        "(select NumCta,SegNeg,SUM(cargo) cargo ,SUM(abono) abono ,SUM(saldo_inicial) saldo_inicial from mi_vista WHERE Fecha" & _
        "BETWEEN #" & Format(CDate(TxtfechaIni2), "dd/MM/yyyy") & "#" & _
        "AND #" & Format(CDate(TxtfechaFin2), "dd/MM/yyyy") & "#" & _
        "Group by termino NumCta,Nombre,Periodo_Pasado,Cargo,Abono" & _
        ") as t2 on (t1.NumCta=t2.NumCta and t1.NumCta=t2.NumCta)" & _
        ") as completo group by NumCta,Nombre,SegNeg" & _
        ") as x group by NumCta,Nombre,Periodo_Pasado,Cargo,Abono"
 
            .Connection = cn
        End With
        da.SelectCommand = cmd
        da.Fill(dt)
        DataGridView1.DataSource = dt
    End Sub
 

Pero sigo trabajando en ello....

[gnzsoloyo]

Ahora se entiende un poco mejor. Siempre es preferible que postees los códigos sin abreviarlos, porque de lo contrario no podemos ver lo que realmente estás haciendo.
Bueno, estás usando la clase SqlCommand, y esta tiene una propiedad denominada Paremeters, que se usa para lo que te digo: insertar directamente los datos en su formato nativo, con lo cual no tienes que hacer ninguna conversión que pueda acusar errores si no está correctamente hecha.
En el manual de referencia on-line tendrás un claro ejemplo del uso de los parametros en un objeto SqlCommand: http://msdn.microsoft.com/es-es/libr...code-snippet-1

Este es el ejemplo que tiene esa págica, como para que lo vayas viendo:

Código vb:

Private Sub UpdateDemographics(ByVal customerID As Integer, _
    ByVal demoXml As String, _
    ByVal connectionString As String)
 
    ' Update the demographics for a store, which is stored 
    ' in an xml column.
    Dim commandText As String = _
     "UPDATE Sales.Store SET Demographics = @demographics " _
     & "WHERE CustomerID = @ID;"
 
    Using connection As New SqlConnection(connectionString)
        Dim command As New SqlCommand(commandText, connection)
 
        ' Add CustomerID parameter for WHERE clause.
        command.Parameters.Add("@ID", SqlDbType.Int)
        command.Parameters("@ID").Value = customerID
 
        ' Use AddWithValue to assign Demographics.
        ' SQL Server will implicitly convert strings into XML.
        command.Parameters.AddWithValue("@demographics", demoXml)
 
        Try
            connection.Open()
            Dim rowsAffected As Integer = command.ExecuteNonQuery()
            Console.WriteLine("RowsAffected: {0}", rowsAffected)
 
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Using
End Sub
 

En este caso lo único que debes hacer es insertar en donde van los parámetros la propiedad Value del DateTimePicker (ver manual de referencia también: http://msdn.microsoft.com/en-us/libr...vs.110%29.aspx)
Fuera de eso, siempre conviene hacer una prueba manual en la base de datos con la consulta real, y con datos reales, a fin de depurar los aspectos del SQL. Te lo recomiendo. En esencia es escribir en la interfaz de SQL Server la query tal y como la usarás en la aplicación, reemplazando los parámetros por valores reales y probar que no falle.
Recién después de esa prueba (o las correcciones necesarias), la copias y la usas en el programa.

Respecto a las limitaciones del GROUP BY, también es mejor consultar el manual de referencia antes que nada: http://technet.microsoft.com/es-es/l.../ms177673.aspx

[jessy_050909]

gracias seguire trabajando en ello :D no sea enojon D: D: D: D: D:

[jessy_050909]

Listo ya quedo solucionado :3