SELECT CONTA WHERE DATA_VENC E MENOR QUE LBLDATA

USUARIO.EXCLUIDOS 21/12/2006 17:20:33
#191552
ai pessoal.. beleza

nao estou conseguindo fazer que com que certo me ajudem

select * from Contas where data_venc < " & format(lbldata, "mm/dd/yyyy") & "


como faço?? t+
HUGOSSOUZA 21/12/2006 17:23:28
#191553
qual o BD?
RONALD.OTAVIO 21/12/2006 17:27:50
#191556
tente desta forma:
select * from Contas where data_venc < DateValue('" & lbldata & "') & "
USUARIO.EXCLUIDOS 21/12/2006 17:28:23
#191557 Resposta escolhida
Se for Access, faça assim:

  
"select * from Contas where data_venc < #" & format(lbldata, "mm/dd/yyyy") & "#"


Se for Firebird, faça assim:

  
"select * from Contas where data_venc < '" & format(lbldata, "mm/dd/yyyy") & "'"
CRAFTY 21/12/2006 17:30:39
#191560
Voce poderia fazer o seguinte:

Se for MS-SQL determine a configuração de data da configuração

banco.execute "Set DateFormat DMY"


depois execute seu select da seguinte forma:

rs.open "Select * from Contas where data_venc <'" & format(lbldata.caption,"DD/MM/YYYY") & "'"


deve funcionar
USUARIO.EXCLUIDOS 21/12/2006 17:39:53
#191565
ai amigos... meu banco é access

e nao consegui com nenhum exemplo acima... por favor me ajudem!! obrigado!
USUARIO.EXCLUIDOS 21/12/2006 17:42:08
#191569
Estranho. Utilizei várias vezes desse jeito que lhe mostrei e funciona perfeitamente.

Mostre como você executa o sql.
USUARIO.EXCLUIDOS 21/12/2006 17:44:04
#191573
utilo normamente como mostrei ...mas é pelo data1..
faz alguma diferença???
USUARIO.EXCLUIDOS 21/12/2006 17:48:37
#191581
Como você faz?

sql = "select * from Contas where data_venc < #" & format(lbldata, "mm/dd/yyyy") & "#"

Data1.recordsource = sql
USUARIO.EXCLUIDOS 21/12/2006 18:19:35
#191597
estou fazendo o seguinte

Private Sub cmdConsulta_Click()
If CDate(DTData) > CDate(DTData2) Then
    MsgBox "Informe as datas de forma crescente!!", vbExclamation
