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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Alto lançametno 12 parcelas dos Usuarios
assistency
NOVA FATIMA PR
PR - BRASIL
ENUNCIADA !
Postada em 03/12/2006 11:47 hs         
Pessoal abri um topico aqui meses atras mas tive sucesso, e o seguinte preciso fazer uma funcao que fassa a seguinte ação.
um botao q o cliente iria clicar todo 01 de janeiro que faria o seguinte iria no banco de dados de usuario do plano funerario e lancaria 12 registro no banco de dados mensalidade usuario, e seguice pegando o procimo cadastro do banco de dados usuario e lancando tb 12 lancamentos no bd mensalidade e susecivamente ! , para q o cliente nao precise lancar os 12 parcelamentos entenderam, c alguem puder me dar uma luz meu tempo esta acabando e nao descobri ainda como fazer obrigado
   
jorge
não registrado
Postada em 05/12/2006 11:39 hs   
1 abre a tabela de clientes
2 abre a tabela de mensalidade
while not clientes.eof
    for i = 1 to 12
         grava os dados na tabela mensalidade mes a mes ate o for chegar 12
    next
     clientes.movenext ' pula para o proximo cliente e comeca novamente ate   
                                o ultimo cliente
wend
 
fecha a tabela de mensalidade
fecha a tabela de cliente
 
 
 
     
assistency
NOVA FATIMA PR
PR - BRASIL
ENUNCIADA !
Postada em 06/01/2007 15:10 hs         
jorge sou meio novato no ramo e nao consegui entender seu ex eu salmo meus registros da seguinte forma vc pode me explicxar como ficaria isso na minha linha de comando :
 
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, ";PWD=4626")
query = "Select * From Cliente where Codigo= '" & Codigo & "'"
Set dyn = xxbco.CreateDynaset(query)
If dyn.EOF Then
dyn.AddNew
dyn("Codigo") = Codigo
dyn.Update
MsgBox "Inclusão Realizada com (SUCESSO).!"
Else
MsgBox "Está inclusão já foi registrada [Verifique]."
Exit Sub
End If
xxbco.Close
   
Ama
Pontos: 2843
UBERLÂNDIA
MG - BRASIL
ENUNCIADA !
Postada em 04/02/2007 20:04 hs         
Eu desconheço a maneira que vc pensou este banco, mas eu prefiriria criar uma tabela fecha_anual e no balancete mensal já iria adicionando as informações de cada mes nesta tabela.
É claro que assim o prog deve monitorar cada modificação nos registros mensais pra já efetuar neste momento a correção na tabela anual.....
   
LCRamos
Pontos: 2843
GOIANIA
GO - BRASIL
ENUNCIADA !
Postada em 04/02/2007 20:17 hs            
Bem, forma de trabalhar é forma, mas veja, se a mensalidade for incluida, no mes de abril, por exemplo, bai lançar apenas a restante, não fica fácil voce colocar um array com 12 checkbox (mes), deixar todos marcados, e incluir, neste caso o mes mes que o usuário não quiser incluir, basta desmarcar.
 
vlu//
   
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