Access- visual- archivos planos
Mi pregunta es la siguiente
Necesito una linea sql para convertir archivos planos(campos separados por comas) a una tabla en access, realizándolo desde visual Basic 6.0
Agradecería mucho su ayuda!
Necesito una linea sql para convertir archivos planos(campos separados por comas) a una tabla en access, realizándolo desde visual Basic 6.0
Agradecería mucho su ayuda!
1 respuesta
Respuesta de andresmaga
1
Con una sentencia sql no lo podes hacer, pero si lo podes hacer con funciones de visual:
Primero hacé un archivo txt en C:\ llamado prueba.txt e insertá lo siguiente:
1,2,3,4
5,6,7,8
9,10,11,12
Luego hacé una referenia a microsoft scripting runtime (scrrun.dll)
e insertá el siguiente código en el form load:
Private Sub Form_Load()
Dim str As String
Dim tmp() As String
Dim tmp2() As String
Dim fso As New FileSystemObject
Dim ts As TextStream
Set ts = fso.OpenTextFile("c:\prueba.txt")
'lee linea por linea
Do While ts.AtEndOfStream <> True
str = ts.ReadLine
tmp = Split(str, vbCrLf, -1, vbBinaryCompare)
MsgBox tmp(0)
'lee dato por dato separado por coma
tmp2 = Split(tmp(0), ",", -1, vbTextCompare)
For i = 0 To UBound(tmp2)
MsgBox tmp2(i) 'cambiar por la sentencia insert
Next i
Loop
End Sub
Primero hacé un archivo txt en C:\ llamado prueba.txt e insertá lo siguiente:
1,2,3,4
5,6,7,8
9,10,11,12
Luego hacé una referenia a microsoft scripting runtime (scrrun.dll)
e insertá el siguiente código en el form load:
Private Sub Form_Load()
Dim str As String
Dim tmp() As String
Dim tmp2() As String
Dim fso As New FileSystemObject
Dim ts As TextStream
Set ts = fso.OpenTextFile("c:\prueba.txt")
'lee linea por linea
Do While ts.AtEndOfStream <> True
str = ts.ReadLine
tmp = Split(str, vbCrLf, -1, vbBinaryCompare)
MsgBox tmp(0)
'lee dato por dato separado por coma
tmp2 = Split(tmp(0), ",", -1, vbTextCompare)
For i = 0 To UBound(tmp2)
MsgBox tmp2(i) 'cambiar por la sentencia insert
Next i
Loop
End Sub
