ERRO NA CONSULTA COM DATA

COQUITO 15/04/2016 10:04:26
#460964
pessoal preciso de ajuda
esta aparecendo este erro conforme a imagem

será que esta errado o modo de consulta?
   Dim sql As String = [Ô]Select codlanc_caixa,data,valor From fluxocaixa Where MONTH(data) = [Ô] & MesComboBox.Text & [Ô] And  YEAR(data) = [Ô] & AnoComboBox.Text [ô]& [Ô]%[ô][Ô]
GUIMORAES 15/04/2016 10:12:02
#460965
Dim sql As String = [Ô]Select codlanc_caixa,data,valor From fluxocaixa Where MONTH(data) = [Ô][ô] & MesComboBox.Text & [ô][Ô] And YEAR(data) = [Ô][ô] & AnoComboBox.Text & [ô][Ô][Ô]
COQUITO 15/04/2016 10:17:09
#460966
Citação:

:
Dim sql As String = [Ô]Select codlanc_caixa,data,valor From fluxocaixa Where MONTH(data) = [Ô][ô] & MesComboBox.Text & [ô][Ô] And YEAR(data) = [Ô][ô] & AnoComboBox.Text [ô][Ô][Ô]




agora ele não me está retornando os valores
NICKOSOFT 15/04/2016 10:59:14
#460976
como mês e ano são números, converta o q vem dos combo em numero, e não use as aspas simples
KURTGU 15/04/2016 11:00:43
#460978 Resposta escolhida
Dim sql As String = [Ô]Select codlanc_caixa,data,valor From fluxocaixa Where MONTH(data) = [Ô] & MesComboBox.Text & [Ô] And YEAR(data) = [Ô] & AnoComboBox.Text [Ô]

[txt-color=#e80000]Coloque um tratamento na data se voce perceber o combo ano ficou vazio por isso do erro...
[/txt-color]


If ComboBox1.Text = Nothing Then
MsgBox([Ô]SELECIONE O ANO[Ô])
ElseIf ComboBox2.Text = Nothing Then
MsgBox([Ô]SELECIONE O MES[Ô])
Else
MsgBox([Ô]OK[Ô])
End If
Tópico encerrado , respostas não são mais permitidas
Voltar