USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  desespero Verificar nº passoal em uma fachaetaria
assistency
NOVA FATIMA PR
PR - BRASIL
ENUNCIADA !
Postada em 28/01/2006 10:34 hs         
Pessoal desculpe abrir outro topico masi estou desesperado tenho prazo at segunda pra entregar isso e nao sei o q acontece nao consigo encaixar os codigos q me passaram para meu relatorio. por favor deen uma olhada na maneiro q gero meu relatorio e por favor me ajudem.
 
Entao pessoal uso o dbgrid para geral meus relatorio eles vao para tabela temporaria para sair no dbgrid eu coloco o codigo da seguinte forma
 
Dim AreaTrabalho As Workspace
Dim query As String
Dim dyn As Dynaset
Set AreaTrabalho = DBEngine.Workspaces(0)
Set XBCO = AreaTrabalho.OpenDatabase(App.Path & "TemPCli.Mdb", False, False)
query = "Select * From Cliente order by c1"  (obs c1 e o campo nome cliente)
Set DYN1 = XBCO.CreateDynaset(query)
While Not DYN1.EOF
DYN1.Delete
DYN1.MoveNext
Wend

Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & "Cadastro.Mdb", False, False)
query = "Select * From Clinete  order by c1"
Set dyn = xxbco.CreateDynaset(query)
While Not dyn.EOF
If dyn("Todos") = A1 Then         (obs TODOS e um campo q coloco pra ficar + facil para geral rel geral)
DYN1.AddNew
DYN1("c1") = dyn("c1")
DYN1("c18") = dyn("c18")           (Obs  (c18) e  data nascimento cliente)
DYN1.Update
End If
dyn.MoveNext
Wend
XBCO.Close
xxbco.Close
Data1.Refresh
DBGrid1.Refresh
 
 
por favor me ajudem pois ja tentei mais nao consigo encaichar os codigos o pessoal ta tentando + eu nao consigo entender.
 
 
 
   
jonny
não registrado
ENUNCIADA !
Postada em 28/01/2006 11:54 hs   
o q vc quer fazer?
   
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
ENUNCIADA !
Postada em 28/01/2006 15:55 hs            
Amigo, se nao me engano, seu problema é listar nesse relatorio apenas os "clientes" que estao em uma determinada faixa etária, certo?
Pois bem... vamos por parte...
 
As variaveis q vou usar:
Dim IdadeMinima As Integer, IdadeMaxima As Integer
Dim DataInicial As Date, DataFinal As Date
Dim SQL as String
 
1) Definir a faixa etária: vamos supor que eu quero todo mundo que tenha de 10 à 20 anos... ficaria assim:
IdadeMinima = 10 ' isso pode ser definido pelo usuario, via Textbox por exemplo...
IdadeMaxima = 20 ' idem
 
2) Como o seu banco nao guarda idades, mas sim Datas de Nascimento, eu tenho que determinar a menor e a maior data de nascimento possiveis para que os clientes estejam nessa faixa...
Para pegar a menor data, tenho q tirar um dia da data de nascimento de quem está completando 21 anos hoje, ou seja:
DataInicial = DateAdd("d", -1, DateAdd("y", -(IdadeMaxima + 1), Now()))
Para pegar a maior data, tenho q pegar a data de nascimento de quem está completando 10 anos hoje, ou seja:
DataFinal = DateAdd("y", -(IdadeMinima), Now())
Pronto... temos o periodo do relatorio definido...
 
3) Agora montamos a Query com esse periodo...
Como nao me lembro se vc disse qual base de dados usa, vou escrever o Codigo para Access e SQL Server... se vc precisar transformar para outra, posso te ajudar depois...
 
Access:
SQL = " SELECT   * " & _
            " FROM      Cliente " & _
            " WHERE   c18 BETWEEN " & _
            "                  #" & Format(DataInicial, "mm/dd/yyyy") & "# " & _
            "                  AND " & _
            "                  #" & Format(DataFinal, "mm/dd/yyyy") & "# " & _
            " ORDER BY c1 "
 
SQL Server:
SQL = " SELECT    * " & _
            " FROM       Cliente " & _
            " WHERE    c18 BETWEEN " & _
            "                   '" & Format(DataInicial, "yyyy-mm-dd") & "' " & _
            "                   AND " & _
            "                   '" & Format(DataFinal, "yyyy-mm-dd") & "' " & _
            " ORDER BY c1 "
 
Ta ai... agora vc se vira... coloca esse SQL pra abrir a tabela no banco...
 
Se nao era isso que vc queria, foi mal... isso é o q eu entendi...
 
Flw! t+... qq coisa me add no msn...


Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn:
elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
Emoções "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

TÓPICO EDITADO
 
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página