convertir un archivo texto a bd por 1/2 de VBasic
Publicado por GIGOLIN (35 intervenciones) el 24/09/2001 23:05:21
Este codigo me lo ofrecieron como ayuda a mis necesidades
'despues de recorrer una serie de pasos para obtener el nombre del 'archivo para convertir...
1.On Error GoTo NoTextFile
2.Open nombrearchi For Input As fnum
3. On Error GoTo NoDatabase
4.On Error GoTo 0
5. On Error GoTo NoTextFile
6.Open nombrearchi For Input As fnum
' Open the database.
6.6 Set bD = OpenDatabase(nombrearchi, False, False, "Text,")
7.Set TABLA = bD.OpenRecordset(nombrearchi)
'Set TABLA = New Recordset cambie este por la linea ariba
8.TABLA.Open " select * from " & fuentetabla & " ", bD, adOpenStatic, adLockOptimistic
9.maximoitem = TABLA.Fields.Count
10.totreg = TABLA.RecordCount
11.ReDim Preserve tamañocampos(0 To maximoitem)
12.ReDim Preserve nombrescampos(0 To maximoitem)
13.For L = 0 To maximoitem - 1
14. tamañocampos(L) = TABLA.Fields(L).DefinedSize
15. tamreg = tamreg + tamañocampos(L)
nombrescampos(L) = TABLA.Fields(L).Name
16. Next L
Quisiera saber si voy bien encaminado, o porfavor envienme algun codigo que me pueda ayudar CON LA IMPORTACION DE ARCHIVOS TEXTO PARA MANEJARLOS COMO SI FUERA UNA CONECCION DE ACCESS O CUALQUIER MOTOR DE DATOS
'despues de recorrer una serie de pasos para obtener el nombre del 'archivo para convertir...
1.On Error GoTo NoTextFile
2.Open nombrearchi For Input As fnum
3. On Error GoTo NoDatabase
4.On Error GoTo 0
5. On Error GoTo NoTextFile
6.Open nombrearchi For Input As fnum
' Open the database.
6.6 Set bD = OpenDatabase(nombrearchi, False, False, "Text,")
7.Set TABLA = bD.OpenRecordset(nombrearchi)
'Set TABLA = New Recordset cambie este por la linea ariba
8.TABLA.Open " select * from " & fuentetabla & " ", bD, adOpenStatic, adLockOptimistic
9.maximoitem = TABLA.Fields.Count
10.totreg = TABLA.RecordCount
11.ReDim Preserve tamañocampos(0 To maximoitem)
12.ReDim Preserve nombrescampos(0 To maximoitem)
13.For L = 0 To maximoitem - 1
14. tamañocampos(L) = TABLA.Fields(L).DefinedSize
15. tamreg = tamreg + tamañocampos(L)
nombrescampos(L) = TABLA.Fields(L).Name
16. Next L
Quisiera saber si voy bien encaminado, o porfavor envienme algun codigo que me pueda ayudar CON LA IMPORTACION DE ARCHIVOS TEXTO PARA MANEJARLOS COMO SI FUERA UNA CONECCION DE ACCESS O CUALQUIER MOTOR DE DATOS
Valora esta pregunta
0