B D / VB - Busca

[GGerminiani 0]

Galera,

 

é o seguinte... estou com dúvida com uma string para fazer busca no meu BD...

 

assim:

 

O meu Banco de dados, tem uma tablea, e um dos campos dessa tabela, tem um campo chamado DAT (DATA):

 

Nele, o campo eu criei DAT (como texto, que se refere a um data, quem está formatado para salvar assim = 09/02/2010).

 

o código:

 

VIS_BUS_S = "select * from Lancamentos_Alu where Lancamentos_Alu.dat = " & CmbDia.Text

Set VIS_ALU_R = VIS_BUS_D.OpenRecordset(VIS_BUS_S, dbOpenDynaset)

 

* A pessoa pode fazer a busca por DIA, MES, ANO ou DATA ESPECIFICA.

 

Mas aí que está a questão... se for pr data específica, BELEZA... mas existe algum comando como no VB, que eu coloco sei lá, DAY(dat.text), ou month ou year(date)...

 

Daí se existir eu pretendo fazer o seguinte:

 

VIS_BUS_S = "select * from Lancamentos_Alu where Lancamentos_Alu.day(dat) = " & CmbDia.Text

 

Ou algo que o valha...

 

alguem sabe de alguma alternativa?

 

Vlw

[Claudio Neto 3]

Existe e é exatamente como escrever:

day("03/09/2010") = 3
month("03/09/2010") = 9
year("03/09/2010") = 2010

Abraço.

[GGerminiani 0]

Existe e é exatamente como escrever:

day("03/09/2010") = 3
month("03/09/2010") = 9
year("03/09/2010") = 2010

Abraço.

 

Claudio, eu não entendi muito bem você pode me ajudar...

 

só deixe eu esclarecer....

 

na minha busca tem 4 OPTION BUTTONS: dia, mes, ano ou data especifica...

 

dai, dividi por 3 COMBOS (um para o dia - cmbdia [de 1 a 31], um para o mes cmbmes [janeiro a dezembro], e do ano cmbano... sei la 1999 a 2200 sei lá...)... [ os tres formam a data especifica caso seja escolhido]

 

bom.... eu pretendo fazer o seguinte:

 

caso o OPTION esteja para o dia: busque todos meus lançamentos no dia 5 (por exemplo)... dai como ficaria?

 

VIS_BUS_S = "select * from Lancamentos_Alu where Lancamentos_Alu.year(dat) = " & CmbDia.Text

 

???

 

Vlw

[Claudio Neto 3]

Você quase acertou, mas se vai querer pegar o dia, fica:

VIS_BUS_S = "select * from Lancamentos_Alu where Lancamentos_Alu.day(dat) = " & CmbDia.Text

e não:

VIS_BUS_S = "select * from Lancamentos_Alu where Lancamentos_Alu.year(dat) = " & CmbDia.Text

rs

[GGerminiani 0]

Você quase acertou, mas se vai querer pegar o dia, fica:

VIS_BUS_S = "select * from Lancamentos_Alu where Lancamentos_Alu.day(dat) = " & CmbDia.Text

e não:

VIS_BUS_S = "select * from Lancamentos_Alu where Lancamentos_Alu.year(dat) = " & CmbDia.Text

rs

 

Opa claúdio! então... não realmente coloquei Year, pois comecei as condições IF com CMBANO... mas então... ja tinha tentado isso dá o segu9inte erro:

Runtimer error " 3085':

função 'lancamentos.day' indefinida na expressão.

 

..??

[Claudio Neto 3]

Tá, desculpa.

 

lancamentos_Alu é o nome de sua tabela né, foi mal. O certo é assim:

VIS_BUS_S = "select * from Lancamentos_Alu where day(Lancamentos_Alu.dat) = " & CmbDia.Text

Tenta ai e veja se deu.

 

Abraço.