Olá galera!!
Tenho uma arq. texto e preciso importá-lo para uma tab. de um BD Access 2000. Detalhe: O arq. texto tem quase 50.000 linhas. A minha rotina de importação não está errada sintaticamente pois já importei arquivos menores para teste e funcionou sem dar erro.
Não sei porque dá o erro de OVERFLOW (num. 6) :-(.
OBS: Logo abaixo, parte da minha rotina de importação.
While Not EOF(1)
prgProgresso.Max = Qlinhas
prgProgresso.Value = ws_seq
ws_seq = ws_seq + 1
Line Input #1, Linha
campo1 = Mid(Linha, 1, 7) 'Número do cliente
campo2 = Mid(Linha, 8, 8) 'Número do contrato de crédito
campo3 = Mid(Linha, 67, 12) 'Percentual de juros com 4 casas dec.
campo4 = Mid(Linha, 103, 2) 'Código de situação atual da oper. de crédito na coop.
campo5 = Mid(Linha, 424, 17) 'Saldo devedor contábil da oper.
campo6 = Mid(Linha, 231, 2) 'Identificação do nível de risco ATUAL da oper.
w_jr = (Val(campo3) / 100) / 100
w_slddev = Format(Val(campo5) / 100, "###,##0.0000")
sSQL = "INSERT INTO contratos (codcli, ncontrato, " & _
"idnivelrisco, situacao, juros, SLDDEV) VALUES (" & _
CLng(campo1) & ", " & CLng(campo2) & ", '" & _
campo6 & "', '" & campo4 & "', '" & Format(w_jr, "00.0000") & _
"', '" & w_slddev & "');"
cnn.Execute sSQL
Wend
Valeu!!!!!!!!!
