¿Cómo convertir imágenes a números binarios en VB y almacenarlas en la base de datos?
Atenuar Mst como secuencia
Atenuar rs como ADODB.Recordset
-------------------------- -------------
Set Mst = New ADODB.Stream
Mst.Type = adTypeBinary 'Tipo binario
Mst .Open
Mst.LoadFromFile Mystr 'Carga la imagen. LoadFromFile Mystr 'Carga la imagen, Mystr es la ruta de la imagen
------------------------------- -- ---- ---
rs.fields("images")= Mst.Read 'Guardar en la base de datos
Este es el código principal para guardar imágenes