CONSULTA DE DATAS NO MYSQL

ADHEL 09/02/2010 12:27:29
#333996
Boa tarde
Tinha um pequeno projeto em access e resolvi aprender mysql.
Estou passando tudo para mysql desse projeto
A minha dúvida é em relação a consultas de datas ,estou utilizando dois datapickers.
Qdo pesquiso simplesmente não aparece os dados.Vou postar o código.

Private Sub cmdPesquisar_Click()
Dim i As Integer
Dim soma As Currency




Set rsO = CONEXAO.Execute([Ô]SELECT * FROM orcamentos WHERE dataorc BETWEEN [Ô] & Format(DTPicker1, [Ô]mm/dd/yyyy[Ô]) & [Ô] And [Ô] & Format(DTPicker2, [Ô]mm/dd/yyyy[Ô]) & [Ô][Ô])


With gridservicos
.Clear
.Cols = 4
.Rows = 1


gridservicos.TextMatrix(0, 1) = [Ô]DATA[Ô]
gridservicos.TextMatrix(0, 2) = [Ô]CLIENTE[Ô]
gridservicos.TextMatrix(0, 3) = [Ô]VALOR[Ô]




.ColWidth(0) = 200
.ColWidth(1) = 1400
.ColWidth(2) = 5600
.ColWidth(3) = 2000



Do While Not rsO.EOF
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 1) = Format(rsO!Dataorc, [Ô]dd/mm/yyyy[Ô])
.TextMatrix(.Rows - 1, 2) = rsO!Clientes & [Ô][Ô]
.TextMatrix(.Rows - 1, 3) = Format(rsO!Total, [Ô]Currency[Ô])
rsO.MoveNext

Loop

End With

For i = 1 To gridservicos.Rows - 1
soma = soma + CCur(gridservicos.TextMatrix(i, 3))
Next i
txtTotal = soma
txtTotal = Format(txtTotal, [Ô]Currency[Ô])

rsO.Close


OBRIGADO A TODOS
SINKERTEC 09/02/2010 12:37:07
#334000


Cara...n falta uma propriedade tipo Text ou value nesses DataPicker n?
MARCELO.TREZE 09/02/2010 13:16:07
#334007 Resposta escolhida
colega no mysql proceda assim

Set rsO = CONEXAO.Execute([Ô]SELECT * FROM orcamentos WHERE dataorc BETWEEN [ô][Ô] & Format(DTPicker1, [Ô]YYYY-MM-DD[Ô]) & [Ô][ô] And [ô][Ô] & Format(DTPicker2, [Ô]YYYY-MM-DD[Ô]) & [Ô][ô][Ô])


lembrando que se irá funcionar se vc tiver definido o campo como data/hora
ADHEL 09/02/2010 13:44:03
#334010
MARCELO fico te devendo mais essa
muito obrigado.
O meu campo tb não estava com data/hora
Tópico encerrado , respostas não são mais permitidas
Voltar