https://foro.gambas-es.org/viewtopic.php?f=3&t=7617&p=45721#p45721
-----------------------------------
gambafeliz
Miercoles, 21 Agosto 2019, 06:16

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

Necesito hacerte una pregunta sobre este programa. En la subrutina "bCargarCabcsv()" es donde determinas el tipo de campo en la base de datos o donde me puede copiar el trozo de código para que lo entienda.

Te voy a decir por que, es que no veo donde tu determinas en un campo con un contenido de fecha cuando es Date o por alguna razón determinas que es Cadena (aunque sea una fecha pero quizás no es válida) 

No se si te lo he explicado bien, pero básicamente es por eso, necesito comprenderlo.

Gracias.[/quote]
El tipo se determina en la línea 103 (la que dice "Select case typeOf(val(...") con la función Val pasando el valor a la función TypeOf
[code linenumbers=false syntax=gambas]   For n = 0 To dat.Max
        If cbCabeceras.Value Then
            If cbNoComillas.value Then
                tvCampos[n, 0].text = UnQuote(RTrim$(LTrim$(cab[n])))
            Else
                tvCampos[n, 0].text = RTrim$(LTrim$(cab[n]))
            Endif
        Else
            tvCampos[n, 0].Text = "Campo " & Str(n)
        Endif
        Select Case TypeOf(Val(Replace(dat[n], ".", ","))) 'Val reconoce las locales y los números con . los da como texto. Así admite ambos formatos
            Case gb.Float
                tvCampos[n, 1].text = "Float"
                tvCampos[n, 2].Text = "11"
            Case gb.Integer
                tvCampos[n, 1].text = "Integer"
                tvCampos[n, 2].Text = "11"
            Case db.Date
                tvCampos[n, 1].text = "Date"
            Case Else
                tvCampos[n, 1].text = "Text"
        End Select
    Next
[/code]

Echale un ojo a esto:
[url=http://gambaswiki.org/wiki/lang/val?l=es&nh]http://gambaswiki.org/wiki/lang/val?l=es&nh

Saludos[/quote]

Gracias que grande eres, ..., ..., gracias de verdad.


