Verificar nº passoal em uma fachaetaria


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Verificar nº passoal em uma fachaetaria

assistency

NOVA FATIMA PR
PR - BRASIL

Postada em 24/01/2006 13:16 hs

Pessoal blz,

E o segunte tenho um cadastro de usuarios do sistema de saude municipal.

E feito o cadastro com os dados principais como nome data nascimento etc, entao como eu faria para gerar um relatorio que me troucesse ex. os usuarios que estao na facha etaria de 0 a 6 anos para que possa se ter uma posicao de quantas crianças tem q tomar a vacina por ex. ou idosos .

Para tem um previsao pra as campanhas

se puderem me ajudar agradesso

PH1959

SÃO JOSÉ DOS CAMPOS
SP - BRASIL

Postada em 24/01/2006 13:21 hs

como estão armazenadas as datas?

Daniel

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 24/01/2006 13:31 hs

monta uma sql da seguinte forma:

" SELECT Tabela.*, Date()-[Tabela]![Nascimento] AS Expr1 " & _
" FROM Tabela " & _
" WHERE (((Date()-[Tabela]![Nascimento]) Between 0 And 6*365));"
deve funcionar

dsmn

assistency

NOVA FATIMA PR
PR - BRASIL

ENUNCIADA !

Postada em 24/01/2006 17:14 hs

estou fazendo assim e ele esta dando erro no 3 nome da tabela

Dim AreaTrabalho As Workspace
Dim query As String
Dim dyn As Dynaset

Set AreaTrabalho = DBEngine.Workspaces(0)
Set XBCO = AreaTrabalho.OpenDatabase(App.Path & "TemP.Mdb", False, False)
query = "Select * From TempCli order by c0"
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 cliente.*, date()-[cliente] ! [nacimento] as expr1 " & from cliente " & where (((date()-[cliente] ! [nacimento]) between 0 and 6*365))
Set dyn = xxbco.CreateDynaset(query)
While Not dyn.EOF

If dyn("Todos") = A1 Then
DYN1.AddNew
DYN1("c1") = dyn("c1")
DYN1("c18") = dyn("c18")
DYN1("Todos") = dyn("Todos")

DYN1.Update
End If
dyn.MoveNext
Wend
XBCO.Close
xxbco.Close
Data1.Refresh

assistency

NOVA FATIMA PR
PR - BRASIL

ENUNCIADA !

Postada em 24/01/2006 17:45 hs

Pessoal consegui encaichar a formula e o seguinde uso um campo data para armazenar o nacimento que eo (c18), e usuario q e o (c1) (Todos) e o que uso para identificar para buscar um relatorio geral usando o combox.

Entao tenho um cadastro que a data anoversaio(c18) e 02/09/1974 e entao fiz da seguinde forma para trazer os dados para o dbgrid

Dim AreaTrabalho As Workspace
Dim query As String
Dim dyn As Dynaset

Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & "Cadastro.Mdb", False, False)

query = " SELECT cliente.*, Date()-[cliente]![c18] AS Expr1 " & _
" FROM cliente " & _
" WHERE (((Date()-[cliente]![c18]) Between 0 And 10*365))"

Set dyn = xxbco.CreateDynaset(query)
While Not dyn.EOF

If dyn("Todos") = A1 Then
DYN1.AddNew
DYN1("c1") = dyn("c1")
DYN1("c18") = dyn("c18")
DYN1("Todos") = dyn("Todos")

DYN1.Update
End If
dyn.MoveNext
Wend
'XBCO.Close
xxbco.Close
Data1.Refresh

por favor deem uma olhada obrigado

Daniel

SÃO PAULO
SP - BRASIL

Postada em 25/01/2006 09:00 hs

SEGUE EXEMPLO EM QUE ARMAZENO EM UMA TABELA TEMPORÁRIA OS DADOS QUE IREI PRECISAR PARA FAZER UM DETERMINADO RELATÓRIO, espero que não fique confuso p/voce, mas faço tudo com apenas 2 linhas de programação, aonde voce ver

    Set Base_Relato = Wk.OpenDatabase(Db_Relato$, False, False)
    Set Base_pRODUTO = Wk.OpenDatabase(Db_Produt$, False, False)
    Base_Relato.Execute "DELETE Conteudo.* FROM Conteudo;"

    Base_Relato.Execute "INSERT INTO Conteudo ( Texto1, Valor1, Texto2, Texto3, Texto4, Obs ) " & _
                        "SELECT Produtos.Descricao, Produtos.Est_Disponivel, Linhas.Descricao, Tipo.Descricao, Marcas.Descricao, '" & Obs.Text & "' as exp23 " & _
                        "FROM (([" & Base_Produt.Name & "].Produtos INNER JOIN [" & Base_Produt.Name & "].Marcas ON Produtos.Cod_Marca = Marcas.Codigo) INNER JOIN [" & Base_Produt.Name & "].Linhas ON Produtos.Cod_Linha = Linhas.Codigo) INNER JOIN [" & Base_Produt.Name & "].Tipo ON Produtos.Cod_Tipo_Produto = Tipo.Codigo " & _
                        "WHERE (((Produtos.Relatorio)=True));"

dsmn

Página(s): 1/2 PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR