subir archivo vb

Cargar datos es almacenar el archivo en la tabla de datos. Al cargar datos, generalmente existen dos métodos según la situación: carga única y carga por lotes. El primero se refiere a cargar un archivo a la vez (agregar un registro a la tabla de datos) y el segundo se refiere a cargar todos los archivos en una carpeta a la base de datos al mismo tiempo. Los dos son esencialmente iguales. Para la carga por lotes, solo se necesita una declaración de bucle. A continuación se describe el proceso de una carga única. 1. Abra la tabla de datos mediante la siguiente declaración: dim office_rst As New ADODB.Recordset adocon.CursorLocation = adUseClient office_rst.Open "office", adocon, adOpenDynamic, adLockOptimistic, adCmdTable 2. Agregue nuevos registros y cargue archivos. some La operación obtiene la ruta y el nombre del archivo que se va a cargar (por ejemplo, puede usar el control CommDialog para obtenerlo) y lo guarda en la variable de tipo cadena filePath. Las declaraciones clave para la carga son las siguientes: dim adofld As ADODB.Field, DataArr() As Byte, filelen As Long, file_num As Long office_rst.AddNew Set adofld = office_rst("office") adorst ("nombre de archivo").Value = filePath file_num = FreeFile 'Devuelve un número entero que representa el número del siguiente archivo que se puede usar para la instrucción Open Open filePath para acceso binario Leer como file_num 'Abre el archivo del disco filelen = LOF(file_num) 'Encuentra la longitud del archivoReDim DataArr(filelen ) 'Definir dinámica según la longitud del archivo Tamaño de la matriz Obtener archivo fuente, , DataArr 'Leer el archivo de disco abierto en la variable de matriz adofld.AppendChunk DataArr(file_num) 'Leer el archivo de disco abierto en la variable de matriz adofld.AppendChunk DataArr(file_num) 'Devuelve un número entero, indicando el siguiente disponible El número del archivo en la declaración Open AppendChunk DataArr () 'Lee el contenido de la matriz en la variable de matriz adofld. () 'Almacena el contenido de la matriz en el campo de tipo de imagen Close file_num 'Cierra el archivo de disco adorst.update, donde nombre de archivo es un campo de tipo cadena en la oficina de la tabla que almacena el nombre del archivo comprimido.

Espero que esto ayude.