SELECIONAR AS TRES MAIORES DATAS
Ola Galera!
Alguem sabe com fazer para seleciona as tres maiores datas em um banco de datos do Access via SQL, no VB 6?
Alguem sabe com fazer para seleciona as tres maiores datas em um banco de datos do Access via SQL, no VB 6?
datas do q? seje mais claro.
Por Exemplo:
To montando um cadastro de compra de produtos, e realizei varias compras do mesmo produto em datas diferentes. Gostaria de selecionar as tres ultimas compras?
To montando um cadastro de compra de produtos, e realizei varias compras do mesmo produto em datas diferentes. Gostaria de selecionar as tres ultimas compras?
Cara, eu fiz um gambiarra que literalmente da certo, mas acho feio isso e não sei onde jeito de fazer isso
dim auxiliar as single
dim antepenultimadata as date
ado.recordsource="Select * from tabela" order by data
ado.refresh
auxiliar = ado.recordset.recordcount
ado.recordset.movefirst
while ado.recordset.recordcount = auxiliar -3
ado.recordset.movenext
loop
antepenultimadata=ado.recordset.fields("campo de data do banco de dados")
ado.recordsource="select * from tabela where data >= #" & antepenultimadata & "#"
ado.refresh
T+ e fika com deus
dim auxiliar as single
dim antepenultimadata as date
ado.recordsource="Select * from tabela" order by data
ado.refresh
auxiliar = ado.recordset.recordcount
ado.recordset.movefirst
while ado.recordset.recordcount = auxiliar -3
ado.recordset.movenext
loop
antepenultimadata=ado.recordset.fields("campo de data do banco de dados")
ado.recordsource="select * from tabela where data >= #" & antepenultimadata & "#"
ado.refresh
T+ e fika com deus
Amigo,
Supondo que vc esteje utilizando um objeto data chamado Data1 no seu form use:
Data1.RecordSource = "Select top 3 * from SuaTabela Order By SeuCampoData Desc"
Data1.Refresh
Se quiser que separe os produtos use o código abaixo supondo que Text1 contenha o nome do produto pesquisado
Data1.RecordSource = "Select top 3 * from SuaTabela Where CampoCodOuNomeProduto Like '" & Text1.Text & "' Order By SeuCampoData Desc"
Data1.Refresh
Até mais
Supondo que vc esteje utilizando um objeto data chamado Data1 no seu form use:
Data1.RecordSource = "Select top 3 * from SuaTabela Order By SeuCampoData Desc"
Data1.Refresh
Se quiser que separe os produtos use o código abaixo supondo que Text1 contenha o nome do produto pesquisado
Data1.RecordSource = "Select top 3 * from SuaTabela Where CampoCodOuNomeProduto Like '" & Text1.Text & "' Order By SeuCampoData Desc"
Data1.Refresh
Até mais
[S71]Valeu Galera!!!!!!!!!!!
Simples é só usar o comando top
select top 3 data from tabela where condicao order by data desc
select top 3 data from tabela where condicao order by data desc
Tópico encerrado , respostas não são mais permitidas