https://foro.gambas-es.org/viewtopic.php?f=3&t=7617&p=45685#p45685
-----------------------------------
gambafeliz
Domingo, 18 Agosto 2019, 11:32

Re: Necesito Convertir Archivo, CSV A Una Tabla SQLite3, ¿Cual Es Vuestro Camino Mas Simple?
-----------------------------------
[quote user="shordi" post="45648"]

Desplaza la línea que dice:
[code linenumbers=false syntax=gambas]Object.lock(Last)[/code]
a la línea anterior del bucle de carga (la 175, creo)
[code linenumbers=false syntax=gambas]  If Not mDB.creatabla(hcon, tablename.Text, col) Then
        Message.Error(Error.Text & "-" & Error.Where)
        Dec Application.Busy
        Return
    Endif
    Object.Lock(Last) ' Aquí iniciamos el bloqueo
    If $arcsv.count > 0 Then
        If Not hcon.opened Then hcon.Open()
        pb.Visible = True
        etipb.Visible = True
[/code]
También he añadido esto al final:
[code linenumbers=false syntax=gambas]      If errores Then
            Message("Hay errores en los datos. Consulte el archivo csv2sqlite.errores en su Escritorio")
            File.Save(User.Home &/ "Escritorio/csv2sqlite.errores", errores)
        Endif
    Endif

Finally

    Object.Unlock(Last)
    Dec Application.Busy

Catch
    Print Error.Text;; Error.Where

End[/code]
de forma que no se mantenga el bloqueo caso de un error inesperado durante la ejecución del bucle.
He actualizado el proyecto en el adjunto del inicio de este hilo. Es el 0.0.3, por si te quieres ahorrar el tema de hacerlo tú.

Saludos[/quote]

De momento arreglado con tus indicaciones, Gracias...


