Visual Basic - Ayuda Urgente

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda Urgente

Publicado por Victor Hugo Chavez Martinez (23 intervenciones) el 23/05/2001 01:57:36
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
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:Ayuda Urgente

Publicado por alejandro (172 intervenciones) el 23/05/2001 06:39:32
victor:
una manera relativamente sencilla es utilizar 2 control data
1 para la tabla access y otro para el de dBase.
entonces vas leyendo el .dbf y lo vas grabando al .mdb
espero que te sirva.
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