Campo
Publicado por J.Fernando (39 intervenciones) el 07/10/2003 20:26:54
Buen dia a todos
Estoy diseñando una aplicación en Access, en la cual abro un Archivo .Txt con la instrucción Open ("Archivo") for Binary Access Read as #1 y luego con la instrucción Tamaño=LOF(1) determino la longitud del archivo para redimensionar el array dinámico Redim Arreglo(Tamaño). Después de esto utilizo Get #1,,Arreglo() para meter en el array toda la información. Por último hago :
Set RecSetDatos = CurrentDb.OpenRecordset("Tabla", dbOpenDynaset)
RecSetDatos.AddNew
RecSetDatos.Fields("Estacion") = Numero
RecSetDatos.Fields("Fecha") = Fecha
RecSetDatos.Fields("Binario").Value = Arreglo() *Problema
RecSetDatos.Update
RecSetDatos.Close
Set RecSetDatos = Nothing
*Justo en la linea donde trato de entrar el binario al campo se genera "Error al convertir datos"; He tratado de solucionarlo dandole al campo todos los tipos disponibles, e inclusive por codigo tratando de modificar la propiedad Type del campo, pero alli se genera otro error.
Espero que alguien pueda darme una idea
Gracias a todos
Estoy diseñando una aplicación en Access, en la cual abro un Archivo .Txt con la instrucción Open ("Archivo") for Binary Access Read as #1 y luego con la instrucción Tamaño=LOF(1) determino la longitud del archivo para redimensionar el array dinámico Redim Arreglo(Tamaño). Después de esto utilizo Get #1,,Arreglo() para meter en el array toda la información. Por último hago :
Set RecSetDatos = CurrentDb.OpenRecordset("Tabla", dbOpenDynaset)
RecSetDatos.AddNew
RecSetDatos.Fields("Estacion") = Numero
RecSetDatos.Fields("Fecha") = Fecha
RecSetDatos.Fields("Binario").Value = Arreglo() *Problema
RecSetDatos.Update
RecSetDatos.Close
Set RecSetDatos = Nothing
*Justo en la linea donde trato de entrar el binario al campo se genera "Error al convertir datos"; He tratado de solucionarlo dandole al campo todos los tipos disponibles, e inclusive por codigo tratando de modificar la propiedad Type del campo, pero alli se genera otro error.
Espero que alguien pueda darme una idea
Gracias a todos
Valora esta pregunta
0