Ir para conteúdo
Fórum Script Brasil
  • 0

Problema com atualização de registros


kassio07

Pergunta

Bom pessoal estou com seguinte problema eu preciso desenvolver um um botão que atualize valores de algumas colunas no banco quando acionado, esse calculo sera feito de duas colunas que estão no banco (uma com a data de envio e uma com a data da volta) o calculo deve efetuar a diferença de dias entre essas colunas e para todos os registros. Mas alguns desses registros pode ocorrer de não ter enviado ainda então estabeleci uma condicional para efetuar o calculo somente quando a primeira coluna estiver preenchida, o documento tambem pode ter sido enviado e não devolvido ainda então estabeleci uma condicional que se pega a data do sistema quando a segunda coluna esta vazia. Mas infelizmente o que fiz não esta funcionando e não sei o porque entaum queria uma ajuda para poder encontrar o que eu fiz de errado. :D

db = abrirCon
    db.Open
    
    Sql = "Select Max(Codigo) From ControleAdministrativo"
    rs.Open Sql, db
    maior = rs(0).Value
    Sql = "Select Envio_Carta_Renovacao From ControleAdministrativo"
    um.Open Sql, db
    Sql = "Select Ultimo_Documento From ControleAdministrativo"
    dois.Open Sql, db
    For x = 0 To maior
        valor = um(0).Value
        If valor <> "" Then
            dataUm = valor
            valorDois = dois(0).Value
            If valorDois = "" Then
                dataDois = Date
                dataTres = DateDiff("d", dataUm, dataDois)
                Sql = "Update ControleAdministrativo Set Documentos_Recebido_Propri = '" & dataTres & "' Where Codigo = '" & x & "'"
                tres.Open Sql, db
            Else
                dataDois = valorDois
                dataTres = DateDiff("d", dataUm, dataDois)
                MsgBox x
                Sql = "Update ControleAdministrativo Set Documentos_Recebido_Propri = '" & dataTres & "' Where Codigo = '" & x & "'"
                tres.Open Sql, db
            End If
        End If
        um.MoveNext
        dois.MoveNext
    Next

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

Bom já que nimguém conseguiu resolver o meu problema e eu também não, resolvi criar todo o meu código fonte novamente. Mas pra variar já encontrei um problema. Eu criei duas consultas que seriam feitas pelo id do registro, mas este me retorna um erro: Tipo de dados incompatível na expressão do critério!

A minha consulta esta certa, não sei se o caso da coluna ID no banco ser do tipo numeração automárica faz alguma diferença...

db = abrirCon
    db.Open
    
    Sql = "Select Max(Codigo) From ControleAdministrativo"
    rs.Open Sql, db
    maximo = rs(0).Value
    indice = 1
    Do While indice <> maximo
        Sql = "Select Despacho_GMAJ From ControleAdministrativo Where Codigo = '" & indice & "' "
        um.Open Sql, db
        Sql = "Select Recebimento_GMAJ From ControleAdministrativo Where Codigo = '" & indice & "'"
        dois.Open Sql, db
        valorUm = um(0).Value
            If Not IsNull(valorUm) Then
                dataUm = valorUm
                valorDois = dois(0).Value
                If IsNull(valorDois) Then
                    dataTres = DateDiff("d", dataUm, Now)
                    Sql = "Update ControleAdministrativo Set Prazo_GMAJ = '" & dataTres & "' Where Codigo = '" & indice & "'"
                    tres.Open Sql, db
                Else
                    dataDois = valorDois
                    dataTres = DateDiff("d", dataUm, dataDois)
                    Sql = "update ControleAdministrativo Set Prazo_GMAJ = '" & dataTres & "' Where Codigo = '" & indice & "'"
                    tres.Open Sql, db
                End If
            End If
        indice = indice + 1
    Loop

Editado por kassio07
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...