CLIENTE QUE NAO COMPRA.

TECLA 03/11/2009 13:59:09
#326813 Resposta escolhida
Clientes que não compraram nesta semana
[txt-color=#006400][ô]Periodo: 02/11/2009 a 06/11/2009[/txt-color]
SELECT * FROM TCliente WHERE DataAut NOT BETWEEN #11/02/2009# AND #11/06/2009#
NETVOO 03/11/2009 15:26:51
#326820
Citação:

TECLA escreveu:
Clientes que não compraram nesta semana

[txt-color=#006400][ô]Periodo: 02/11/2009 a 06/11/2009[/txt-color]
SELECT * FROM TCliente WHERE DataAut NOT BETWEEN #11/02/2009# AND #11/06/2009#



AMIGO TECLA NÃO TO SABENDO APLICAR SEU EXEMPLO, DA ERRO DE SINTAXE.


SELECT * FROM Itens WHERE DataAut NOT BETWEEN = [Ô] & Text1 & [Ô] AND [ô][Ô] & Text2 & [Ô]
MARCELO.TREZE 03/11/2009 15:59:25
#326824
Sabe de uma coisa reparei que vc possui Duas Tabelas CLI e TCLIENTES

não existe nada que relacione ambas

minha dica é altere a estrutura das duas tabelas, como vc ainda não soube explicar como faz pra gravar quando ha compra ou não

afinal me explique suponha como os dads são inseridos na tabela CLI

o que o campo

DATAUT grava, data do que?
o que o Ncompra grava

explique.

e como vc relaciona as duas tabelas

CLI e NCLIENTE

não existe nenhum tipo de relacionamento entre elas

bom com estas explicações fica mais fácil de ajudar
NETVOO 03/11/2009 16:08:37
#326827
TENHO SOMENTE UMA TABELA E NELA CONTEM UM CAMPO COM NONE DataAut que significa data da alteração que grava a data do pedido ou seja essa data é que o cliente compro.

e tenho outro campo que chama NCompra que eu pretendo gravar algum status que indique que o cliente não compro dentro da determinada data, é isso que não to sabendo como fazer.
TECLA 03/11/2009 16:13:00
#326829
Tente assim:

Dim dtIni As String, dtFim As String
dtIni = [Ô]#[Ô] & Format(Text1, [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô]
dtFim = [Ô]#[Ô] & Format(Text2, [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô]
rs.Open [Ô]SELECT * FROM Itens WHERE DataAut NOT BETWEEN  [Ô] & dtIni & [Ô]  AND  [Ô] & dtFim
MARCELO.TREZE 03/11/2009 16:19:21
#326830
tá é que vc enviou um banco com duas tabelas por isso me confundi mas é assim que se faz

mas ai vai minha pergunta se um cliente não efetuar uma compra a data não estára gravada no banco certo?

se nào ha data como fazer uma consulta entre datas?

o máximo que vc consegue e saber quais não COMPRARAM sem a necessidade de ser por data entedeu

ou seja

Sub LogPrint(sMessage As String)
[ô]On Error GoTo colorerror
Dim Total
Comi = [Ô]0[Ô]
Venda = [Ô]0[Ô]
Set Area = DBEngine.Workspaces(0)
Set dbi = Area.OpenDatabase(App.Path & [Ô]\NCompra.mdb[Ô], False, False)
Set rsMultas = dbi.OpenRecordset([Ô]select * from TCLIENTE where isNull(DataAut)[Ô], dbOpenDynaset)
    
    If File1.ListCount > [Ô]0[Ô] Then
        Kill App.Path & [Ô]\RVendas.txt[Ô]
    Else
    
    End If
    
    
    
    Dim nFile As Integer
    nFile = FreeFile
    Open App.Path & [Ô]\RVendas.txt[Ô] For Append Shared As #nFile

    Print #nFile, [Ô]                        RELATÓRIO DE CLIENTES, EFETUARÃO COMPRA  [Ô]
    Print #nFile, [Ô]                         NETVOO SISTEMAS DE INFORMAÇÃO LTDA PE[Ô]
    Print #nFile, [Ô]                               CNPJ: 00,000,000/0001-60[Ô]
    Print #nFile, [Ô]                     RELÁTORIO RETIRADO DIA: [Ô] & LDATA; [Ô] AS [Ô] & LTIME
    Print #nFile, [Ô][Ô]
    Print #nFile, [Ô]        CLIENTE                 CIDADE           CEP         TELEFONE[Ô]
 
    Print #nFile, [Ô][Ô]
    Print #nFile, [Ô]=====================================================================================[Ô]
    

Do While Not rsMultas.EOF
  
  
        Print #nFile, rsMultas([Ô]codigo[Ô]); Tab(9); rsMultas([Ô]nome[Ô]); Tab(33); rsMultas([Ô]cidade[Ô]); Tab(50); rsMultas([Ô]cep[Ô]); Tab(62); rsMultas([Ô]fone[Ô])
        [ô]Print #nFile, Tab(55), rsMultas([Ô]cep[Ô])
       [ô] Print #nFile, [Ô]                             BAIRRO     CEP    TELEFONE[Ô]
 
        DoEvents
        rsMultas.MoveNext
Loop
Print #nFile, ; Tab(0); [Ô]=====================================================================================[Ô]
        Print #nFile, [Ô][Ô]
        Print #nFile, [Ô][Ô]
        Venda = Format(Venda, [Ô]TOTAL R$##,##0.00[Ô])
        Comi = Format(Comi, [Ô]R$##,##0.00[Ô])
       [ô] Print #nFile, ; Tab(48); Venda;
        [ô]Print #nFile, ; Tab(67); Comi;
        Print #nFile, [Ô][Ô]
       [ô]Print #nFile, [Ô]=========================================================================================[Ô]
        Print #nFile, [Ô][Ô]
        Print #nFile, [Ô][Ô]
      [ô]  Print #nFile, ; Tab(0); [Ô]VENDAS REALIZADAS DE: [Ô] & Text1.Text & [Ô]  A  [Ô] & Text2.Text;
       [ô] Print #nFile, ; Tab(60); [Ô] TOTAL R$ [Ô] & Label12.Caption;
       [ô] Print #nFile, ; Tab(0); [Ô]EMISSÃO: [Ô]; Date; [Ô]HORA: [Ô]; Time
        
Close #nFile

Dim Endereço As String
Endereço = App.Path & [Ô]\RVendas.txt[Ô]
Call ShellExecute(hWnd, [Ô]Open[Ô], Endereço, [Ô][Ô], App.Path, 1)
Exit Sub
colorerror:
MsgBox ([Ô]Please, check the PATH[Ô])
  
  Exit Sub
  
  rsMultas.Close
  
    
End Sub



pronto este é apenas para teste se'houver algum registro em que a data está em Branco este será listado
NETVOO 03/11/2009 18:49:53
#326840
ai vai um modelo com a sugestão do TECLA, Mas acho que errei algo pois pelo pouquissimo que entendo seria NOT BETWEEN, seta que o resultado no meu caso é diferente de datainicio e datafim.


Revisem pra ver se pequei em algum ponto ai, no modelo ja ta com a data preenchida só clicar em procurar, ai era para ele trazer tudo que é diferente daquele ciclo que informei nos txt, mas não ele traz tudo,que tem na tabela, e não so os clientes que estão com o DataAut diferente do informado no txt1 e txt3
ASHKATCHUP 03/11/2009 19:54:26
#326843
Cara, troca o tipo do campo [Ô]DataAut[Ô] pra date. Aliás, troca o de todos os campos que você usa para datas. Assim, o between vai funcionar.
NETVOO 03/11/2009 20:02:53
#326845
Valw karaka era isso mesmo, Meu agradecimento a Todos mas, o modulo busca Clientes que não Comprarão dentro de data1 e data2 foi modificado com a dica do Tecla e o detalhe descoberto pelo ASHKATCHUP do tipo do campo


E para os amigos que passaram a dica do isNull(DataAut).

vou fazer um else e colocar se o campo tiver vasio ele mostra tambem como que não comprou dentro das datas.



Valew Mais uma vez a participação de todos fo muito valida .
Página 2 de 2 [19 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar