0 Replies Latest reply: Jan 31, 2017 5:16 AM by Gabriel Erich Koeke RSS

    Macro update

    Gabriel Erich Koeke

      Bom dia, tenho uma macro que faz update no banco, consegui fazer o update selecionando 1 dia, agora o que eu necessito é, selecionar por período, exemplo do dia 1 ate o dia 7, ou o mes inteiro. Como que eu posso proceder para criar essa regra na macro. Tambem preciso criar um IF, para quando o usuário selecionar S grava se estiver com N não faz nenhuma alteração, quando eu deixo o IF no código ele não executa quando eu removo ele faz o update no banco. Espero que possam me ajudar..

       

      Function GetAgentConnection

          Dim oConection

          Dim SLXServerName

          Dim SLXDataBaseName

          Dim SLXUserPassword

          Dim SLXUserName

          Dim sConnectionString

         sConnectionString = "Provider=MSDASQL.1;Persist Security Info=True;User ID=root;Data Source=GHAN_BI;Extended Properties=DSN=GHAN_BI;UID=root;Initial Catalog=ghan_bi] (XPassword is JHLDSJVMYbbMCbEHRRMGDAC)"

       

          Set oConection = CreateObject ("ADODB.Connection")

          oConection.ConnectionString = sConnectionString

          oConection.Open

          Set GetAgentConnection = oConection

      End Function

       

       

      'Salva na tabela Vendas Diario

      Sub QV2SQL

        SET Conexao = GetAgentConnection()

        dim uSQL

        dim RegAfectados

        dim importe

        RegAfectados = 0

       

       

       

        set val1=ActiveDocument.Fields("DATAFORMATOBD").GetSelectedValues

        set val2=ActiveDocument.Fields("SELECIONA").GetSelectedValues

       

       

        for i=0 to val1.Count-1

       

         Conexao.Execute "UPDATE  bi_agencia_stur_vendas_diario SET conferido='"+val2.Item(i).Text+"' WHERE data_emissao = '"+val1.Item(i).Text+"'"

       

        next

        Msgbox("Registros atualizados com sucesso!")

      End Sub