none
Script não atualiza a base de dados mas não da erro nenhum RRS feed

  • Pergunta

  • Boa tarde as todos,

    Gostaria da ajuda de vocês apara resolver o problema abaixo.

    Tenho  um script que importa dados de um arquivo texto(com delimitador) para o sql server, este script funcionava perfeitamente até o responsavel da area de dba da empresa alterar o tipo de dados(todos eram varchar) para alguns smallint e outro datatime.

    os campos agora estão assim:

     

    [nf] [int]

    NULL,

    [nomecliente] [varchar]

    (50) NULL,

    [cpfcliente] [varchar]

    (20) NULL,

    [dataemissao] [datetime]

    NULL,

    [canalvenda] [varchar]

    (10) NULL,

    [uf] [varchar]

    (2) NULL,

    [movimento] [smallint]

    NULL,

    [volume] [int]

    NULL,

    [remessa] [int]

    NULL,

    [pedido] [int]

    NULL,

    [cont] [smallint]

    NULL,

    [armazenagem] [varchar]

    (25) NULL




    Segue o script:

    Lista arquivos determinada pasta
    On Error Resume Next
    strPasta = "\\hermesrj08\Hermes_COLD\Entrada\Processados\"
    strPastaSaida = "\\hermesrj08\Hermes_COLD\Entrada\Processados\ok_sql_server\"
    Set objStdOut = WScript.StdOut
    strDest = "C:\importamysql_server.log"
    'Set FSO = CreateObject("Scripting.FileSystemObject")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
      Set ArqLog = objFSO.OpenTextFile(strDest, 8, True, 0)
      ArqLog.WriteLine "Inicio do log - " & now
    Set objFolder = objFSO.getFolder(strPasta)
     For each file in objfolder.files
      Set objFile = objFSO.GetFile(file)
     
      ArqLog.WriteLine "==================================================="
      ArqLog.WriteLine "Importando o arquivo " & file
      ArqLog.WriteLine "Arquivo importado: " & now
     
      objStdOut.writeline "Importando o arquivo " & file
      ImportData(File)
      objStdOut.writeline "Movendo o arquivo " & file &" para pasta OK"
      objFSO.MoveFile file, strPastaSaida '& arquivo 

     Next

    Set objFSO = nothing
    Set objFolder = Nothing
     ArqLog.WriteLine "Fim do log: " & now
     ArqLog.Close
    'Responsável somente por importar os dados
    Sub ImportData(strFile)
       
     Set objTextFile = objFSO.OpenTextFile(strfile,1)
     
      Set objConnection = CreateObject("ADODB.Connection")
       objConnection.ConnectionTimeout = 10
       objConnection.CommandTimeout = 20
       objConnection.ConnectionString = "Provider=SQLNCLI.1;Persist Security Info=False;Data Source=svr_banco;Initial Catalog=notas;User ID=usuario;Password=senha;"
       objConnection.Open
      

     Do While objTextFile.AtEndOfStream <> True
       linha = objTextFile.ReadLine
       linha = Split(linha,"|#")
       'Inclusão dos dados nas variaveis
       nf = Mid(Trim(linha(8)),1,3) & Mid(Trim(linha(8)),5,3)
       nomecliente = Trim(linha(14))
       cpf = Trim(linha(15))
       dataemissao = Trim(linha(16))
       canalvenda = Trim(linha(3))
       uf = Trim(linha(24))
       movimento = Mid(Trim(linha(105)),25,6)
       volume = Mid(Trim(linha(108)),9,10)
       remessa = Mid(Trim(linha(107)),9,10)
       pedido = Mid(Trim(linha(105)),9,10)
       cont = Mid(Trim(linha(74)),38,2)
       'Exportação para Mysql
      
       objConnection.execute "INSERT INTO tblcadnf(nf,nomecliente,cpfcliente,dataemissao,canalvenda,uf,movimento,volume,remessa,pedido,cont) VALUES ('" & nf & "','" & nomecliente & "','" & cpf & "','" & dataemissao & "','" & canalvenda & "','" & uf & "','" & movimento & "','" & volume & "','" & remessa & "','" & pedido & "','" & cont & "')"
      
     Loop
     objConnection.Close
     objTextFile.close()

    End Sub

    O script não esta dando erro algum, apenas não atualiza mais no sql verver.

    quinta-feira, 18 de fevereiro de 2010 19:54

Todas as Respostas

  • Bom dia, Jeferson Damasceno

    Para que o erro do script seja mostrado na tela basta retirar a linha On Error Resume Next .

    Abraços
    Juranir
    Se útil favor marque a resposta e poste o tópico como resolvido.
    sexta-feira, 5 de março de 2010 14:29