VB winform ↔ consulta segun textbox menos 1 mes

[damid3]

Wenas de nuevo

pues eso tengo un textbox (tbfecha) el tema es que muestre solo lo que hay entre 2 fechas la actual y un es antes hice este codigo

Código vb:

cmd.CommandText = "SELECT * FROM cajas where fecha>= 0000 LO QUE BUSCO 0000  and fecha<='" & tbfecha.Text & "' order by idcajas "
            cmd.CommandType = CommandType.Text
            cmd.Connection = conec.conectar2(uid, pwd)
            da.SelectCommand = cmd
            dt = New DataTable
            da = New MySql.Data.MySqlClient.MySqlDataAdapter(cmd)
            da.Fill(dt)
            dgv.DataSource = dt
            With (dgv)
                .MultiSelect = False
                .SelectionMode = DataGridViewSelectionMode.FullRowSelect
                .DataSource = dgv.DataSource
            End With
 

el tema es que no se como decirle que busque 1 mes menos

alguna idea ???

Desde ya muchas gracias como siempre

Saludos

[bookmaster]

Esta respuesta no es precisamente de VB, pero en vista de que estas usando MySQL como Base de datos, puedes meterle esta sentencia

Código:

WHERE DATE_SUB(CURDATE(),INTERVAL 30 DAY)

Con lo que la consulta se quedaría así:

Código mysql:

SELECT * FROM cajas WHERE DATE_SUB(CURDATE(),INTERVAL 30 DAY) <= fecha order by idcajas
 

En principio va a coger la fecha actual y te va a mostrar todos los registros en un intervalo de 30 días.

En el caso de querer especificarle tu una fecha en concreto tendrías que cambiar CURDATE() por la fecha en formato 'AAAA-MM-DD' con las comillas, por ejemplo '2012-12-01' y después jugar con la comparación '<=' para ajustarle si quieres un mes antes o un mes después.

Espero que te sirva.

[damid3]

si pero a ver la idea era que usara un campo de textbox con una fecha y que le restara 1 mes por eso visual basic

Perfecto muchas gracias me sirvió


Saludos y gracias

[bookmaster]

La fecha la puedes cambiar como te puse, Simplemente la cojes de un texbox y la inviertes
Este es un pequeño ejemplo de como hacerlo

Código vb:

Dim FechaInvertida As String = ""
Dim Separaciones() As String
Separaciones = Split(TextBox1.Text, "-") ' Aqui tienes que cambiar - por el simbolo que uses para separar la fecha
FechaInvertida = "'" & Separaciones(2) & "-" & Separaciones(1) & "-" & Separaciones(0) & "'"
 

Luego solo tienes que ponerlo de la siguiente manera

Código vb:

cmd.CommandText = "SELECT * FROM cajas WHERE DATE_SUB(" & FechaInvertida & ",INTERVAL 30 DAY) <= fecha ORDER BY idcajas"
 

Igual que puedes cambiar la fecha el intervalo también podrías sacarlo de algun campo que uses o variable.
Te dejo un enlace para que veas los intervalos de MySQL, para que puedas ajustar lo que te puse como mejor te convenga http://dev.mysql.com/doc/refman/5.0/...functions.html

Pero vamos que si te sirvió lo que te puse, me alegro jeje.

[damid3]

Perfecto era lo que buscaba

Saludos y gracias