[AYUDA]error:SubScript out of range

[_cronos_]

Hola a todos... bueno les cuento mi gran problema, ojala alguien me pueda ayudar tengo este codigo q guarda los datos de un archivo de texto plano en una tabla DBF (dbaseIV) y me da error de rango no veo el error, a ver si alguien pudiera ver que esta fallando, esto trabaja con un modulo pero solo puse el codigo que ingresa los datos, el modulo solo conecta a la tabla dbf.


Saludos, Help Me.!

thz! Gracias!

Código:

Option Explicit

Private Sub Command1_Click()
End
End Sub

Private Sub CmdSalir_Click()
End
End Sub

Private Sub Form_Activate()
Dim ini As Single


ini = Timer

Do While Timer - ini < 5
    Unload index
    DoEvents


Loop


    Dim i As Long
    Dim j As Long
    Dim numF As Long
    Dim registro As String
    Dim SQLSTRING As String
    Dim matriz
    
    
    Dim cOnn As ADODB.Connection
    Dim rS As ADODB.Recordset
    
    Set cOnn = New ADODB.Connection
    cOnn.ConnectionString = criSQLProvider(GC_DBF)
    cOnn.Open
    
       
        numF = FreeFile
        Open GetShortName(App.Path) & "\Input\" & "datos.txt" For Input As #numF
        j = 0
        Do Until (EOF(numF) = True)
            SQLSTRING = ""
            registro = ""
            Line Input #numF, registro
            matriz = Split(registro, ",")
            List1.AddItem matriz(0) & " - " & matriz(1) & " - " & matriz(2) & " - " & matriz(3) & " - " & matriz(4) & " - " & matriz(5) & " - " & matriz(6) & " - " & matriz(7) & " - " & matriz(8)
            SQLSTRING = "INSERT INTO " & GetShortName(App.Path) & "\Output\table1 (COMISARIA, FECHA_DELI, DIA_DELITO, HORA_DELIT, AGRUPADOR, DELITO, UBICACION, COMUNA, CUADRANTE)"

       SQLSTRING = SQLSTRING & " VALUES ("
       SQLSTRING = SQLSTRING & CStr(matriz(0)) & ","
       SQLSTRING = SQLSTRING & """" & CStr(matriz(1)) & """" & ","
       SQLSTRING = SQLSTRING & """" & CStr(matriz(2)) & """" & ","
       SQLSTRING = SQLSTRING & """" & CStr(matriz(3)) & """" & ","
       SQLSTRING = SQLSTRING & """" & CStr(matriz(4)) & """" & ","
       SQLSTRING = SQLSTRING & """" & CStr(matriz(5)) & """" & ","
       SQLSTRING = SQLSTRING & """" & CStr(matriz(6)) & """" & ","
       SQLSTRING = SQLSTRING & """" & CStr(matriz(7)) & """" & ","
       SQLSTRING = SQLSTRING & CStr(matriz(8)) & ")"
       
            cOnn.Execute SQLSTRING
                 
  
    
             
        Loop
        Close #numF
        

    
    cOnn.Close
    Set cOnn = Nothing
       DoEvents


Unload Me
End Sub

[ReViJa]

En que linea de código tira ese error?

[_cronos_]

Iniciado por ReViJa

En que linea de código tira ese error?

EN ESA -.-

Código:

List1.AddItem matriz(0) & " - " & matriz(1) & " - " & matriz(2) & " - " & matriz(3) & " - " & matriz(4) & " - " & matriz(5) & " - " & matriz(6) & " - " & matriz(7) & " - " & matriz(8)

[ReViJa]

No he mirado a fondo tu code pero creo que deberias de revisar que valores toma la variable matriz

Código:

matriz = Split(registro, ",")

Si matriz no recoje laos 9 valores que le pides despues saltará error.
Genera un bucle antes de List1.AddItem y asegurate que contiene esos valores dentro de la matriz.


Un saludo.