FILTRAR DATAS
Tenho um form com 2 msk
mskInicial e msk Final
e um datagrid onde onde é carregado com os dados. e tb um cmdFiltrar
Como fazer esse filtro, com criterio de data inicial e data final e retorar somente esses registros no grid ?
mskInicial e msk Final
e um datagrid onde onde é carregado com os dados. e tb um cmdFiltrar
Como fazer esse filtro, com criterio de data inicial e data final e retorar somente esses registros no grid ?
a tabela é em access e tem tambem um campo chamado produto
Acess
MySQL / Oracle
select * from tabela where datainicio between #[Ô] & Format(txtIni.Value, [Ô]mm/dd/yyyy[Ô]) & [Ô]# and #[Ô] & Format(txtFim.Value, [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô]
MySQL / Oracle
select * from tabela where datainicio between [ô][Ô] & Format(txtini.Value, [Ô]yyyy-mm-dd[Ô]) & [Ô][ô] And [ô][Ô] & Format(txtfim.Value, [Ô]yyyy-mm-dd[Ô]) & [Ô][ô][Ô]
select * from tabela1 where DataInicial between #[Ô] & Format(mskInicial.Value, [Ô]mm/dd/yyyy[Ô]) & [Ô]# and #[Ô] & Format(mskFinal.Value, [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô]
essa linha esta aparecendo em vermelho no vb, e não ta filtrando, fiz os ajustes
essa linha esta aparecendo em vermelho no vb, e não ta filtrando, fiz os ajustes
Segue o Projeto com script
Script:
Script:
Private Sub cmdFiltrar_Click()
Dim sFT As String
Dim DTI As Variant, DTF As Variant
DTI = Format(mskInicial.Text, [Ô]YYYY-MM-DD[Ô])
DTF = Format(mskFinal.Text, [Ô]YYYY-MM-DD[Ô])
sFT = [Ô]SELECT * FROM Tabela1 WHERE Lançamento BETWEEN #[Ô] & DTI & [Ô]# AND #[Ô] & DTF & [Ô]#[Ô]
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open sFT, conex, adOpenKeyset, adLockOptimistic
Set Grid.DataSource = rs
Grid.Refresh
End Sub
Tópico encerrado , respostas não são mais permitidas