shordi escribió:gambafeliz escribió: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.
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
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
Echale un ojo a esto:
http://gambaswiki.org/wiki/lang/val?l=es&nh
Saludos
Gracias que grande eres, ..., ..., gracias de verdad.