Boa noite galera
Estou com um arquivo texto de 2.2 gb e preciso passar o conteudo para uma tabela, mas nao estou conseguindo fazer isso pois o programa apresenta erros nos campos, mas de fato nao há erros, queria saber como faço para ler este arquivo grande corretamente e sem muita demora ?
Estou utilizando vb6 e banco de dados Oracle.
Segue o codigo que estou utilizando
Public Sub TXT()
Dim C1 As String
Dim C2 As String
Dim C3 As String
Dim C4 As String
Dim C5 As String
Dim C6 As String
Dim C7 As String
Dim C8 As String
Dim C9 As String
Dim C10 As String
Dim C11 As String
Dim C12 As String
Dim incluir As String
Dim sql As String
Dim rs As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Open "c:ARQCOB.txt" For Input As #1
linha = 1
Do Until EOF(1)
Debug.Print I & " " & Round((I * 100) / 13962) & "%"
I = I + 1
Line Input #1, linhatxt
C1 = Mid(linhatxt, 1, 10)
C2 = Mid(linhatxt, 11, 70)
C3 = Mid(linhatxt, 81, 6)
C4 = Mid(linhatxt, 87, 6)
C5 = Mid(linhatxt, 93, 3)
C6 = Mid(linhatxt, 96, 4)
C7 = Mid(linhatxt, 100, 1)
C8 = Mid(linhatxt, 101, 5)
C9 = Mid(linhatxt, 106, 4)
C10 = Mid(linhatxt, 110, 30)
C11 = Mid(linhatxt, 140, 11)
C12 = Mid(linhatxt, 151, 11)
incluir = " INSERT into tbod_reg_deta_cob ( REGC_COD_PROCED,REGC_NOME_PROCED,REGC_COD,REGC_APOLICE,REGC_SUBF,"
incluir = incluir & " REGC_PLANO,REGC_COBERTO,REGC_CO_PARTICIPACAO,REGC_DIAS_CARENCIA,REGC_NOME_PERFIL,REGC_VALOR_PROC_REDE,"
incluir = incluir & " REGC_VALOR_PROC_REEMB)"
incluir = incluir & "VALUES('" & C1 & "','" & C2 & "','" & C3 & "','" & C4 & "','" & C5 & "','" & C6 & "','" & C7 & "','" & _
C8 & "','" & C9 & "','" & C10 & "','" & C11 & "','" & C12 & "')"
cn.Execute incluir
Loop
MsgBox "CONCLUIDO"
End Sub
