Visual Basic - Importar datos

Life is soft - evento anual de software empresarial
 
Vista:

Importar datos

Publicado por Estibalitz (28 intervenciones) el 24/07/2002 12:15:47
Hola a tod@s tng un problema y no sé ni por donde pillarlo. Yo tng un fichero.TXT con una serie de valores separados x comas yo quiero que desde mi programa de Vb se cargue este fichero en una tabla de Access. He estado mirando en la ayuda de Vb y sólo me dice cómo hacerlo en Visual FoxPro. Si alguien me podría decir como hacerlo o por lo menos enfocarme por donde empezar o donde puedo encontrar algún tema concreto se lo agradecería. Muchísimas gracias. Esti.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Importar datos

Publicado por Juan (1 intervención) el 24/07/2002 14:25:49
La única solución que yo conozco es la siguiente:

nf=freefile
Open FICHERO For Input As #nf
Do
Line Input #nf, Linea 'LEE LINEA DEL FICHERO
Pos = InStr(Linea, ",") 'BUSCA EN ESA LINEA EL CARACTER SEPARADOR DE CAMPOS EN TU CASO LA COMA
c = 0
REGISTRO.AddNew 'AÑADE UN REGISTRO NUEVO EN LA TABLA
Do While Pos <> 0 'MIENTRAS ENCUENTRE EL CARACTER
'TIENES QUE PONER TANTOS CASE COMO CAMPOS -1 TENGAS
'SI TIENES 6 CAMPOS PONES HASTA CASE 5:
c = c + 1
Select Case c
Case 1:
REGISTRO!CAMPO1 = LTrim(RTrim(Mid(Linea, 1, Pos - 1)))
Case 2:
REGISTRO!CAMPO2 = LTrim(RTrim(Mid(Linea, 1, Pos - 1)))
End Select
Linea = Mid(Linea, Pos + 1)
Pos = InStr(Linea, ",")
Loop 'SALE CUANDO YA NO ENCUENTRA MAS, ES DECIR, ESTA EN
'EL ULTIMO CAMPO
If c = 0 Then 'SI LA LINEA NO ES VALIDA
REGISTRO.CancelUpdate
Else
REGISTRO!ULTIMO_CAMPO = LTrim(RTrim(Linea))
RegArtG.Update
End If
Loop Until EOF(nf)
Close #nf

Espero que te sirva, yo siempre uso este metodo y me va bastante bien, si el caracter separador es otro basta con cambiar en la sentencia:

Pos = InStr(Linea, ",")

la coma por el caracter separador correspondiente.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Muchas Gracias

Publicado por Estibalitz (28 intervenciones) el 24/07/2002 17:37:57
Muchísimas gracias voy a ver que me sale. Muchas gracias. Esti.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar