Ayuda Urgente
Publicado por Victor Hugo Chavez Martinez (23 intervenciones) el 23/05/2001 01:53:59
Quiero abrir un archivo que contiene una tabla en DBase y pasar todos los datos a la tabla de Access.
Ahorita le estoy haciendo de esta manera:
Abro un archivo de texto donde bienen los campos delimitados por comas pero cuando un campo empieza con numeri y unas " se corta este campo, o cuando se encuentran dos "".
Open "C:\Fromex\" & txtBArchivo.Text For Input As #1
Borra_Base
Do While Not EOF(1)
Input #1, CVE, DESCR, LINEA, TMOV, FECMOV, ALMC, CANT, CUNIT, EXIST
reg_Inventario.AddNew
reg_Inventario.Fields("CVE") = CVE
reg_Inventario.Fields("DESCR") = DESCR
reg_Inventario.Fields("LINEA") = LINEA
reg_Inventario.Fields("TMOV") = TMOV
reg_Inventario.Fields("FECMOV") = FECMOV
reg_Inventario.Fields("ALMC") = ALMC
If IsNumeric(CANT) Then
reg_Inventario.Fields("CANT") = CANT
Else
reg_Inventario.Fields("CANT") = 0
End If
reg_Inventario.Fields("CUNIT") = CUNIT
reg_Inventario.Fields("EXIST") = EXIST
reg_Inventario.Update
Loop
Close #1
reg_Inventario.Close
dbase2.Close
Ahorita le estoy haciendo de esta manera:
Abro un archivo de texto donde bienen los campos delimitados por comas pero cuando un campo empieza con numeri y unas " se corta este campo, o cuando se encuentran dos "".
Open "C:\Fromex\" & txtBArchivo.Text For Input As #1
Borra_Base
Do While Not EOF(1)
Input #1, CVE, DESCR, LINEA, TMOV, FECMOV, ALMC, CANT, CUNIT, EXIST
reg_Inventario.AddNew
reg_Inventario.Fields("CVE") = CVE
reg_Inventario.Fields("DESCR") = DESCR
reg_Inventario.Fields("LINEA") = LINEA
reg_Inventario.Fields("TMOV") = TMOV
reg_Inventario.Fields("FECMOV") = FECMOV
reg_Inventario.Fields("ALMC") = ALMC
If IsNumeric(CANT) Then
reg_Inventario.Fields("CANT") = CANT
Else
reg_Inventario.Fields("CANT") = 0
End If
reg_Inventario.Fields("CUNIT") = CUNIT
reg_Inventario.Fields("EXIST") = EXIST
reg_Inventario.Update
Loop
Close #1
reg_Inventario.Close
dbase2.Close
Valora esta pregunta


0