Jump to content
Fórum Script Brasil
  • 0

Problema com atualização de registros


kassio07
 Share

Question

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 to comment
Share on other sites

1 answer to this question

Recommended Posts

  • 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

Edited by kassio07
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      151k
    • Total Posts
      649.1k
×
×
  • Create New...