Else
    If txtCod = "" Then
        If ckNaoPagos.Value = True Then
        
                If optVencidas.Value = True Then
                    Data1.RecordSource = "select codigo_conta_pagar, descricao, dt_vencimento, num_doc, valor_doc, local, sacado from Contas_Pagar where dt_cadastro Between #" & Format(DTData.Value, "mm/dd/yyyy") & " 00:00:00# And #" & Format(DTData2.Value, "mm/dd/yyyy") & " 23:59:59# AND status = '0' AND dt_vencimento < DateValue(" & lbldata & ") "
                ElseIf optNaoVencidas.Value = True Then
                    Data1.RecordSource = "select codigo_conta_pagar, descricao, dt_vencimento, num_doc, valor_doc, local, sacado from Contas_Pagar where dt_cadastro Between #" & Format(DTData.Value, "mm/dd/yyyy") & " 00:00:00# And #" & Format(DTData2.Value, "mm/dd/yyyy") & " 23:59:59# AND status = '0' AND dt_vencimento > " & Format(lbldata, "mm/dd/yyyy") & " "
                Else
                    Data1.RecordSource = "select codigo_conta_pagar, descricao, dt_vencimento, num_doc, valor_doc, local, sacado from Contas_Pagar where dt_cadastro Between #" & Format(DTData.Value, "mm/dd/yyyy") & " 00:00:00# And #" & Format(DTData2.Value, "mm/dd/yyyy") & " 23:59:59# AND status = '0'"
                End If
            
        Else
        
                If optVencidas.Value = True Then
                    Data1.RecordSource = "select codigo_conta_pagar, descricao, dt_vencimento, num_doc, valor_doc, local, sacado from Contas_Pagar where dt_cadastro Between #" & Format(DTData.Value, "mm/dd/yyyy") & " 00:00:00# And #" & Format(DTData2.Value, "mm/dd/yyyy") & " 23:59:59# AND dt_vencimento <= " & Format(lbldata, "mm/dd/yyyy") & " "
                ElseIf optNaoVencidas.Value = True Then
                    Data1.RecordSource = "select codigo_conta_pagar, descricao, dt_vencimento, num_doc, valor_doc, local, sacado from Contas_Pagar where dt_cadastro Between #" & Format(DTData.Value, "mm/dd/yyyy") & " 00:00:00# And #" & Format(DTData2.Value, "mm/dd/yyyy") & " 23:59:59# AND dt_vencimento > " & Format(lbldata, "mm/dd/yyyy") & " "
                Else
                    Data1.RecordSource = "select codigo_conta_pagar, descricao, dt_vencimento, num_doc, valor_doc, local, sacado from Contas_Pagar WHERE dt_cadastro Between #" & Format(DTData.Value, "mm/dd/yyyy") & " 00:00:00# And #" & Format(DTData2.Value, "mm/dd/yyyy") & " 23:59:59#"
                End If
        
        End If
        
        
    ElseIf cboRestricoes = "Centro de Custo" Then
        If ckNaoPagos.Value = True Then
        
                If optVencidas.Value = True Then
                    Data1.RecordSource = "select codigo_conta_pagar, descricao, dt_vencimento, num_doc, valor_doc, local, sacado from Contas_Pagar where dt_cadastro Between #" & Format(DTData.Value, "mm/dd/yyyy") & " 00:00:00# And #" & Format(DTData2.Value, "mm/dd/yyyy") & " 23:59:59# AND Contas_Pagar.codigo_centro = " & txtCod & " AND status = '0' AND dt_vencimento < " & Format(lbldata, "mm/dd/yyyy") & " "
                ElseIf optNaoVencidas.Value = True Then
                    Data1.RecordSource = "select codigo_conta_pagar, descricao, dt_vencimento, num_doc, valor_doc, local, sacado from Contas_Pagar where dt_cadastro Between #" & Format(DTData.Value, "mm/dd/yyyy") & " 00:00:00# And #" & Format(DTData2.Value, "mm/dd/yyyy") & " 23:59:59# AND Contas_Pagar.codigo_centro = " & txtCod & " AND status = '0' AND dt_vencimento > " & Format(lbldata, "mm/dd/yyyy") & " "
                Else
                    Data1.RecordSource = "select codigo_conta_pagar, descricao, dt_vencimento, num_doc, valor_doc, local, sacado from Contas_Pagar where dt_cadastro Between #" & Format(DTData.Value, "mm/dd/yyyy") & " 00:00:00# And #" & Format(DTData2.Value, "mm/dd/yyyy") & " 23:59:59# AND Contas_Pagar.codigo_centro = " & txtCod & " AND status = '0'"
                End If
            
        Else
        
                If optVencidas.Value = True Then
                    Data1.RecordSource = "select codigo_conta_pagar, descricao, dt_vencimento, num_doc, valor_doc, local, sacado from Contas_Pagar where dt_cadastro Between #" & Format(DTData.Value, "mm/dd/yyyy") & " 00:00:00# And #" & Format(DTData2.Value, "mm/dd/yyyy") & " 23:59:59# AND Contas_Pagar.codigo_centro = " & txtCod & " AND dt_vencimento <= " & Format(lbldata, "mm/dd/yyyy") & " "
                ElseIf optNaoVencidas.Value = True Then
                    Data1.RecordSource = "select codigo_conta_pagar, descricao, dt_vencimento, num_doc, valor_doc, local, sacado from Contas_Pagar where dt_cadastro Between #" & Format(DTData.Value, "mm/dd/yyyy") & " 00:00:00# And #" & Format(DTData2.Value, "mm/dd/yyyy") & " 23:59:59# AND Contas_Pagar.codigo_centro = " & txtCod & " AND dt_vencimento > " & Format(lbldata, "mm/dd/yyyy") & " "
                Else
                    Data1.RecordSource = "select codigo_conta_pagar, descricao, dt_vencimento, num_doc, valor_doc, local, sacado from Contas_Pagar WHERE dt_cadastro Between #" & Format(DTData.Value, "mm/dd/yyyy") & " 00:00:00# And #" & Format(DTData2.Value, "mm/dd/yyyy") & " 23:59:59# AND Contas_Pagar.codigo_centro = " & txtCod & " "
                End If
        
        End If
        
    
    Else
    
        If ckNaoPagos.Value = True Then
        
                If optVencidas.Value = True Then
                    Data1.RecordSource = "select codigo_conta_pagar, descricao, dt_vencimento, num_doc, valor_doc, local, sacado from Contas_Pagar where dt_cadastro Between #" & Format(DTData.Value, "mm/dd/yyyy") & " 00:00:00# And #" & Format(DTData2.Value, "mm/dd/yyyy") & " 23:59:59# AND Contas_Pagar.codigo_fornecedor = " & txtCod & " AND status = '0' AND dt_vencimento < " & Format(lbldata, "mm/dd/yyyy") & " "
                ElseIf optNaoVencidas.Value = True Then
                    Data1.RecordSource = "select codigo_conta_pagar, descricao, dt_vencimento, num_doc, valor_doc, local, sacado from Contas_Pagar where dt_cadastro Between #" & Format(DTData.Value, "mm/dd/yyyy") & " 00:00:00# And #" & Format(DTData2.Value, "mm/dd/yyyy") & " 23:59:59# AND Contas_Pagar.codigo_fornecedor = " & txtCod & " AND status = '0' AND dt_vencimento > " & Format(lbldata, "mm/dd/yyyy") & " "
                Else
                    Data1.RecordSource = "select codigo_conta_pagar, descricao, dt_vencimento, num_doc, valor_doc, local, sacado from Contas_Pagar where dt_cadastro Between #" & Format(DTData.Value, "mm/dd/yyyy") & " 00:00:00# And #" & Format(DTData2.Value, "mm/dd/yyyy") & " 23:59:59# AND Contas_Pagar.codigo_fornecedor = " & txtCod & " AND status = '0'"
                End If
            
        Else
        
                If optVencidas.Value = True Then
                    Data1.RecordSource = "select codigo_conta_pagar, descricao, dt_vencimento, num_doc, valor_doc, local, sacado from Contas_Pagar where dt_cadastro Between #" & Format(DTData.Value, "mm/dd/yyyy") & " 00:00:00# And #" & Format(DTData2.Value, "mm/dd/yyyy") & " 23:59:59# AND Contas_Pagar.codigo_fornecedor = " & txtCod & " AND dt_vencimento <= " & Format(lbldata, "mm/dd/yyyy") & " "
                ElseIf optNaoVencidas.Value = True Then
                    Data1.RecordSource = "select codigo_conta_pagar, descricao, dt_vencimento, num_doc, valor_doc, local, sacado from Contas_Pagar where dt_cadastro Between #" & Format(DTData.Value, "mm/dd/yyyy") & " 00:00:00# And #" & Format(DTData2.Value, "mm/dd/yyyy") & " 23:59:59# AND Contas_Pagar.codigo_fornecedor = " & txtCod & " AND dt_vencimento > " & Format(lbldata, "mm/dd/yyyy") & " "
                Else
                    Data1.RecordSource = "select codigo_conta_pagar, descricao, dt_vencimento, num_doc, valor_doc, local, sacado from Contas_Pagar WHERE dt_cadastro Between #" & Format(DTData.Value, "mm/dd/yyyy") & " 00:00:00# And #" & Format(DTData2.Value, "mm/dd/yyyy") & " 23:59:59# AND Contas_Pagar.codigo_fornecedor = " & txtCod & " "
                End If
        
        End If
    
    
    End If
    
End If


Data1.Refresh
FormataGrid
End Sub
ALMARTI 21/12/2006 18:24:33
#191601
COmo esta tipado o campo data_venc no access?
Página 1 de 2 [15 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar