none
consulta datetimepicker y access RRS feed

  • Pregunta

  • hola amigos !! espero me puedan ayudar ya que soy nuevo en esta plataforma , bueeeeeeeno vamos al grano dijo el dermatologo xD....

    tengo un formulario en el cual hago una consulta que consiste en mostrarme el total de tarjeta de credito(textbox3) utlizando la fecha actual o pasada (datetimepicker1) pero al momento de correr el programa me da error . les dejo el codigo

    Public Class FormCierre
        Dim conexion As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source =C:\Users\Edgar\Desktop\UJCM\proyecto freeline\freeline\freeline_2017\freelinebd.mdb")

        Private Sub FormCierre_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            
        End Sub

        Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
            
        End Sub

        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            'DateTimePicker1.CustomFormat = "dd/MM/yyyy"
            'DateTimePicker1.Format = DateTimePickerFormat.Custom
            Dim da As New OleDbDataAdapter
            da.SelectCommand = New OleDbCommand("SELECT * FROM venta_diaria where f_venta = '" & Format(DateTimePicker1.Value, "dd-MM-yyyy") & "'", conexion)

            Dim ds As DataSet
            ds = New DataSet
            ds.Tables.Add("venta_diaria")
            da.Fill(ds.Tables("venta_diaria"))
            TextBox3.DataBindings.Add("text", ds.Tables("venta_diaria"), "total")
        End Sub

    gracias de antemano

    martes, 26 de diciembre de 2017 22:46

Respuestas

  • Hola gemiragde

    ¿Podrías por favor colocar el mensaje de error que te sale al momento de compilar la aplicación?  de esta manera será más sencilla de darte una posible solución.

    Quedamos atentos de cualquier actualización de su parte.

    Saludos Cordiales.

    Gracias por usar los foros de MSDN.

    Pablo Rubio
     _____

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft.  

    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.

    • Marcado como respuesta gemiragde miércoles, 27 de diciembre de 2017 17:53
    miércoles, 27 de diciembre de 2017 17:35
  • Hola:
    Si lo que quieres es mostrar 1 dato, tendrias que ejecutar executescalar de un comando.
    Algo parecido a esto

            Try
                Dim lsQuery As String="SELECT SUM(total) as total FROM venta_diaria where f_venta = @fecha and tipo_pago = 'TARJETA DE CREDITO'"
                Using loConexion As New OleDbConnection(TU_CADENA_DE_CONEXION)
                    loConexion.Open()
                    Using loComando As New OleDbCommand(lsQuery, loConexion)
                        'añadir parametro al comando
                        loComando.Parameters.Add(New OleDbParameter("@fecha", DateTimePicker2.Value.Date))
                         TextBox3.Text = CStr(loComando.ExecuteScalar())
                    End Using
                End Using
            Catch ex As Exception
                MessageBox.Show(ex.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End Try

    Un saludo desde Bilbo
    Carlos
    • Marcado como respuesta gemiragde miércoles, 27 de diciembre de 2017 20:36
    miércoles, 27 de diciembre de 2017 18:48

Todas las respuestas

  • Hola gemiragde

    ¿Podrías por favor colocar el mensaje de error que te sale al momento de compilar la aplicación?  de esta manera será más sencilla de darte una posible solución.

    Quedamos atentos de cualquier actualización de su parte.

    Saludos Cordiales.

    Gracias por usar los foros de MSDN.

    Pablo Rubio
     _____

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft.  

    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.

    • Marcado como respuesta gemiragde miércoles, 27 de diciembre de 2017 17:53
    miércoles, 27 de diciembre de 2017 17:35
  • gracias por responder ! pude solucionar mi problema aunque de igual manera compartiré el código con la solución y tal vez halla una manera mas eficiente de hacerlo.

    Private Sub ConTarCredito()
            Dim cmd As OleDbCommand = New OleDbCommand("SELECT SUM(total) as total FROM venta_diaria where f_venta = @fecha and tipo_pago = 'TARJETA DE CREDITO'", conexion)
            cmd.Parameters.AddWithValue("@fecha", DateTimePicker2.Value.Date)

            Dim da As New OleDbDataAdapter(cmd)
            Dim dt As New DataTable
            Dim ds As DataSet
            ds = New DataSet
            ds.Tables.Add("venta_diaria")
            da.Fill(ds.Tables("venta_diaria"))
            TextBox3.DataBindings.Add("text", ds.Tables("venta_diaria"), "total")
        End Sub

    lo que hace es mostrar en un textbox el total de ventas de una fecha dada y en donde el tipo de pago sea "tarjeta de credito"


    miércoles, 27 de diciembre de 2017 17:53
  • Hola:
    Si lo que quieres es mostrar 1 dato, tendrias que ejecutar executescalar de un comando.
    Algo parecido a esto

            Try
                Dim lsQuery As String="SELECT SUM(total) as total FROM venta_diaria where f_venta = @fecha and tipo_pago = 'TARJETA DE CREDITO'"
                Using loConexion As New OleDbConnection(TU_CADENA_DE_CONEXION)
                    loConexion.Open()
                    Using loComando As New OleDbCommand(lsQuery, loConexion)
                        'añadir parametro al comando
                        loComando.Parameters.Add(New OleDbParameter("@fecha", DateTimePicker2.Value.Date))
                         TextBox3.Text = CStr(loComando.ExecuteScalar())
                    End Using
                End Using
            Catch ex As Exception
                MessageBox.Show(ex.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End Try

    Un saludo desde Bilbo
    Carlos
    • Marcado como respuesta gemiragde miércoles, 27 de diciembre de 2017 20:36
    miércoles, 27 de diciembre de 2017 18:48