ACCESS DATA/HORA TRATAR COMO VAZIA

MARCELO.TREZE 03/06/2010 19:59:31
#343831
tenta assim

Do While Not rs.EOF
Set Item = LsvBusca.ListItems.Add(, , rs([Ô]id[Ô]))
Item.SubItems(1) = [Ô][Ô] & rs([Ô]data[Ô]))
Item.SubItems(2) = [Ô][Ô] & rs([Ô]NOME[Ô])
Item.SubItems(3) =[Ô][Ô] & rs([Ô]hora[Ô]))
rs.MoveNext
Loop
MARCELOFAZAN 03/06/2010 20:05:13
#343833
O erro continua pq o erro ta na linha

nao sei ... mais ao mesmo erro anterior fazendo como acima

rs.Open Sql, conexao

antes do do while

tenhu 2 campos no access
campos distintos guardo esses formatos
Data 12/10/2010
hora 12:00:00

abs
MARCELO.TREZE 03/06/2010 20:28:22
#343837
que linha que dá o erro xará, e qual é o erro?
MARCELOFAZAN 03/06/2010 20:34:48
#343840
Tipos de datos incompativel na expressao de criterio

e erro acusa na linha e a mesangem é a de cima rs.Open Sql, conexao

e acontece somente com o campo data e hora ........ no criterio pro nome e todos esta perfeito
somente da erros quando vo buscar algo relativo a uma busca com nada digitado no text sendo criterio hora ou data





Select Case CmbCriterio.ListIndex
Case 0
filtro = [Ô][Ô]
Case 1
filtro = [Ô]where Data = [ô][Ô] & TxtCriterio.Text & [Ô][ô][Ô]
Case 2
filtro = [Ô]where nome like [ô]%[Ô] & TxtCriterio.Text & [Ô]%[ô][Ô]
Case 3
filtro = [Ô]where Hora = [ô][Ô] & TxtCriterio.Text & [Ô][ô][Ô]

End Select

Sql = [Ô] Select * from frequencia [Ô] & filtro
rs.Open Sql, conexao

LsvBusca.ListItems.Clear

Do While Not rs.EOF
Set Item = LsvBusca.ListItems.Add(, , rs([Ô]id[Ô]))
Item.SubItems(1) = [Ô][Ô] & rs([Ô]data[Ô])
Item.SubItems(2) = [Ô][Ô] & rs([Ô]NOME[Ô])
Item.SubItems(3) = [Ô][Ô] & rs([Ô]hora[Ô])
rs.MoveNext
Loop
MARCELO.TREZE 03/06/2010 21:36:06
#343845
bom o erro está na consulta, que pensei que já estivesse alterado.

Select Case CmbCriterio.ListIndex
Case 0
    filtro = [Ô][Ô]
Case 1
    filtro = [Ô]where Data = #[Ô] & Format(TxtCriterio.Text,[Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô]
Case 2
    filtro = [Ô]where nome like %[Ô] & TxtCriterio.Text & [Ô]%[Ô]
Case 3
    filtro = [Ô]where Hora =#[ô][Ô] & Format(TxtCriterio.Text, [Ô]hh:nn:ss[Ô]) & [Ô]#[Ô]
MARCELOFAZAN 03/06/2010 22:11:44
#343846
se tiro as aspas do like ai da problema de lilke

ai da erro de sintase like, ....

eai o que acha ?
MARCELO.TREZE 03/06/2010 23:49:57
#343847
desculpe deixe as aspas
MARCELOFAZAN 04/06/2010 09:58:54
#343862
Acha , Xara desculpa eu q pra alterar 1 linha demoro 1 dia

mais tipo, o Format seria pra por / /
e se eu chamar uma funcao que faz / / iria deixar de usar o format ??

será q daria certo ??

ABs
MARCELO.TREZE 04/06/2010 13:48:54
#343891
não é nada disso o format é para colocar o formato da dat no mesmo padrão do banco, não tem nada a ver com as barras (/)
MARCELOFAZAN 04/06/2010 14:06:58
#343893
Treze a ultima tentativa

ai tenho 2 escolhas ,
ou enchugo os campos hora e data da consulta
ou mesmo qdo for filtrar o campo em branco no criterio , colocar uma mensagem

tenta ajudar nsso vamos ver

Select Case CmbCriterio.ListIndex
Case 0
filtro = [Ô][Ô]
Case 1
filtro = [Ô]where Data=#[Ô] & Format(TxtCriterio.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô]
Case 2
filtro = [Ô]where nome like [ô]%[Ô] & TxtCriterio.Text & [Ô]%[ô][Ô]
Case 3
filtro = [Ô]where Hora=#[Ô] & Format(TxtCriterio.Text, [Ô]hh:nn:ss[Ô]) & [Ô]#[Ô]
End Select

Sql = [Ô] Select * from frequencia [Ô] & filtro
rs.Open Sql, conexao

LsvBusca.ListItems.Clear

Do While Not rs.EOF
Set Item = LsvBusca.ListItems.Add(, , rs([Ô]id[Ô]))
Item.SubItems(1) = IIf(rs([Ô]data[Ô]) = True, [Ô][Ô], rs([Ô]data[Ô]))
Item.SubItems(2) = [Ô][Ô] & rs([Ô]NOME[Ô])
Item.SubItems(3) = IIf(IsNull(rs([Ô]hora[Ô])) = True, [Ô][Ô], rs([Ô]hora[Ô]))
rs.MoveNext
Loop
End Sub


algo assim

filtro = [Ô]where Data=#[Ô] & iif( Format(TxtCriterio.Text, [Ô]mm/dd/yyyy[Ô]), msgobox favor informar uma consulta & [Ô]#[Ô]


tratar qdo txtcriterio for vazio emiti uma mensagem dando focus ao mesmo , tipo uma validacao,
talves se ajuste com um codigo fora disso ou 1 iif no filtro


Sera q se resolveria

Abs
Marcelo Fazan

Página 2 de 3 [22 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar