Visual Basic - Datos .DBF a .MDB

Life is soft - evento anual de software empresarial
 
Vista:

Datos .DBF a .MDB

Publicado por JJ (3 intervenciones) el 03/07/2002 14:04:29
Estoy en fase de creacion de una pequeña aplicacion para trasvasar datos desde ficheros .DBF dBase 5 a sus correspondientes tablas en una .MDB de Access 2000/XP.....y mi asunto es.......................

¿ Cómo puedo insertar los valores de los campos de .DBF a .MDB sin que falle la instruccion al encontrar valores nulos?
He probado con tratamiento de errores...On Error Resume Next...pero al tratarse de multiples campos en el registro....¿ Como puedo hacerlo para insertar uno a uno y comprobar al mismo tiempo?

Agradeciendo de antemano vuestra inestimable colaboracion...se despide un amigo...JJ

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:Datos .DBF a .MDB

Publicado por thetony (46 intervenciones) el 04/07/2002 08:16:23
Debes crear un Function que valide los datos a insertar, algo así

Private Function ChequeaNull(Valor as Variant, Numero as Boolean)
if IsNull(Valor) then
if Numero = True then
ChequeaNull = 0
else
ChequeaNull = VBNullString
endif
else
ChequeaNull = Valor
endif
End function
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:Datos .DBF a .MDB

Publicado por thetony (46 intervenciones) el 04/07/2002 08:18:04
Debes crear un Function que valide los datos a insertar

Para usarla así

Recordset1.Campo1 = ChequeaNull(Recordset2.Campo1, True)

Algo así.

Private Function ChequeaNull(Valor as Variant, Numero as Boolean)
if IsNull(Valor) then
if Numero = True then
ChequeaNull = 0
else
ChequeaNull = VBNullString
endif
else
ChequeaNull = Valor
endif
End function
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