INFORMAR PROCESSOS COM VENCIMENTO EM 24H

USUARIO.EXCLUIDOS 08/09/2007 18:44:48
#234783
Como posso escrever a sql para selecionar processos faltam 24 horas paras vencer (um dia posterior)

Private sun SQL()

Dim Lin As Integer
Dim TBSQL As New ADODB.Recordset
Dim CONSULTASQL As String

CONSULTASQL = "SELECT * " & _
"FROM Tabprocessos " & _
" where data_entrega = Date(-1)"
Set TBSQL = CON.Execute(CONSULTASQL)

Do Until TBSQL.EOF
Lin = Lin + 1
msfgrade.Rows = Lin + 1
msfgrade.TextMatrix(Lin, 0) = TBSQL("Processo")
msfgrade.TextMatrix(Lin, 1) = TBSQL("Seguradora")
msfgrade.TextMatrix(Lin, 2) = TBSQL("prestador")
msfgrade.TextMatrix(Lin, 3) = TBSQL("Proprietario")
msfgrade.TextMatrix(Lin, 4) = TBSQL("recebimento_data")
msfgrade.TextMatrix(Lin, 5) = TBSQL("data_entrega")
TBSQL.MoveNext
Loop
End Sub

O campo data_entrega está definido com tipo data no access

Obrigado
ICEMAN 09/09/2007 00:25:11
#234796 Resposta escolhida
Private sun SQL()

Dim Lin As Integer
Dim TBSQL As New ADODB.Recordset
Dim CONSULTASQL As String
dim nova_data as string

nova_data=Format(now,"mm/dd/YYYY") ' se nao trouxer corretamente vc pode por Format(now,"dd/mm/YYYY") que é mais provavel que funcione das duas formas
CONSULTASQL = "SELECT * " & _
"FROM Tabprocessos " & _
" where data_entrega < '" & nova_data &"'"
Set TBSQL = CON.Execute(CONSULTASQL)

Do Until TBSQL.EOF
Lin = Lin + 1
msfgrade.Rows = Lin + 1
msfgrade.TextMatrix(Lin, 0) = TBSQL("Processo")
msfgrade.TextMatrix(Lin, 1) = TBSQL("Seguradora")
msfgrade.TextMatrix(Lin, 2) = TBSQL("prestador")
msfgrade.TextMatrix(Lin, 3) = TBSQL("Proprietario")
msfgrade.TextMatrix(Lin, 4) = TBSQL("recebimento_data")
msfgrade.TextMatrix(Lin, 5) = TBSQL("data_entrega")
TBSQL.MoveNext
Loop
End Sub

testa ai e depois vc posta se funcionou
Tópico encerrado , respostas não são mais permitidas
Voltar