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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  SOMAR CAMPOS E ARMAZENAR EM OUTRA TABELA DO BANCO
Aginaldo
JUIZ DE FORA
MG - BRASIL
ENUNCIADA !
Postada em 01/01/2006 12:48 hs            
Presados Senhores
 
Feliz 2006 a todos
 
TO COM E SEGIUNTE PROBLEMA
 
PRECISO SOMAR OS CAMPOS DE UMA TABELA COM UMA CONDIÇÃO, E ARMAZENA-LOS EM OUTRA TRABELA 
 
Private Sub LaVolpeButton16_Click()
  
 If MsgBox("Confirma Exclusão do Produto da Orden de Serviço ,& txtos ?", vbYesNo) = vbYes Then
    
    Dim CRITERIODELPROD As String
    Dim SQLDELPROD As String
    CRITERIODELPROD = Chr$(39) & txtprodexcluir.Text & Chr(39)
    SQLDELPROD = "DELETE PECA FROM PECASAPLIC WHERE PECA LIKE " & CRITERIODELPROD
    bancodados.Execute SQLDELPROD
    Data6.Refresh
   
criteriosomar1 = Chr$(39) & txtos.Text & Chr(39)
Dim DB As DAO.Database, RS As DAO.Recordset
'Dim DB As Database
'Dim RS As Recordset
Dim VALORTESTE As Currency
      'Set DB = DBEngine.OpenDatabase(App.Path & "dservilar.MDB", False, False, "")
      Set DB = DBEngine.OpenDatabase(App.Path & "dservilar.MDB")
      'Set RS = DB.OpenRecordset("select sum(valortotal) from pecasaplic where n_os LIKE " & criteriosomar1, dbOpenForwardOnly, dbReadOnly)
       Set RS = DB.OpenRecordset("select sum(valortotal) from pecasaplic where n_os LIKE " & criteriosomar1)
          
     'Set DB = OpenDatabase(App.Path & "/BDSERVILAR.MDB")
      DB.Execute "insert into SProdOS (VALORTOTAL) values (1)"
      DB.Execute "update SProdOS set VALORTOTAL = (" & RS(0) & ")"
   
    Dim RESVTOTAL As Currency
    RESVTOTAL = TBSPRODOS("VALORTOTAL")
           
    TBVTOTALOS.AddNew
    TBVTOTALOS("VALORTOTAL") = RESVTOTAL
    TBVTOTALOS("N_OS") = txtos
    TBVTOTALOS.Update
 
    TBSPRODOS.AddNew
    TBSPRODOS("VALORTOTAL") = RESVTOTAL
    TBSPRODOS.Update
    MaskEdBoxvalpecas.Text = RESVTOTAL
     
     TBOS.Seek "=", txtos.Text
     If TBOS.NoMatch = False Then
       TBOS.Edit
       TBOS("VALORTOTALPECAS") = MaskEdBoxvalpecas
       TBOS.Update
      End If
   End If
End Sub
 
 
A IDEIA E INCLUIR PRODUTOS EM UM ORÇAMENTO, NAO QUERENDO MAIS O PRODUTO EXCUIR, MAS SO QUE QUANDO EXCLUIR ELE DEVERA SUBTRAIR O VALOR, SO QUE QUANDO EXECULTO DA ERRO E QUANDO COLOCO VALORES POR EXEMPLO (3,20) COM CASAS DECIMAIS ELES DA PROBLEMA NA HORA DE ARMAZENAR, E MEU CAMPO DA TABELA TA COMO CURRENCY
 
SE TIVEREM OUTRO CODIGO
 
SO PRECISO SOMAR OS VALORES E ACRECENTAR EM UMA UTRA TABELA
 
 
   
Scaliburth
BELO HORIZONTE
MG - BRASIL
ENUNCIADA !
Postada em 02/01/2006 17:01 hs            
Pelo que entendi, você esta fazendo um programa para venda. Por que você não acrescenta na outra tabela só se confirmar a venda do pedido. Fiz um programa de venda e ia acumulando o total em um text e dando refresh no grid, quando confirmava a venda ele registrava na outra tabela.
 
Verifique o formato do campo no Banco de dados onde você quer fazer o registro, talvez seja por isso que está dando o erro.
 
Não sei se era essa sua dúvida, mas tai. Qualquer coisa poste denovo.
   
Daniel
Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 03/01/2006 06:46 hs            
EM QUAL LINHA DÁ ERROR ?

dsmn
   
Aginaldo
JUIZ DE FORA
MG - BRASIL
ENUNCIADA !
Postada em 03/01/2006 17:27 hs            
o erro acontece nesta linha
 
 DB.Execute "update SProdOS set VALORTOTAL = (" & RS(0) & ")"
 
mas usei o seguinte e funcionou.
 
TBTABELA.EDIT
       TBTABELA("CAMPO") = RS(0)
TBTABELA.UPDATE
 
   
Daniel
Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 04/01/2006 11:27 hs            
O motivo do erro deve ser que provavelmente seu computador esta no formato brasileiro ou seja . para casa de milhar e , para casa de decimal
Sempre que voce passar instruções no formato SQL voce deverá seguir os padrões americanos, isso tanto para dados numéricos como para dados de data.
 

dsmn
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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